- #1
J
jojodangle
Mitglied
Themenersteller
- Dabei seit
- 11.08.2006
- Beiträge
- 15
- Reaktionspunkte
- 0
Hi,
Ich hab ein cgi, das nicht nur in 1, sondern in 2 Dateien schreiben soll, so dass 2 inhaltlich identische Dateien entstehen .
Mag sein, dass ich nur irgendwo n semikolon oder ne Klammer oder was auch immer übersehen hatte, aber ich hab's nicht hingekriegt: entweder es wurde weiterhin nur in eine von beiden geschrieben oder gar nicht. Kann mir jemand wohl helfen?
Hier ist mal der Code:
Danke im Voraus
jojo
Ich hab ein cgi, das nicht nur in 1, sondern in 2 Dateien schreiben soll, so dass 2 inhaltlich identische Dateien entstehen .
Mag sein, dass ich nur irgendwo n semikolon oder ne Klammer oder was auch immer übersehen hatte, aber ich hab's nicht hingekriegt: entweder es wurde weiterhin nur in eine von beiden geschrieben oder gar nicht. Kann mir jemand wohl helfen?
Hier ist mal der Code:
Code:
#!/usr/bin/perl
$freelinks =->../../../cla/kkg/jgs.html';
$freelinksurl =->[url]http://www.tralala.com/cla/kkg/jgs.html';[/url]
#################################################################################
# Get the form variables
if ($ENV{'REQUEST_METHOD'} eq->GET')
{
$querystring = $ENV{'QUERY_STRING'};
}
else
{
read(STDIN, $querystring, $ENV{'CONTENT_LENGTH'});
}
@arrnameval = split(/&/, $querystring);
foreach $namval (@arrnameval)
{
($nam, $val) = split(/=/, $namval);
# replace + with space
$val =~ tr/+/ /;
# translate hex values
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(C, hex($1))/eg;
$FORMDATA{$nam} = $val;
}
$title = $FORMDATA{'yourtitle'};
$title =~ s/<[^>]*>//g;
$url = $FORMDATA{'yoururl'};
$url =~ s/<[^>]*>//g;
$category = $FORMDATA{'category'};
$category =~ s/<[^>]*>//g;
# Read content
open(CLA,$freelinks);
@arrfreelinks = <CLA>;
close(CLA);
#Save back new content
open(CLA,>$freelinks);
foreach $line (@arrfreelinks)
{
if ($line =~ --newentries$category--)
{
print CLA \n<font face=Verdana size=1> &nbsp; - <a href=$url target=new>$title</a></font><br>\n;
}
print CLA $line;
}
close(CLA);
print Content-type: text/html\n;
$flinks = $freelinksurl\n\n;
print qq(Location: $flinks);
return;
Danke im Voraus
jojo