wiz has asked for the wisdom of the Perl Monks concerning the following question:

Hello. I just finished this script, and I had to implement JavaScript into it. Well, adding in the JS made the program stop working :(... but I decided just to drop the Java for now, till i get it working again... i have no clue what the server error is.
Here is the HTML form that enters the data....

<form name="Search" method="get" action="/cgi/simple.cgi">
<h4><input type="checkbox" name=typeofprint  value="Res">
Residential<br>
<input type="checkbox" name="typeofprint"  value="Mun">
Municipal / Gov't<br>         
<input type="checkbox" name="typeofprint" value="Com">
Commercial<br>
<input type="checkbox" name="typeofprint" value="Accent">
Accents and Borders<br>
<input type="checkbox" name="typeofprint"  value="Install">
Installation<br>           
<input type="checkbox" name="typeofprint"  value="Custom">
Custom Logos and Patterns<br>
<a href="#" name="Res Mun Com Accent Install Custom" onClick="doSelect
+(0,this.name); return false;" class="h4">Select All</a> |
<a href="#" name="Res Mun Com Accent Install Custom" onClick="doDeSele
+ct(0,this.name); return false;" class="h4">Clear All</a></h4>
<h4><input type="submit" name=search  value="Search">
<input type="reset" name=reset  value="Reset"></h4>
</form>

[download]

Here is the DB file:
accent circlesr.jpg|accent circletn.jpg|Accent|
AccentCircle BraggCreekPav_ABsr.jpg|AccentCircle BraggCreekPav_ABtn.jp
+g|Accent|
arabia01sr.jpg|arabia01tn.jpg|Com|
arabia02sr.jpg|arabia02tn.jpg|Com|
arabia03sr.jpg|arabia03tn.jpg|Com|
australia 02sr.jpg|australia 02tn.jpg|Res|
australia 03sr.jpg|australia 03tn.jpg|Com|
australia 04sr.jpg|australia 04tn.jpg|Accent Res|
australia01sr.jpg|australia01tn.jpg|Mun|
Belmont Abbeysr.jpg|Belmont Abbeytn.jpg|Custom|
Big Crosswalk 2sr.jpg|Big Crosswalk 2tn.jpg|Mun|
big crosswalksr.jpg|big crosswalktn.jpg|Mun|
BOYERJNTsr.jpg|BOYERJNTtn.jpg|Mun|
BRICKsr.jpg|BRICKtn.jpg|Accent|
Brown house offset bricksr.jpg|Brown house offset bricktn.jpg|Res|
brunei 01sr.jpg|brunei 01tn.jpg|Com|
BUSsr.jpg|BUStn.jpg|Mun|
CALIFHRsr.jpg|CALIFHRtn.jpg|Com|
chicagosr.jpg|chicagotn.jpg|Accent|
chicago2sr.jpg|chicago2tn.jpg|Accent Res|
chicago3sr.jpg|chicago3tn.jpg|Accent|
chicago4sr.jpg|chicago4tn.jpg|Accent|
CIRCLE BRICKS SMALLsr.jpg|CIRCLE BRICKS SMALLtn.jpg|Accent|
CircleAccent BowRiver ABsr.jpg|CircleAccent BowRiver ABtn.jpg|Accent R
+es|
CircleAccent2 BowRiver ABsr.jpg|CircleAccent2 BowRiver ABtn.jpg|Accent
+ |
Cobble Drivesr.jpg|Cobble Drivetn.jpg|Res|
Complex Largesr.jpg|Complex Largetn.jpg|Accent Res|
ConcSidewalkInstall1sr.jpg|ConcSidewalkInstall1tn.jpg|Install|
ConcSidewalkInstall2sr.jpg|ConcSidewalkInstall2tn.jpg|Install|
ConcSidewalkInstall3sr.jpg|ConcSidewalkInstall3tn.jpg|Install|
CopperCreeksr.jpg|CopperCreektn.jpg|Com|
Custom Pathsr.jpg|Custom Pathtn.jpg|Custom Res|
Daytonasr.jpg|Daytonatn.jpg|Com|
Daytona2sr.jpg|Daytona2tn.jpg|Custom Com|
diagonal herringbone circlesr.jpg|diagonal herringbone circletn.jpg|Ac
+cent|
Drivewaysr.jpg|Drivewaytn.jpg|Res|
DriveWay2sr.jpg|DriveWay2tn.jpg|Res|
DW AshSlate PavePrint_MBsr.jpg|DW AshSlate PavePrint_MBtn.jpg|Custom R
+es|
DW AshSlate PavePrint_MB2sr.jpg|DW AshSlate PavePrint_MB2tn.jpg|Custom
+ Res|
DW bullseye DJorgenson SKsr.jpg|DW bullseye DJorgenson SKtn.jpg|Accent
+ Res|
england02sr.jpg|england02tn.jpg|Mun|
EuroHB_Detailsr.jpg|EuroHB_Detailtn.jpg|Res|
full offset - frog photosr.jpg|full offset - frog phototn.jpg|Res|
Gardenssr.jpg|Gardenstn.jpg|Com|
Intersection Englandsr.jpg|Intersection Englandtn.jpg|Mun|
Italysr.jpg|Italytn.jpg|Mun|
Italy01sr.jpg|Italy01tn.jpg|Mun|
JAPANsr.jpg|JAPANtn.jpg|Mun|
Krissr.jpg|Kristn.jpg|Install|
LaneCulverCityCAsr.jpg|LaneCulverCityCAtn.jpg|Accent|
LevelIntersection_Fallbrook2sr.jpg|LevelIntersection_Fallbrook2tn.jpg|
+Accent Mun|
LevelMedianHiRessr.jpg|LevelMedianHiRestn.jpg|Mun|
mansionsr.jpg|mansiontn.jpg|Res|
MARINE DRIVEsr.jpg|MARINE DRIVEtn.jpg|Mun|
new zealand 01sr.jpg|new zealand 01tn.jpg|Res|
new zealand 02sr.jpg|new zealand 02tn.jpg|Res|
new zealand 03sr.jpg|new zealand 03tn.jpg|Res|
new zealand 04sr.jpg|new zealand 04tn.jpg|Mun|
new zealand 05sr.jpg|new zealand 05tn.jpg|Mun|
new zealand 09sr.jpg|new zealand 09tn.jpg|Res|
new zealand 10sr.jpg|new zealand 10tn.jpg|Mun|
new zealand 12sr.jpg|new zealand 12tn.jpg|Res|
new zealand 13sr.jpg|new zealand 13tn.jpg|Mun|
NorthVansr.jpg|NorthVantn.jpg|Res|
PacBeachXwalk1sr.jpg|PacBeachXwalk1tn.jpg|Custom Com|
PacBeachXwalk2sr.jpg|PacBeachXwalk2tn.jpg|Custom Com|
PacBeachXwalk3sr.jpg|PacBeachXwalk3tn.jpg|Custom Com|
PacBeachXwalk3Install1sr.jpg|PacBeachXwalk3Install1tn.jpg|Install|
PacBeachXwalk3Install2sr.jpg|PacBeachXwalk3Install2tn.jpg|Install|
PacBeachXwalk3Install3sr.jpg|PacBeachXwalk3Install3tn.jpg|Install|
Pattern Smoothnesssr.jpg|Pattern Smoothnesstn.jpg|Install|
PedPromenade Italysr.jpg|PedPromenade Italytn.jpg|Mun|
PicoXwalk1sr.jpg|PicoXwalk1tn.jpg|Mun|
PicoXwalk2sr.jpg|PicoXwalk2tn.jpg|Mun|
Plaza_Italysr.jpg|Plaza_Italytn.jpg|Mun|
portlandstreet-aftersr.jpg|portlandstreet-aftertn.jpg|Mun|
portlandstreetinstallsr.jpg|portlandstreetinstalltn.jpg|Install|
PtPark_DHb_AshSltsr.jpg|PtPark_DHb_AshSlttn.jpg|Mun|
RAPHAELsr.jpg|RAPHAELtn.jpg|Res|
ReheatPrintVanTranStop_6_2001sr.jpg|ReheatPrintVanTranStop_6_2001tn.jp
+g|Install|
RiverWalk_Pentictonsr.jpg|RiverWalk_Pentictontn.jpg|Custom Mun|
Roundabout_IdsteinGermanysr.jpg|Roundabout_IdsteinGermanytn.jpg|Accent
+|
SacramentoXwalksr.jpg|SacramentoXwalktn.jpg|Mun|
SanDiegoXwalksr.jpg|SanDiegoXwalktn.jpg|Mun|
Sidewalk(trobley)sr.jpg|Sidewalk(trobley)tn.jpg|Accent|
SideWalk2sr.jpg|SideWalk2tn.jpg|Accent|
Sidewalks Deutschsr.jpg|Sidewalks Deutschtn.jpg|Mun|
Sidewalk_GAsr.jpg|Sidewalk_GAtn.jpg|Mun|
SpeedTable Charlottesr.jpg|SpeedTable Charlottetn.jpg|Mun|
SpeedTable NewEnglandsr.jpg|SpeedTable NewEnglandtn.jpg|Com|
Spitzsr.jpg|Spitztn.jpg|Com|
Staples 2sr.jpg|Staples 2tn.jpg|Com|
STAPLES CENTERsr.jpg|STAPLES CENTERtn.jpg|Com|
StoreFrontsr.jpg|StoreFronttn.jpg|Com|
StreetChoker Chicago sr.jpg|StreetChoker Chicago tn.jpg|Mun|
StreetChoker2 Chicago sr.jpg|StreetChoker2 Chicago tn.jpg|Mun|
SubDivEnt(trobley)sr.jpg|SubDivEnt(trobley)tn.jpg|Mun|
sydneyzooAsr.jpg|sydneyzooAtn.jpg|Mun|
sydneyzooBsr.jpg|sydneyzooBtn.jpg|Mun|
sydneyzooCsr.jpg|sydneyzooCtn.jpg|Mun|
Townhome SanDiegosr.jpg|Townhome SanDiegotn.jpg|Custom Res|
UtrechtStreetsr.jpg|UtrechtStreettn.jpg|Mun|
WALKERSsr.jpg|WALKERStn.jpg|Mun|
Walkwaysr.jpg|Walkwaytn.jpg|Com|
WarMemorial_Italy1sr.jpg|WarMemorial_Italy1tn.jpg|Accent Mun|
WarMemorial_Italy2sr.jpg|WarMemorial_Italy2tn.jpg|Accent Mun|
Xwalksr.jpg|Xwalktn.jpg|Mun|
XwalkSunsetBlvdsr.jpg|XwalkSunsetBlvdtn.jpg|Mun|

[download]
And Finally the Code itself:
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $Typeofprint = param('typeofprint');
open (DB, 'DB.db') or die $!;
my $i;
print CGI::header();
print << "_HEAD_";
<html><head>
<link rel="stylesheet" type="text/css" href="../styles.css">
<title>Street Print CD Catalog</title>
</head>
<body>
<h4>Click to enlarge</h4>
<h2>Application Type</h2>
_HEAD_
print    '<table cellpadding=5 cellspacing=0><tr>';
while (my $line = <DB>) 
{
    chomp $line;
    $line =~ tr/\r\n//d;## get rid of end of lines from windoze

    my @record = split /\|/, $line, 3;
    my $name = $record[0];
    $name =~ s/sr.jpg//;
    if (defined($record[2]) && $record[2] =~ /\b$Typeofprint\b/i or $T
+ypeofprint eq 'All') 
        {
            print << "_TABLE_";
    <td width = 150><a href="/images/simple/$record[0]" target="_new">
+<img src="/images/simple/$record[1]" border="0"><br>$name</a></td>
_TABLE_
    $i++;
        }
    if ($i % 3 == 0)
        {
            print "</tr><tr>";
        }
    }
print "</tr></table></body></html>";

[download]

----------------------------
Wiz, The VooDoo Doll
Head Master of 12:30 Productions
----------------------------

Replies are listed 'Best First'.
Re: Unknown Server Error
by chromatic (Archbishop) on Aug 28, 2001 at 00:49 UTC
    Without any output from the program, it's hard to diagnose. If I had to guess, I'd pick one line for the trouble. Does the web server have read permission on your DB file?

    open(DB, 'DB.db') or die $!;

[reply]
[d/l]
Re: Unknown Server Error
by Jazz (Curate) on Aug 28, 2001 at 08:43 UTC
    I just ran the code successfully on both Linux and Win98. Have you isolated/found your error?

    Also, you may want to fix this regex: 

    $name =~ s/sr.jpg//;
    to 
    $name =~ s/sr\.jpg//;

    The . is a special character that will match anything, not just a period. So if you had a file named srZjpg, that will match successfully as well (which probably isn't what you want).

    Jasmine

[reply]
Re: Unknown Server Error
by wiz (Scribe) on Aug 28, 2001 at 00:01 UTC
    Just to Clarify:
    A) No access to the server error logs, or the ability to create my own
    B)It runs on the command prompt
    C)Because of A & B, i don't know what is causing the 500 error.
    ----------------------------
    Wiz, The VooDoo Doll
    Head Master of 12:30 Productions
    ----------------------------
[reply]

Back to Seekers of Perl Wisdom