Africa Iwalewa´s external Link: $lt / $stat

#!/usr/bin/perl # ############################################################################## # Perl-Script for external outgoing Link (c) Klaus Schönenberg Lohmar ############################################################################## # Relaeses # 2001-01-21 KS first release require "main.lib"; &make_datum; # read The INPUT BUFFER from .htm FORM-TAG &read_args; $ln=$ARGS{ln}; print "Content-type: text/html\n"; &read_linklist; $stat=$dat04." ".$tim01."|".$ln."|".$lt; &write_stat; &print_html; ############################################################################## # # Subroutines sub print_html { print < Africa Iwalewa´s external Link: $lt / $stat EOF } sub read_linklist { open (IN,"linklist") or die "Cannot read Linklist"; while() { @Felder = split(/\^/,$_); if ($ln eq @Felder[0] ) { $ln=@Felder[0]; $lt=" ".@Felder[1]; # Nein, ich weiss auch nicht, warum. # Aber wenn ichs weglasse, kommen die Ms nicht am Wortanfang $link=@Felder[2]; $ll=@Felder[3]; # chop($lt); # chop($link); if (!$lt) {$lt=substr($ll,0,25) } $lt=~tr/ / /s; } } } sub write_stat { open (LOG,">>../LOGS/link.log") or die "Kann link.log nicht schreiben"; print LOG $stat."\n"; close(LOG); }