<!--#exec cgi="/cgi-bin/dbman/num.cgi"-->

<!--#include virtual="/cgi-bin/dbman/num.cgi"-->

#!/usr/local/bin/perl
# Number of Records
require "/absolute/path/to/default.cfg";
my $count = 0;
open (DB, "<$db_file_name") or
&cgierr("error in number of records. unable to open database:$db_file_name.\nReason:
$!");
LINE: while (<DB> ) {
if (!(/^#/) && !(/^\s*$/)) {
$line = $_;
chomp ($line);
@fields = &split_decode ($line);
++$count;
}
}
close DB;
print "Content-type: text/html\n\n";
print $count;
sub split_decode {
# --------------------------------------------------------
# Takes one line of the database as input and returns an
# array of all the values. It replaces special mark up that
# join_encode makes such as replacing the '``' symbol with a
# newline and the '~~' symbol with a database delimeter.
my ($input) = shift;
$input =~ s/\Q$db_delim\E$/$db_delim /o; # Add a space if we have delimi
ter new line.
my (@array) = split (/\Q$db_delim\E/o, $input);
for ($i = 0; $i <= $#array; $i++) {
$array[$i] =~ s/~~/$db_delim/og; # Retrieve Delimiter..
$array[$i] =~ s/``/\n/g; # Change '' back
to newlines..
}
return @array;
}
sub cgierr {
# --------------------------------------------------------
# Displays any errors and prints out FORM and ENVIRONMENT
# information. Useful for debugging.
if (!$html_headers_printed) {
print "Content-type: text/html\n\n";
$html_headers_printed = 1;
}
print "<PRE>\n\nCGI ERROR\n==========================================\n"
;
$_[0] and print "Error Message : $_[0]\n";
$0 and print "Script Location : $0\n";
$] and print "Perl Version : $]\n";
$db_setup and print "Setup File : $db_setup.cfg\n";
$db_userid and print "User ID : $db_userid\n";
$db_uid and print "Session ID : $db_uid\n";
print "\nForm Variables\n-------------------------------------------\n";
foreach $key (sort keys %in) {
my $space = " " x (20 - length($key));
print "$key$space: $in{$key}\n";
}
print "\nEnvironment Variables\n----------------------------------------
---\n";
foreach $env (sort keys %ENV) {
my $space = " " x (20 - length($env));
print "$env$space: $ENV{$env}\n";
}
print "\n</PRE>";
exit -1;
}

malformed header from script. Bad header=491: /home/WWW10/melhialumni.com/cgi-bin/dbtest/count.cgi

#!/usr/bin/perl -w
# Number of Records

# Absolute path to database
$db_file_name = "/home/WWW10/melhialumni.com/cgi-bin/dbtest/default.db";
my $count = 0;
open (DB, "<$db_file_name") or
&cgierr("error in number of records. unable to open database:$db_file_name.\nReason:
$!");
LINE: while (<DB> ) {
foreach (LINE) {++$count;
}
}
close DB;
print "Content-type: text/html\n\n";
print $count;

sub cgierr {
# --------------------------------------------------------
# Displays any errors and prints out FORM and ENVIRONMENT
# information. Useful for debugging.
if (!$html_headers_printed) {
print "Content-type: text/html\n\n";
$html_headers_printed = 1;
}
print "<PRE>\n\nCGI ERROR\n==========================================\n";
$_[0] and print "Error Message: $_[0]\n";
$0 and print "Script Location: $0\n";
$] and print "Perl Version: $]\n";
$db_setup and print "Setup File: $db_setup.cfg\n";
$db_userid and print "User ID: $db_userid\n";
$db_uid and print "Session ID: $db_uid\n";
print "\nForm Variables\n-------------------------------------------\n";
foreach $key (sort keys %in) {
my $space = " " x (20 - length($key));
print "$key$space: $in{$key}\n";
}
print "\nEnvironment Variables\n-------------------------------------------\n";
foreach $env (sort keys %ENV) {
my $space = " " x (20 - length($env));
print "$env$space: $ENV{$env}\n";
}
print "\n</PRE>";
exit -1;
}