uot;$article{maintext}\n";
print "$article{moretext}\n";
print "";
}
sub printfile {
#Prints either header or footer
$file = shift;
$fileuc = uc($file);
open $fileuc, "config/$file.data" or die "Could not open file $file.data:
$!\n";
while (<$fileuc>) {
print $_
Damien wrote:
: open ARTICLE, "$bkup_dir/$artid.data" or die "Could not open article data file
:$bkup_dir/$artid.data: $!\n";
By the way, if the die() message doesn't end in a newline, then die()
will tell you what line of what script it died on. This is invaluable
for debugging.
-- tdk
just a quick thought:
declare your globals at the *start* of the file, not the end
and maybe you might want to use:
use vars qw($foo $bar @baz);
and run the thing under strict and warnings...
you can always mod it so it takes input from teh command line and run it
from there to catch errors
ju
Damien wrote:
: ...
: So here are the files, and I home someone can help :)
: ...
It would be a lot more useful if you could get the error message in
your server's error log. Find out where this is and tattoo that
location on the inside of your eyelids. The error log is a CGI
programmer's best f
You cannot call passwd with the password as a parameter.
(btw. this is a feature, not a bug :-)
Look at the Expect Module (available on CPAN). It lets you automate
interactive programs (like passwd).
hope that helps,
cr
On Mon, 14 May 2001 09:10:54 +0100, n6tadam said:
> Dear List,
>
> I am
