Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / ep / atl2ircwrap

Diff for scripts/ep/atl2ircwrap/irc2atl.pl between version 1.2 and 1.3

version 1.2, 2002/10/16 07:36:21 version 1.3, 2002/10/16 13:53:16
Line 21  use IO::Handle;
Line 21  use IO::Handle;
 select(STDERR); $| = 1;     # make unbuffered  select(STDERR); $| = 1;     # make unbuffered
 select(STDOUT); $| = 1;     # make unbuffered  select(STDOUT); $| = 1;     # make unbuffered
   
   my $NICK = '';
   my $PASS = '';
   my $LOGGED = 0;
   
 while (<STDIN>) {  while (<STDIN>) {
         #       chomp;          #       chomp;
   
 #       # SWITCH_CASE decode  
 #       if ($_ =~ /^(.*)($END_SWITCH_CASE_STR)(.*)($START_SWITCH_CASE_STR)(.*)$/) {                                                                                             my $buf;  
 #  
 #       $buf = $3;  
 #       $buf =~ y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;  
 #  
 #       $_ = $1 . $4 . $buf . $2 . $5 . "\n";  
   
         if ($_ =~ /^([^NU].*):(.*)/) {          if ($_ =~ /^([^NU].*):(.*)/) {
                 $_ = $1 . ':!!!'. $2;                  $_ = $1 . ':!!!'. $2;
         }          }
   
         if ($_ =~ /^NICK/) {          if ($_ =~ /^NICK ([^ ]*)/) {
                 $_ =                  $_ = '';
 ':nextra.irc.sk 001 wolcano :Welcome to the Internet Relay Network wolcano!^wolcano@kepler.fmph.uniba.sk                  $ERR = ':$SERVID 433 $NICK '.$1.' :Nickname is already in use.'."\n";
 :nextra.irc.sk 002 wolcano :Your host is nextra.irc.sk, running version 2.10.3p3+hemp+fic3+fan          }
 :nextra.irc.sk 003 wolcano :This server was created Fri Jan 11 2002 at 07:12:57 CET  
 :nextra.irc.sk 004 wolcano nextra.irc.sk 2.10.3p3+hemp+fic3+fan aoOirw abeiIklmnoOpqrstv          if ($LOGGED && ($_ =~ /^USER ([^ ]*) ([^ ]*) ([^ ]*) :([^ ]*)/)) {
 :nextra.irc.sk 005 wolcano MAP PREFIX=(ov)@+ MODES=3 CHANTYPES=#&!+ MAXCHANNELS=20 NICKLEN=9 TOPICLEN=160 KICKLEN=160 NETWORK=IRCNet CHANMODES=beI,k,l,imnpsaqr :are supported by this server                  $_ = '';
 :nextra.irc.sk 251 wolcano :There are 97332 users and 8 services on 45 servers                  $PASS = $4;
 :nextra.irc.sk 252 wolcano 178 :operators online          }
 :nextra.irc.sk 254 wolcano 49563 :channels formed  
 :nextra.irc.sk 255 wolcano :I have 323 users, 1 services and 2 servers          #!!!!!!!!!!!!!!!!!!!!! $ERR need to join STDERR with atl2irc and set the variables!!!!!!!!!!!!!!!!!!!
 :nextra.irc.sk 265 wolcano :Current local users: 323  Max: 383  
 :nextra.irc.sk 266 wolcano :Current global users: 97332  Max: 122864  
 :nextra.irc.sk 375 wolcano :- nextra.irc.sk Message of the Day -  
 :nextra.irc.sk 372 wolcano :- 2/8/2002 8:38  
 :nextra.irc.sk 372 wolcano :-              Vitajte na IRC serveri firmy NEXTRA, Slovakia  
 :nextra.irc.sk 372 wolcano :-  
 :nextra.irc.sk 372 wolcano :-        Domaca stranka tohoto servera je http://nextra.irc.sk/  
 :nextra.irc.sk 372 wolcano :- V pripade akychkolvek problemov alebo otazok si najprv precitajte ju!  
 :nextra.irc.sk 372 wolcano :-  
 :nextra.irc.sk 372 wolcano :- Ine IRC servery: telecom.irc.sk - Slovensko, irc.felk.cvut.cz - Cechy  
 :nextra.irc.sk 376 wolcano :End of MOTD command.  
 :wolcano!^wolcano@kepler.fmph.uniba.sk JOIN :#asdfzx  
 :nextra.irc.sk 353 wolcano = #asdfzx :@wolcano  
 :nextra.irc.sk 366 wolcano #asdfzx :End of NAMES list.  
 '  
 }  
   
 print STDOUT;  print STDOUT;
 }  }
   
 print "Exiting decoder.\n";  
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top