|
motdserver.pl |
# process $cmd if ($cmd =~ /^$/) { foreach my $entry (keys %dir) { next if $entry =~ /^\./; return_text($handle, $entry); } finish_text($handle); } elsif ($cmd =~ /^[^.]/ && exists $dir{$cmd}) { my $in = new IO::File "$dir/$cmd"; unless (defined($in)) { return_error($handle, "unable to read $cmd"); next; } while(<$in>) { chomp; return_text($handle, $_); } finish_text($handle); } else { return_error($handle, "unknown entry: $cmd"); } |
Bei einer leeren Zeile werden die Namen aller vorhandenen
Dateien ausgegeben und
| |
bei der Angabe einer Datei wird der Inhalt übermittelt.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |