Errors Output
  1. Can't call method "quote" on an undefined value at /home/areth/public_html/slist.asp line 39, <FILE> line 731. , /usr/local/share/perl5/Apache/ASP.pm line 1522
Debug Output
  1. Can't call method "quote" on an undefined value at /home/areth/public_html/slist.asp line 39, line 731. , /usr/local/share/perl5/Apache/ASP.pm line 1522 
ASP to Perl Script 

  -: no strict;;use vars qw($Application $Session $Response $Server $Request);;
  -: #line 1 /home/areth/public_html/slist.asp
  1: ;; use strict;
  2: my $class=$Request->Params('class'); my $fclass=$Request->Params('fclass');
  3: $fclass=$class unless($fclass);
  4: my $dbh=CS::MakeConnect;
  5: sub LevelDesc {
  6: my ($Level)=@_;
  7: return sprintf('Apprentice %3d', $Level/1000) if($Level<51000);
  8: return sprintf('Adept %3d', $Level%1000) if($Level<101000);
  9: return sprintf('Expert %3d', $Level%1000) if($Level<151000);
 10: return sprintf('Master %3d', $Level%1000) if($Level<201000);
 11: return sprintf('Master Adept %3d', $Level%1000) if($Level<251000);
 12: return sprintf('Grand Master %3d', $Level%1000) if($Level<301000);
 13: return sprintf('Immortal %4d', $Level/1000);
 14: }
 15: ; &Apache::ASP::WriteRef($main::Response, \('<html><title>Areth '.(($fclass)?"$fclass slist":'classes').'</title>
 16: <body bgcolor=#000000 fgcolor=#fefefe text=#fefefe link=#fefefe vlink=#8080ff>
 17: <table width=60%>
 18: <tr><td valign=middle width="150">
 19: <td width=150 valign=top>
 20: ')); CS::NavBar('/home/areth/public_html/tablenav.dat'); ; &Apache::ASP::WriteRef($main::Response, \('</td><td>
 21: <center><h3>
 22: '));
 23:  if($class eq '')
 24:  {
 25:   my ($who,$whole);
 26:   print "Classes of Areth</h3>\n";
 27:   my $sth=CS::SelectRecs($dbh, 'class', 'whole_name,who_name', 'available=1 ORDER BY whole_name', \$whole, \$who);
 28:   print "<table border=0>\n";
 29:   while($sth->fetch)
 30:    {
 31:     print "<tr><td><a href=\"slist.asp?class=$who&fclass=".CGI::escape($whole)."\">$whole</a></td></tr>\n";
 32:    } $sth->finish;
 33:   print "</table>\n";
 34:  }
 35: else
 36:  {
 37:   print "Skills for $fclass class</h3>\n";
 38:   my ($name,$levels,%Skill);
 39:   my $sth=CS::SelectRecs($dbh, 'skills', 'name,classlevels', 'bits&65536=0 AND classlevels like '.$dbh->quote("%$class%"), \$name, \$levels);
 40:   while($sth->fetch)
 41:    {
 42:     $levels=~s/.*$class\@([0-9]+).*/$1/g;
 43:     next if($levels>=301000);
 44:     $Skill{$levels}.="$name~";
 45:    } $sth->finish;
 46:   print "<table><tr><th>Level</th><th colspan=3>Skills</th></tr>\n";
 47:   foreach(sort { $a <=> $b} keys %Skill)
 48:    {
 49:     print '<tr><th>'.LevelDesc($_)."</th>\n";
 50:     for(split('~',$Skill{$_}))
 51:      {
 52:       print " <td><a href=\"help.asp?topic=".CGI::escape($_)."\">$_</a></td>\n";
 53:      }
 54:     print "</tr>\n";
 55:    }
 56:   print "</table>\n";
 57:  }
 58: $dbh->disconnect;
 59: ;
An error has occured with the Apache::ASP script just run. If you are the developer working on this script, and cannot work through this problem, please try researching it at the Apache::ASP web site, specifically the FAQ section. Failing that, check out your support options, and if necessary include this debug output with any query.