C
cgidatabase
I've been trying to get my perl program going at godaddy.
all I'm trying to do is open a file and read it and write to a file. It
seems to go through the motions witout errors but doesn't produce any
results.
This script works on another server ok but doesn't at godaddy.
i have emailed support and they want to charge for looking at my
script. i'm cheap i know but what i'm trying to do is not that
complicated. thanks for any help.
Tim
$afile = "../folder/afile.htm";
$tempfile = "../folder/temp1.htm";
open(FILB1,"$afile") || die "tryin FILE\n";
@data1 = <FILB1>;
close(FILB1);
open(TEMPFILE,">$tempfile") || die "trying tempfile\n";
foreach $d (@data1)
{
chop($d);
print TEMPFILE "$d\n";
if ($d =~ /<! -- BEGINNING -- >/i)
{
print TEMPFILE "$in{'email'}<br>"$in{'message'}<hr>\n\n";
}
}
close(TEMPFILE);
rename ("$afile", "$afile.old");
rename ("$tempfile", "$afile");
exit(0);
all I'm trying to do is open a file and read it and write to a file. It
seems to go through the motions witout errors but doesn't produce any
results.
This script works on another server ok but doesn't at godaddy.
i have emailed support and they want to charge for looking at my
script. i'm cheap i know but what i'm trying to do is not that
complicated. thanks for any help.
Tim
$afile = "../folder/afile.htm";
$tempfile = "../folder/temp1.htm";
open(FILB1,"$afile") || die "tryin FILE\n";
@data1 = <FILB1>;
close(FILB1);
open(TEMPFILE,">$tempfile") || die "trying tempfile\n";
foreach $d (@data1)
{
chop($d);
print TEMPFILE "$d\n";
if ($d =~ /<! -- BEGINNING -- >/i)
{
print TEMPFILE "$in{'email'}<br>"$in{'message'}<hr>\n\n";
}
}
close(TEMPFILE);
rename ("$afile", "$afile.old");
rename ("$tempfile", "$afile");
exit(0);