\n| \n";
if ($nextst >= ( $maxdispscreen + 1 )) {
$prevst = $nextst - $maxdispscreen;
print "\n";
}
print " | \n\n";
print "\n";
print " | \n\n";
print "Current $nextst to $nextend\n";
print " |
\n";
last;
}
}
if ($oddeven == 0 ) {
$oddeven = 1;
}
else {
$oddeven = 0;
}
}
}
}
}
sub showblank {
&check_template;
open(FL,"$template_dir$in{'template'}");
@nfile=;
close(FL);
&set_content_type;
# For each html line
foreach $line (@nfile) {
$linet=$line;
# Replace eman="fn" by blank
# One $line can contain only one eman="fn"
if ($linet =~ /eman=\"f.*\"/i) {
$linet =~ s/.*eman=\"//i;
$linet =~ s/\".*//;
chop($linet);
$line =~ s/eman=\"$linet\"//i;
}
$line =~ s/\*\*f\d+\*\*//ig; # r10
print "$line";
}
}
sub return {
print "Location: $ENV{'DOCUMENT_URI'}\n\n";
}
sub check_url_referer {
$referral_cnt = @valid;
if ($referral_cnt > 0) {
foreach $referer (@valid) {
if ($ENV{'HTTP_REFERER'} =~ /$referer/i) {
$good_ref = "yes";
last;
}
}
if ($good_ref ne "yes") {
&go_away;
}
}
}
sub error_no_db_name {
&set_content_type;
print "ERROR: No database filename specified.";
print "You must make sure a database filename is specified.
\n";
exit;
}
sub error_no_template_name {
&set_content_type;
print "ERROR: No template filename specified.";
print "You must make sure a template filename is specified for your output.
\n";
exit;
}
sub error_not_a_command {
&set_content_type;
print "ERROR: Not a valid command.";
print "The \"action\" command is not valid. This might have been caused by reloading a cgi program generated Web page.
Please go back to home page to continue.
\n";
exit;
}
sub nothing_found {
if ($error_page =~ /^yes$/i) {
print "Location: $epage_not_found\n\n";
}
else {
&set_content_type;
print "Sorry! Nothing found.";
print "No records match your search critera. Please press \"Back\" button and try again.
\n";
}
exit;
}
sub go_away {
if ($error_page =~ /^yes$/i) {
print "Location: $epage_go_away\n\n";
}
else {
&set_content_type;
print "ERROR: Unauthorised Access.";
print "Request denied. You are attempting to access our server using an unauthorized form.
\n";
}
exit;
}
sub invalid_sort_field {
&set_content_type;
print "ERROR: Invalid field name specified for sorting.";
print "You didn't supply a correct field name for sorting. Please press \"Back\" button and enter again.
\n";
exit;
}
sub sort_recs {
if ($in{'sorttype'} =~ /number-ascend/i ) {
@sorted_keys = sort numeric keys(%MATCH);
}
elsif ($in{'sorttype'} =~ /number-decend/i ) {
@sorted_keys = reverse(sort numeric keys(%MATCH));
}
elsif ($in{'sorttype'} =~ /alpha-ascend/i ) {
@sorted_keys = sort keys(%MATCH);
}
else {
@sorted_keys = reverse(sort keys(%MATCH));
}
}
sub numeric { $a <=> $b };
sub error_form_method {
&set_content_type;
print "Error: Incorrect Form Request Method.";
print "You are not using \"method=get\" or \"method=post\" to submit your Form. Please contact Webmaster.
\n";
exit;
}
sub rotate_database {
if ($rotate_db_records eq "yes") {
&check_db;
if ($busy == 0) {
open(DLR,"$last_rotated_date_file");
$last_rotated_date = ;
close(DLR);
if ($date_today ne $last_rotated_date) {
undef @db_recs;
open(DB,"$database_dir$dbname");
@db_recs = ;
close(DB);
$rec_total = @db_recs;
if ($rec_total > $rotation_count) {
undef @top_recs;
$offset = $rec_total - $rotation_count;
@top_recs = splice(@db_recs,$offset,$rotation_count);
unshift(@db_recs,@top_recs);
open(DB,">$database_dir$dbname");
foreach $db_rec (@db_recs) {
print DB "$db_rec";
}
close(DB);
open(DLR,">$last_rotated_date_file");
print DLR "$date_today";
close(DLR);
}
}
&unlock_db;
}
}
}
sub convert_chars {
$fsfs2_count = 0;
foreach $fsPPP (@fs) {
if ($fsPPP ne "") {
$fs[$fsfs2_count] = &replace_spc("$fsPPP");
}
$fsfs2_count++;
}
}
sub replace_inhtml_flds {
$inhtml_ctr = @inhtml_array;
if ($inhtml_ctr > 0) {
foreach $inhtml_fld (@inhtml_array) {
undef @inhtml_file;
if ($TMP{$inhtml_fld} =~ /^FILE\:\:/) {
$t_inhtml = $TMP{$inhtml_fld};
$t_inhtml =~ s/FILE\:\://;
open(INHTML,"$template_dir$t_inhtml");
@inhtml_file = ;
close(INHTML);
$TMP{$inhtml_fld} = "";
foreach $inhtml_line (@inhtml_file) {
$TMP{$inhtml_fld} .= $inhtml_line;
}
}
}
}
}
sub set_content_type {
if ($charset eq "") {
print "content-type: text/html\n\n";
} else {
print "content-type: text/html\; charset=$charset\n\n";
}
}
sub check_special_chars {
if ($keyword =~ /^\+*\\*\$*\%*\/*\!*\#*\@*\|*\&*\^*\~*\`*\(*\)*$/i) {
next;
}
else {
$keyword = &replace_spc("$keyword");
}
}
sub replace_spc {
local($word) = shift(@_);
if ($match_special_chars =~ /^yes$/i) {
# DO NOT CHECK ^, |, AND . THEY ARE USED FOR OTHER PURPOSE # 290102
$word =~ s/\+/SPC001/g;
$word =~ s/\\/SPC002/g;
$word =~ s/\$/SPC003/g;
$word =~ s/\%/SPC004/g;
$word =~ s/\//SPC005/g;
$word =~ s/\#/SPC006/g;
$word =~ s/\@/SPC007/g;
# $word =~ s/\|/SPC008/g; # 290102
$word =~ s/\&/SPC009/g;
$word =~ s/\~/SPC010/g;
$word =~ s/\`/SPC011/g;
$word =~ s/\(/SPC012/g;
$word =~ s/\)/SPC013/g;
$word =~ s/\[/SPC014/g;
$word =~ s/\]/SPC015/g;
$word =~ s/\{/SPC016/g;
$word =~ s/\}/SPC017/g;
$word =~ s/\/SPC019/g;
}
else {
if ($delimitor =~ /\t/i) {
$word =~ s/[^a-z0-9A-Z\,\t\^\|\ ]+/.*/g; # 290102
}
elsif ($delimitor =~ /\,/i) {
$word =~ s/[^a-z0-9A-Z\,\^\|\ ]+/.*/g; # 290102
}
else {
$word =~ s/[^a-z0-9A-Z\,\^\|\ ]+/.*/g; # 290102
}
}
return $word;
}
sub check_dbname {
if ($in{'dbname'} =~ /[^a-z0-9A-Z\ \_\-\.]+/) {
&error_invalid_dbname;
}
else {
$dbname = $in{'dbname'};
}
}
sub error_invalid_dbname {
&set_content_type;
print "ERROR: Invalid database filename (dbname).";
print "Please use only alphanumeric characters (space, dot, hyphen, underscore allowed) for your database filename.
\n";
exit;
}
sub check_template {
if ($in{'template'}) {
if ($in{'template'} =~ /[^a-z0-9A-Z\ \_\-\.]+/) {
&error_invalid_template;
}
}
else {
&error_no_template_name;
}
}
sub error_invalid_template {
&set_content_type;
print "ERROR: Invalid template filename.";
print "Please use only alphanumeric characters (space, dot, hyphen, underscore allowed) for your template filename.
\n";
exit;
}
sub check_db {
$now_time = time;
$busy = 1;
$sec_cnt = 0;
while ($sec_cnt < $wait_time) {
if (-e "$database_dir$lock_fn") {
open(LOCK,"$database_dir$lock_fn");
$last_time = ;
close(LOCK);
$diff_time = $now_time - $last_time;
if ($diff_time > 120) { # file exists longer than 120 secs
&lock_db;
$busy = 0;
last;
}
sleep 1;
}
else {
&lock_db;
$busy = 0;
last;
}
$sec_cnt++;
}
}
sub lock_db {
open(LOCK,">$database_dir$lock_fn");
print LOCK "$now_time";
close(LOCK);
$locked = 1;
}
sub unlock_db {
if (($locked == 1) && (-e "$database_dir$lock_fn")) {
unlink("$database_dir$lock_fn");
}
}
sub match_keywords {
if ($in{'keywords'}) {
$row1 = &replace_spc("$row");
if (!$in{'case'} || $in{'case'} !~ /^yes$/i) {
$row1 =~ tr/a-z/A-Z/;
}
$skip_record = 0; # ds
foreach $keyword (@keywords) {
&check_special_chars;
if (!$in{'wordmatch-keywords'} || $in{'wordmatch-keywords'} !~ /y/i) {
if ($row1 =~ /$keyword/) {
if ($keywords_operator eq "and") { # ds
next; # ds
} # ds
else { # ds
$matchflag=1; # ds
last; # ds
} # ds
} # ds
else { # ds
if ($keywords_operator eq "and") { # ds
$skip_record = 1; # ds
last; # ds
} # ds
}
}
else {
if (($row1 =~ /$delimitor$keyword /) ||
($row1 =~ / $keyword /) ||
($row1 =~ / $keyword$delimitor/) ||
($row1 =~ / $keyword$delimitor$/) ||
($row1 =~ /^$keyword /) ||
($row1 =~ /^$keyword$delimitor$/) ||
($row1 =~ /^$keyword$delimitor/) ||
($row1 =~ /$delimitor$keyword$delimitor/) ||
($row1 =~ /$delimitor$keyword\|\|/) || # 250703
($row1 =~ /\|\|$keyword\|\|/) || # 250703
($row1 =~ /\|\|$keyword$delimitor/) || # 250703
($row1 =~ /$delimitor$keyword$delimitor$/)) {
if ($keywords_operator eq "and") { # ds
next; # ds
} # ds
else { # ds
$matchflag=1; # ds
last; # ds
} # ds
} # ds
else { # ds
if ($keywords_operator eq "and") { # ds
$skip_record = 1; # ds
last; # ds
} # ds
}
}
}
if ($keywords_operator eq "and" && $skip_record == 0) { # ds
$matchflag=1; # ds
} # ds
}
else {
$matchflag=1;
}
}
sub chk_cookie {
if ($in{'mbr_only'} =~ /^yes$/i) {
if ($ENV{HTTP_COOKIE}) {
($dummy,$key_pwd_stuff) = split ("userinfo=",$ENV{HTTP_COOKIE});
$key_pwd_stuff =~ s/\;.*//;
if ($key_pwd_stuff) {
($user_name,$user_pwd) = split (" _ ",$key_pwd_stuff);
if (!$user_name || !$user_pwd) {
&error_invalid_member;
}
}
else {
&error_invalid_member;
}
}
else {
&error_invalid_member;
}
}
}
sub error_invalid_member {
&set_content_type;
print "Sorry! Your request is rejected. Please Login to access this service.\n";
print "Back Home\n";
exit;
}
sub check_range { # r1
if ($in{$min_val}) { # r1
$lower = $in{$min_val}; # r1
if (($lower !~ /^-?\d+$/) && # r1
($lower !~ /^-?\d+\.$/) && # r1
($lower !~ /^-?\.\d+$/) && # r1
($lower !~ /^-?\d+\.\d+$/)) { # r1
&error_range_input; # r1
} # r1
} # r1
if ($in{$max_val}) { # r1
$upper = $in{$max_val}; # r1
if (($upper !~ /^-?\d+$/) && # r1
($upper !~ /^-?\d+\.$/) && # r1
($upper !~ /^-?\.\d+$/) && # r1
($upper !~ /^-?\d+\.\d+$/)) { # r1
&error_range_input; # r1
} # r1
} # r1
if ($delimitor =~ /\,/i) { # r1
$flds =~ s/ _COMMA_ //g; # "," # r1
} # r1
$flds =~ s/\,//g; # r1
if ($in{$min_val} && !$in{$max_val}) { # r1
if ($flds >= $lower) { # r1
$fsmatch++; # r1
} # r1
} # r1
elsif (!$in{$min_val} && $in{$max_val}) { # r1
if ($flds <= $upper) { # r1
$fsmatch++; # r1
} # r1
} # r1
else { # r1
if ($in{$min_val} && $in{$max_val}) { # r1
if ($flds >= $lower && $flds <= $upper) { # r1
$fsmatch++; # r1
} # r1
} # r1
} # r1
} # r1
sub error_range_input { # r1
&set_content_type; # r1
print "ERROR: Invalid Input In Range Search Specifications."; # r1
print "All range search inputs must be integers or floating point numbers. Please press \"Back\" button and check your input again.
\n";
exit; # r1
} # r1
sub error_invalid_operator_mix {
&set_content_type;
print "Error: Invalid Operator Mix\n";
print "You can only use either \"&&\" (the AND operator) or \"++\" (the OR operator) in your search box. Please press the \"Back\" button to try again.
\n";
print "Back Home\n";
exit;
}
sub calculate_new_entries_end_date {
%xmondays = ('1','31','2','28','3','31','4','30','5','31','6','30','7','31','8','31','9','30','10','31','11','30','12','31');
($xsec,$xmin,$xhour,$xday,$xmon,$xyr,$xwday,$xyday,$xisdst) = localtime(time);
$xmonth = ($xmon + 1);
$xyr = 1900 + $xyr;
$xleapYr = $xyr % 4;
if ($xleapYr == 0) {
$xmondays{'2'} = "29";
}
$days_left = $days_for_new_entries;
$days_this_mon = $xday;
$xdone = 0;
while ($xdone==0) {
if ($days_this_mon > $days_left) {
$xdone = 1;
last;
}
else {
$days_left = $days_left - $days_this_mon;
if ($xmonth > 1) {
$xmonth--;
}
else {
$xmonth = 12;
$xyr--;
}
$days_this_mon = $xmondays{$xmonth};
if ($days_left <= 0) {
$xdone = 1;
last;
}
}
}
$end_day = $days_this_mon - $days_left;
$end_month = $xmonth; # 230203
$end_year = $xyr; # 230203
$new_entries_end_date = ($end_year*10000) + ($end_month*100) + $end_day;
}
sub calculate_search_begin_date {
%xmondays = ('1','31','2','28','3','31','4','30','5','31','6','30','7','31','8','31','9','30','10','31','11','30','12','31');
($xsec,$xmin,$xhour,$xday,$xmon,$xyr,$xwday,$xyday,$xisdst) = localtime(time);
$xmonth = ($xmon + 1);
$xyr = 1900 + $xyr;
$xleapYr = $xyr % 4;
if ($xleapYr == 0) {
$xmondays{'2'} = "29";
}
$days_left = $noofdays;
$days_this_mon = $xday;
$xdone = 0;
while ($xdone==0) {
if ($days_this_mon > $days_left) {
$xdone = 1;
last;
}
else {
$days_left = $days_left - $days_this_mon;
if ($xmonth > 1) {
$xmonth--;
}
else {
$xmonth = 12;
$xyr--;
}
$days_this_mon = $xmondays{$xmonth};
if ($days_left <= 0) {
$xdone = 1;
last;
}
}
}
$end_day = $days_this_mon - $days_left;
$end_month = $xmonth; # 230203
$end_year = $xyr; # 230203
$search_begin_date = ($end_year*10000) + ($end_month*100) + $end_day;
}
sub invalid_noofdays {
&set_content_type;
print "Error: Invalid \"noofdays\" Specification\n";
print "Something wrong with the specification of your search form parameter \"noofdays\". Please check with your Webmaster.
\n";
print "Back Home\n";
exit;
}
sub invalid_days_for_new_entries {
&set_content_type;
print "Error: Invalid \"days_for_new_entries\" Specification\n";
print "Something wrong with the specification of your search form parameter \"days_for_new_entries\". Please check with your Webmaster.
\n";
print "Back Home\n";
exit;
}
sub check_expiry_date { # 150803
if ($in{'supervisor'} =~ /^yes$/i) {
$expired = 0;
}
else {
$x_expiryDate_fld = $expiryDate_fld;
$x_expiryDate_fld =~ s/^f//ig;
$x_expiryDate_fld--;
@numbers = split (/\//,$dbfld[$x_expiryDate_fld]);
$array_size = @numbers;
if ($array_size != 3) {$expired = 1;}
if ($expired == 0) {
if ($numbers[0] =~ /\D+/ ||
$numbers[1] =~ /\D+/ ||
$numbers[2] =~ /\D+/) {
$expired = 1;
}
}
if ($expired == 0) {
if (($numbers[0] < 1 || $numbers[0] > 31) ||
($numbers[1] < 1 || $numbers[1] > 12) ||
($numbers[2] < 2000 || $numbers[2] > 3000)) {
$expired = 1;
}
}
if ($expired == 0) {
$xdate1 = ($year*10000) + ($month*100) + $mday;
$xdate2 = ($numbers[2]*10000) + ($numbers[1]*100) + $numbers[0];
if ($xdate2 < $xdate1) {
$expired = 1;
}
}
}
} # 150803
sub prt_inname { # 141103
$val_inname = $in{$inname};
if ($delimitor =~ /\t/i) {
$val_inname =~ s/ _TAB_ /\t/g; # "tab"
}
if ($delimitor =~ /\,/i) {
$val_inname =~ s/ _COMMA_ /\,/g; # ","
}
if ($delimitor =~ /_/i) {
$val_inname =~ s/ _UNSC_ /_/g; # "_"
}
print "\n";
} # 141103