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 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003