Ok, I've tried the single upload mod and the multiple upload mod and everything works until I get to the html.pl file and try to add in this section:
######################################################################
# file: html.pl #
# sub html_record #
# #
# after #
# my (%rec) = @_; #
# #
# add #
# #
######################################################################
$rec{$db_key} =~ s/<.?B>//g;
### Wherever you want your graphics to print out, use the following:
|;
if (-e "$SAVE_DIRECTORY/$rec{$db_key}") {
opendir (GRAPHIC, "$SAVE_DIRECTORY/$rec{$db_key}") or &cgierr("unable to open directory: $SAVE_DIRECTORY/$rec{$db_key}. Reason: $!");
@files = readdir(GRAPHIC);
closedir (GRAPHIC);
foreach $file (@files) {
next if ($file =~ /^\./); # Skip "." and ".." entries..
next if ($file =~ /^index/); # Skip index.htm type files..
print qq|<img src= "$SAVE_DIRECTORY_URL/$rec{$db_key}/$file">|;
}
}
print qq|
I've discovered if I comment out the following:
... ### Wherever you want your graphics to print out, use the following:
... #|;
... if (-e "$SAVE_DIRECTORY/$rec{$db_key}") {
and
... }
... }
... #print qq|
Script at least runs. Otherwise, both mods give DBMan an internal error without without any debug info. Sorry, I'm a Perl hack at best. What am I missing here?
Thanks in advance.
Famous Last words:
"Dragon? What dragon?"
######################################################################
# file: html.pl #
# sub html_record #
# #
# after #
# my (%rec) = @_; #
# #
# add #
# #
######################################################################
$rec{$db_key} =~ s/<.?B>//g;
### Wherever you want your graphics to print out, use the following:
|;
if (-e "$SAVE_DIRECTORY/$rec{$db_key}") {
opendir (GRAPHIC, "$SAVE_DIRECTORY/$rec{$db_key}") or &cgierr("unable to open directory: $SAVE_DIRECTORY/$rec{$db_key}. Reason: $!");
@files = readdir(GRAPHIC);
closedir (GRAPHIC);
foreach $file (@files) {
next if ($file =~ /^\./); # Skip "." and ".." entries..
next if ($file =~ /^index/); # Skip index.htm type files..
print qq|<img src= "$SAVE_DIRECTORY_URL/$rec{$db_key}/$file">|;
}
}
print qq|
I've discovered if I comment out the following:
... ### Wherever you want your graphics to print out, use the following:
... #|;
... if (-e "$SAVE_DIRECTORY/$rec{$db_key}") {
and
... }
... }
... #print qq|
Script at least runs. Otherwise, both mods give DBMan an internal error without without any debug info. Sorry, I'm a Perl hack at best. What am I missing here?
Thanks in advance.
Famous Last words:
"Dragon? What dragon?"