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

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

verzia 1.3, 2002/10/16 10:23:25 verzia 1.4, 2002/10/16 13:53:16
Riadok 26  my $OTHID = '!atlantis@atlantis.sk';
Riadok 26  my $OTHID = '!atlantis@atlantis.sk';
 my $SERVID = 'atlantis.sk';  my $SERVID = 'atlantis.sk';
 my $RECEIVING_NAME_LIST = 0;  my $RECEIVING_NAME_LIST = 0;
 my $IGNORING_LOCATION_DESC = 0;  my $IGNORING_LOCATION_DESC = 0;
 my $IGNORING_WELCOME = 1;  my $IGNORING_WELCOME = 0;
 my $MY_RANK = '';  my $MY_RANK = '';
 my $TOTAL_USERS = '';  my $TOTAL_USERS = '';
 my $MY_TOTAL_NOTIFY = '';  my $MY_TOTAL_NOTIFY = '';
Riadok 83  while (<STDIN>) {
Riadok 83  while (<STDIN>) {
                 $_ = '';                  $_ = '';
         }          }
         if ($_ =~ '\+-----------------\+-----------------------------\+------------------------------\+') {          if ($_ =~ '\+-----------------\+-----------------------------\+------------------------------\+') {
                 $_ = ':'.$SERVID.' 251 '.$MYNICK.' :There are '.$TOTAL_USERS.' users and 0 services on 1 servers'."\n"                          $_ = ':'.$SERVID.' 001 '.$MYNICK.' :Welcome to the Internet Relay Network '.$MYNICK.'!atlantis@atlantisk.sk'."\n"
                           . ':'.$SERVID.' 002 '.$MYNICK.' :Your host is '.$SERVID.', running version 2.10.3p3+hemp+fic3+fan'."\n"
                           . ':'.$SERVID.' 003 '.$MYNICK.' :This server was created Fri Jan 11 2002 at 07:12:57 CET'."\n"
                           . ':'.$SERVID.' 004 '.$MYNICK.' '.$SERVID.' 2.10.3p3+hemp+fic3+fan aoOirw abeiIklmnoOpqrstv'."\n"
                           . ':'.$SERVID.' 251 '.$MYNICK.' :There are '.$TOTAL_USERS.' users and 0 services on 1 servers'."\n"
                         .':'.$SERVID.' 252 '.$MYNICK.' '.$TOTAL_WIZZES.' :operators online'."\n";                          .':'.$SERVID.' 252 '.$MYNICK.' '.$TOTAL_WIZZES.' :operators online'."\n";
                 $_ = '';                  $_ = '';
         }          }
Riadok 137  while (<STDIN>) {
Riadok 141  while (<STDIN>) {
         }          }
   
         # SAY*          # SAY*
         if ($_ =~ /^([^ ]*) (says|asks|exclaims|napisal tabulku|\([^ ]*\)): (.*)/) {          if ($_ =~ /^([^ ]*) (says|asks|exclaims|napisal tabulku|)(|\([^ ]*\)): (.*)/) {
                 $_ = ':' . $1 . $OTHID. ' PRIVMSG #' . $MYLOCATION . ' :'.$2.'> '. $3 . "\n";                  $_ = ':' . $1 . $OTHID. ' PRIVMSG #' . $MYLOCATION . ' :'.$3.$4 . "\n";
         }          }
         if ($_ =~ /^$MYNICK say(| \([^)]*\)): (.*)/) {          if ($_ =~ /^$MYNICK say(| \([^)]*\)): (.*)/) {
                 $_ = ':'.$MYNICK.' PRIVMSG #'.$MYLOCATION.' :'.$1.'> '.$2."\n";                  $_ = ':'.$MYNICK.' PRIVMSG #'.$MYLOCATION.' :'.$1.'> '.$2."\n";
Riadok 185  while (<STDIN>) {
Riadok 189  while (<STDIN>) {
   
         # EMOTE          # EMOTE
         if ($_ =~ /^([a-zA-Z]+) (.*)/) {          if ($_ =~ /^([a-zA-Z]+) (.*)/) {
                 $_ = ':'.$1.$OTHID.' PRIVMSG #'.$MYLOCATION.' :ACTION '.$2."\n";                  $_ = ':'.$1.$OTHID.' PRIVMSG #'.$MYLOCATION.' :&ACTION '.$2."&\n";
         }          }
         #ignoring known messages:          #ignoring known messages:
   
Riadok 199  while (<STDIN>) {
Riadok 203  while (<STDIN>) {
         print STDOUT;          print STDOUT;
 }  }
   
 print "Exitting encoder.\n";  
   
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