Webchat Script

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Copyright 2001 by Trevize (Wladimir Palant)

    Perl-Quellcode

    1. #!/usr/bin/perl
    2. $chatdir = ".";
    3. $vardir = "$chatdir/Variables";
    4. open(FILE, "$vardir/online.txt");
    5. @entries = <FILE>;
    6. close(FILE);
    7. print "Content-type: text/plain\n\n";
    8. foreach my $entry (@entries)
    9. {$entry =~ s/[\n\r]//g;
    10. ($name,$nick,$room,$ipcid) = split(/\|/, $entry);
    11. print "($nick) ($room)\n ";
    12. }

    2.768 mal gelesen