Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Nedeľa, 18. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / scripts / ep / atl2ircwrap

Rozdiely pre scripts/ep/atl2ircwrap/irc2atl.pl medzi verziami 1.3 a 1.4

verzia 1.3, 2002/10/16 13:53:16 verzia 1.4, 2002/10/17 10:16:55
Riadok 32  while (<STDIN>) {
Riadok 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:
Odstranené z verzie1.3  
zmenené riadky
  Pridané vo verzii1.4
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok