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.3 and 1.4

version 1.3, 2002/10/16 13:53:16 version 1.4, 2002/10/17 10:16:55
Line 32  while (<STDIN>) {
Line 32  while (<STDIN>) {
                 $_ = $1 . ':!!!'. $2;                  $_ = $1 . ':!!!'. $2;
         }          }
   
         if ($_ =~ /^NICK ([^ ]*)/) {          if ($_ =~ /^$LOGGED && NICK ([^ ]*)/) {
                   # users cannot chenge NICK on atlantis
                 $_ = '';                  $_ = '';
                 $ERR = ':$SERVID 433 $NICK '.$1.' :Nickname is already in use.'."\n";                  $ERR = ':$SERVID 433 $NICK '.$1.' :Nickname is already in use.'."\n";
         }          }
           if ($_ =~ /^NICK ([^ ]*)/) {
                   $_ = '';
                   $ERR = '&NICK $1'."\n";
           }
   
         if ($LOGGED && ($_ =~ /^USER ([^ ]*) ([^ ]*) ([^ ]*) :([^ ]*)/)) {          if ($LOGGED && ($_ =~ /^USER ([^ ]*) ([^ ]*) ([^ ]*) :([^ ]*)/)) {
                 $_ = '';                  $_ = '';
                 $PASS = $4;                  $PASS = $4;
         }          }
   
           if ($_ =~ /^PRIVMSG ([^# ]*) :&ACTION (.*)&/) {
                   $_ = '.pemote '.$1.' '.$2."\n";
           }
           if ($_ =~ /^PRIVMSG ([^# ]*) :(.*)/) {
                   $_ = '.tell '.$1.' '.$2."\n"
           }
   
           if ($_ =~ /^PRIVMSG #atlantis :&ACTION (.*)&/) {
                   $_ = '.semote '.$1.' '.$2."\n";
           }
           if ($_ =~ /^PRIVMSG #atlantis :(.*)/) {
                   $_ = '.shout '.$1."\n";
           }
           if ($_ =~ /^PRIVMSG #atlantis :&ACTION (.*)&/) {
                   $_ = '.semote '.$1.' '.$2."\n";
           }
           if ($_ =~ /^PRIVMSG #atlantis :(.*)/) {
                   $_ = '.shout '.$1."\n";
           }
   
           if ($_ =~ /^JOIN #([^ ]*)/) {
                   $_ = '.go $1'."\n";
           }
   
           if ($_ =~ /^INVITE ([^ ])* #([^ ]*)/) {
                   $_ = '.invite $1'."\n";
           }
   
           if ($_ =~ /^WHO #atlantis/) {
                   $_ = '.who'."\n";
           }
           if ($_ =~ /^WHO #gossip/) {
                   $_ = '.who gossip'."\n";
           }
           if ($_ =~ /^WHO #([^ ]*)/) {
                   $_ = '.look'."\n";
           }
   
           # sending RAW
           if ($_ =~ /^NOTICE #atlantis :(.*)/) {
                   $_ = $1."\n";
           }
   
   
   
           if ($_ =~ /^PRIVMSG #[^ ]* :&ACTION (.*)&/) {
                   $_ = '.emote '.$2."\n";
           }
           if ($_ =~ /^PRIVMSG #[^ ]* :(.*)/) {
                   $_ = '.say '.$1."\n";
           }
   
           # other
           if ($_ =~ /^PRIVMSG ([^ ]*) :(.*)/) {
                   $_ = '.say '.$1.':'.$2."\n";
           }
   
         #!!!!!!!!!!!!!!!!!!!!! $ERR need to join STDERR with atl2irc and set the variables!!!!!!!!!!!!!!!!!!!          #!!!!!!!!!!!!!!!!!!!!! $ERR need to join STDERR with atl2irc and set the variables!!!!!!!!!!!!!!!!!!!
 print STDOUT;  print STDOUT;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top