Lösung mit mehreren Prozessen IV

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

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.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000