Opensource.Platon.SK CVS: scripts/ep/atl2ircwrap/irc2atl.pl - diff

   Up to  [Platon] / scripts / ep / atl2ircwrap
Diff for scripts/ep/atl2ircwrap/irc2atl.pl between version 1.1 and 1.2


version 1.1, 2002/10/15 09:40:11
version 1.2, 2002/10/16 07:36:21



Line 32  while (<STDIN>) {




Line 32  while (<STDIN>) {




 #       $buf =~ y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
 #       $buf =~ y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;


 #
 #


 #       $_ = $1 . $4 . $buf . $2 . $5 . "\n";
 #       $_ = $1 . $4 . $buf . $2 . $5 . "\n";


 
 


 
         if ($_ =~ /^([^NU].*):(.*)/) {


 
                 $_ = $1 . ':!!!'. $2;


 
         }


 
 


 
         if ($_ =~ /^NICK/) {


 
                 $_ =


 
 ':nextra.irc.sk 001 wolcano :Welcome to the Internet Relay Network wolcano!^wolcano@kepler.fmph.uniba.sk


 
 :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


 
 :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


 
 :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


 
 :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;









Legend:


Removed from v.1.1
 


changed lines


 
Added in v.1.2


















Platon Group <platon@platon.org> http://platon.org/
  Up to  [Platon] / scripts / ep / atl2ircwrap
-version 1.1, 2002/10/15 09:40:11
+version 1.2, 2002/10/16 07:36:21
 Line 32  while (<STDIN>) {
 Line 32  while (<STDIN>) {
 Line 32  while (<STDIN>) {
  #       $buf =~ y/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/;
  #
  #       $_ = $1 . $4 . $buf . $2 . $5 . "\n";
+         if ($_ =~ /^([^NU].*):(.*)/) {
+                 $_ = $1 . ':!!!'. $2;
+         }
+         if ($_ =~ /^NICK/) {
+                 $_ =
+ ':nextra.irc.sk 001 wolcano :Welcome to the Internet Relay Network wolcano!^wolcano@kepler.fmph.uniba.sk
+ :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
+ :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
+ :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
+ :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;
 Legend:


Removed from v.1.1
 


changed lines


 
Added in v.1.2
 Legend:


Removed from v.1.1
 


changed lines


 
Added in v.1.2
-Removed from v.1.1
+Added in v.1.2


Copyright © 2002-2006 Platon Group Site powered by Metafox CMS	Go to Top