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/atl2irc.pl between version 1.3 and 1.4

version 1.3, 2002/10/16 10:23:25 version 1.4, 2002/10/16 13:53:16
Line 26  my $OTHID = '!atlantis@atlantis.sk';
Line 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 = '';
Line 83  while (<STDIN>) {
Line 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";
                 $_ = '';                  $_ = '';
         }          }
Line 137  while (<STDIN>) {
Line 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";
Line 185  while (<STDIN>) {
Line 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:
   
Line 199  while (<STDIN>) {
Line 203  while (<STDIN>) {
         print STDOUT;          print STDOUT;
 }  }
   
 print "Exitting encoder.\n";  
   
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