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

if (!(/^#/) && !(/^\s*$/)) {
$line = $_;
chomp ($line);
@fields = &split_decode ($line);
++$count;
}

foreach (LINE) {
++$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 delimiter 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;
}

#!/usr/local/bin/perl
# Number of Records
$db_file_name = "/path/to/dbman/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;
# Uncomment this line to execute directly.
# Comment it to use in an SSI.
# 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;
}

<!--#exec cmd="/path/to/num.cgi"-->