User Control Panel
Advertisements
HELP US, HELP YOU!
Author
Message
kings_on_steeds Senior MemberPosts: 290
Posted: Tue Mar 22, 2005 12:14 am Post subject:
ok well i have a peice of code, cer wrote years ago, that i am useing to open a file and go through each record and display it on msn, but it dose loads, and mixes them up Quote: username=matt@hotmail.com
Quote: matt@hotmail.com
Code: <br />{<br /> <br /> open (DATA, "./Stores/Msgs.txt");<br /> @data = <DATA>;<br /> close (DATA);<br /> chomp @data; <br /> foreach $line (@data) {<br /> ($what,$is) = split(/=/, $line, 2);<br /> $what = lc($what);<br /> $what =~ s/ //g;<br /> $variable++;<br /> $hash{$what} = $is;<br /> $username = $hash{username};<br /> $msg = $hash{msg};<br /> $self->sendMessage("$username\n$msg\n"); <br /><br /> }
Back to top
Cer Upgraded AgentPosts: 3776 votes : 4
Posted: Tue Mar 22, 2005 12:47 am Post subject:
I think what your problem is: Quote: {;$username = $hash{username};
matt@hotmail.com alan@hotmail.com with the message from matt@hotmail.com - that's because when it gets to alan@hotmail.com for the first time, it hasn't found the new message (and it's the same problem as before, except for the message isn't blank this time). So that causes a mismatch. On the next line, it starts getting the correct $msg.http://www.cuvou.com/
Back to top
kings_on_steeds Senior MemberPosts: 290
Posted: Tue Mar 22, 2005 1:02 am Post subject:
Code: <br />use lib "./lib";<br /><br />use MSN;<br /><br /><br />open (DATA, "./settings.data");<br />@data = <DATA>;<br />close (DATA);<br />chomp @data;<br /><br />foreach $line (@data) {<br /> ($what,$is) = split(/=/, $line, 2);<br /> $what = lc($what);<br /> $what =~ s/ //g;<br /><br /> $hash{$what} = $is;<br />}<br />$pass = $hash{password};<br />$user = $hash{email};<br /><br /><br />## MODIFY THESE FOR YOUR BOT ##<br />my $handle = $user;<br />my $password = $pass;<br />my $admin = 'nutbar2002@hotmail.com';<br />my $name = "Molms: $handle is Offline To Leave Them A msg Type !leave";<br />my $welcome = $hash{Welcome};<br /><br /># create an MSN object showing all server errors and other errors<br />my $msn = new MSN( 'Handle' => $handle, 'Password' => $password );<br /><br /># OR create an MSN object with all error messages turned off<br />#my $msn = new MSN( 'Handle' => $handle, 'Password' => $password, 'ServerError' => 0, 'Error' => 0 );<br /><br /># OR create an MSN object with full debugging info<br />#my $msn = new MSN( 'Handle' => $handle, 'Password' => $password, 'AutoloadError' => 1, 'Debug' => 1, 'ShowTX' => 1, 'ShowRX' => 1 );<br /><br /># example of setting client info<br />$msn->setClientInfo( 'Client' => 'MSNC2' );<br /><br /># example of setting client capabilites (caps)<br />$msn->setClientCaps( 'Client-Name' => 'MSN Bot/1.0', 'Chat-Logging' => 'Y', 'Client-Template' => 'None' );<br /><br /># example of setting the default message style and P4 name<br />$msn->setMessageStyle( 'Effect' => 'B', 'Color' => '000000', 'Name' => $name );<br /><br /><br /># set handlers<br />$msn->setHandler( 'Connected' => \&Connected );<br />$msn->setHandler( 'Message' => \&Message );<br /><br /><br /># connect to the server<br />$msn->connect();<br /><br /><br /># run the bot<br />my $run = 1;<br />while( $run )<br />{<br /> $msn->do_one_loop();<br />}<br /><br /><br />################################################<br /># handlers<br />################################################<br /><br /><br />sub consoleprint{<br /> print( "You Have One New Message\n" );<br /> sleep (2);<br /> open (DATA, "./Stores/Msgs.txt");<br /> @data = <DATA>;<br /> close (DATA);<br /> chomp @data;<br /> <br /> foreach $line (@data) {<br /> ($what,$is) = split(/=/, $line, 2);<br /> $what = lc($what);<br /> $what =~ s/ //g;<br /> $variable++;<br /> $hash{$what} = $is;<br /> <br />}<br />}<br />sub Connected<br />{<br /> my $self = shift;<br /><br /> print( "Connected\n" );<br /><br /> # example of a call with style and P4 name<br /> $msn->call( $admin, "I am connected!", 'Effect' => 'BI', 'Color' => '00FF00', 'Name' => '$name' );<br /> $self->setName($name);<br />}<br /><br />sub Message<br />{<br /> my( $self, $username, $name, $message, %style ) = @_;<br /><br /> if( $message =~ /^!exit$/i ) # exits the bot<br /> {<br /> $msn->setName("Nutbar 2002@hotmail.com , is back online");<br /> $msn->disconnect( );<br /> $run = 0; <br /> }<br /> elsif( $message =~ /^!broadcast\s+(.*)$/i ) # sends a broadcast message<br /> {<br /> # example of a broadcast with style and P4 name<br /> $reply = $msn->broadcast( $1, 'Effect' => 'BI', 'Color' => '0000FF', 'Name' => 'Broadcaster' );<br /> }<br /> elsif($message =~ /^!leave$/i ){<br /> <br /> $self->sendMessage("$Welcome\n\n$username\nTo leave a message for $handle Type !msg followed by the message you would like to leave\nAnd they will get back to you as soon as they can.\nFor MoRe Info About MOLMS type !about\n\n Thank You");<br />}<br /> elsif($message =~ /^!msg\s+(.*)$/i ){<br /> open (FILE, '>> ./Stores/Msgs.txt');<br /> print FILE "username: $username";<br /> print FILE "\n";<br /> print FILE $message;<br /> print FILE "\n\n";<br /> close FILE;<br /> my $messages +1;<br /> $self->sendMessage("Thank you for your message, I Will Reply When i Come Back Online");<br /> &consoleprint;<br /> $msn->broadcast( "Alan $username Has Left A Msg", 'Effect' => 'BI', 'Color' => '0000FF', 'Name' => 'Broadcaster' );<br /> <br />}<br /> elsif( $message =~ /^!about$/i ) # exits the bot<br /> {<br /> $self->sendMessage("About me Goes Here");<br /> }<br /> elsif( $message =~ /^!password Admin123$/i ) <br /> {<br /> <br /> open (DATA, "./Stores/Msgs.txt");<br /> @data = <DATA>;<br /> close (DATA);<br /> $ones = @data;<br /> chomp @data; <br /> foreach $line (@data) {<br /> ($what,$is) = split(/=/, $line, 2);<br /> $what = lc($what);<br /> $what =~ s/ //g;<br /> $variable++;<br /> $hash{$what} = $is;<br /> $username = $hash{username};<br /> $msg = $hash{msg};<br /> $self->sendMessage("$username\n$msg\n"); <br /><br /> }}<br /> else # repeats what the user said<br /> {<br /> $self->sendMessage( "I Am Offline Right Now To Leave A Message Type !leave And Follow The Instructions, Thanks\n Alan." , %style );<br /><br /> } <br />}<br /><br />
Back to top
eric256 The KeymakerPosts: 2292
Posted: Tue Mar 22, 2005 3:43 pm Post subject:
QUOTE(kings_on_steeds @ Mar 21 2005, 04:14 PM)
please help me, if you can!
User Control Panel
