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.4 a 1.5

verzia 1.4, 2002/10/16 13:53:16 verzia 1.5, 2002/10/17 10:16:55
Riadok 107  while (<STDIN>) {
Riadok 107  while (<STDIN>) {
   
         # GO          # GO
         if ($_ =~ /^\+--- Location: ([^ ]*) --------------------------*\+/) {          if ($_ =~ /^\+--- Location: ([^ ]*) --------------------------*\+/) {
                 $_ = ':' . $MYID . " JOIN 0\n:" . $MYNICK . ' JOIN :#' . $1 . "\n";                  $_ = ':' . $MYID . ' PART :#'.$MYLOCATION."\n:" . $MYNICK . ' JOIN :#' . $1 . "\n";
                 $IGNORING_LOCATION_DESC = 1;                  $IGNORING_LOCATION_DESC = 1;
                 $MYLOCATION = $1;                  $MYLOCATION = $1;
         }          }
Riadok 124  while (<STDIN>) {
Riadok 124  while (<STDIN>) {
                 $_ = '';                  $_ = '';
         }          }
   
           # GO err NOT adjoined
           if ($_ =~ /^The ([^ ]*) is not adjoined to here.$/) {
                   $_ = ':'.$SERVID.' 403 '.$MYNICK.' #'.$1.' :No such channel'."\n";
           }
           # GO err PRIVATE
           # Nemozes sa takto dostat do private miestnosti, skus .letmein jazierko
           # Ta miestnost je prave PRIVATNA, nemozes vstupit.
           # $_ = ':'.$SERVID.' 473 '.$MYNICK.' #'.$1.' :Cannot join channel (+i)';
   
         # PART JOIN          # PART JOIN
         if ($_ =~ /^[^ ]* sa odtransportoval(a|) na namestie ...$/) {          if ($_ =~ /^[^ ]* sa odtransportoval(a|) na namestie ...$/) {
                 # we leave this for further translation :)                  # we leave this for further translation :)
Riadok 149  while (<STDIN>) {
Riadok 158  while (<STDIN>) {
         }          }
   
         # SHOUT          # SHOUT
         if ($_ =~ /^([^ ]*) shouts: (.*)/) {          if ($_ =~ /^([^ ]*) shout(s|): (.*)/) {
                 $_ = ':' . $1 . $OTHID . ' PRIVMSG #atlantis :'.$2."\n";                  $_ = ':' . $1 . $OTHID . ' PRIVMSG #atlantis :'.$3."\n";
           }
   
           if ($_ =~ /^([^ ]*) gossip(s|): (.*)/) {
                   $_ = ':'.$1.$OTHID.' PRIVMSG #gossip :'.$3."\n";
         }          }
   
         # AWAY          # AWAY
Riadok 186  while (<STDIN>) {
Riadok 199  while (<STDIN>) {
         }          }
   
   
           # server done
           if ($_ =~ /^ Toto bol online rozhovor na talkri atlantis.sk 7000 - Bratislava, Slovensko$/) {
                   $_ = 'ERROR :Closing Link: '.$MYNICK.'['.$OTHID.'] (Ping timeout)'."\n";
           }
   
         # EMOTE          # EMOTE
         if ($_ =~ /^([a-zA-Z]+) (.*)/) {          if ($_ =~ /^([a-zA-Z]+) (.*)/) {
Legend:
Odstranené z verzie1.4  
zmenené riadky
  Pridané vo verzii1.5
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