nicht angemeldet
Ok hab mal die ganze Seite kopiert:
#!/usr/bin/perl
#Fehlerausgabe an den Browser
use CGI::Carp qw(fatalsToBrowser);
use strict;
$ausgabe=$ENV{'QUERY_STRING'};
@werte = split (/&/, $ausgabe);
foreach $werte (@werte)
{
($varmenu, $varpool) = split (/=/, @werte[0]);
}
#Dateiflock
use Fcntl qw(:DEFAULT :flock);
use constant LOCK_EX => 2;
print "Content-type: text/html\n\n";
Der Wert nach dem gesucht werden soll
my $eingabe = $varpool;
my @zeile=();
my $gefunden=0;
open (DATEI, "<@dir1[0]") or die "Kann Datei @dir1[0] nicht öffnen$!\n";
flock(DATEI,2);
while(<DATEI>) {
chomp;
@zeile=split(/\s*,\s*/, $_, 1);
if($eingabe eq $zeile[0]){
$gefunden=1;
last;
}
}
close(DATEI);
if($gefunden){
Ausgabe der zeile
print "$zeile[0] - zeile[1] - zeile[2] - zeile[3] - zeile[4]";
} else {
... oder nix da
print "Keine Daten gefunden";
}
print <<"Page_Done";
<HTML>
<HEAD><TITLE>Bandpoolabfrage</TITLE></HEAD>
<META CONTENT="300;HREF=http://131.0.3.52/ronny/www/cgi-bin/system/Auswahl.cgi">
<BODY bgcolor="c0c0c0">
<h2>Sie haben den Pool: "$varpool" Ausgewählt.</h2>
</BODY>
</HTML>
Page_Done
print "<p><h4>History erstellen mit den letzten: </h4></p>";
print "<p><h4>";
print "<input type=radio name=methode value=history5>5 Erstellten Textdateien<br>";
print "<input type=radio name=methode value=history10>10 Erstellten Textdateien<br>";
print "</h4></p>";
sub datei {
#################################################
Verzeichniss Auslesen nach txt Dateien
#################################################
$dir = '/usr/home/ronny/www/cgi-bin/system/';
@dir = ();
opendir DIR , $dir || die "Fehler: $!";
for (readdir(DIR)) {
next unless /.+.txt/i;
push @dir ,$_
}
closedir DIR;
@dir1=reverse(@dir);
#################################################
Verzeichniss Auslesen nach txt Dateien
#################################################
}
exit (0);