#!/usr/bin/perl package fms_acs; #use FindBin; #use lib $FindBin::Bin; use CGI; use CGI::Carp qw(fatalsToBrowser); require Exporter; use vars qw/@ISA @EXPORT @EXPORT_OK $copyright $prgname/; ### WINDOWS USERS EDIT BELOW ############################################## $cfile = "config.cgi"; #$cfile = "e:/full/server/path/to/config.cgi"; ########################################################################### $thetime = time(); ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst) = localtime($thetime); $year = "20" . substr($year, 1, 2); $version = "FM SiteSearch Version 4.1"; if ((-e "fms_admin3.cgi") > 0) { $version = "FM SiteSearch Pro Version 4.1"; } $prgname = "FM SiteSearch"; $copyright = "Copyright \@2002-$year FocalMedia.Net"; @ISA = qw(Exporter); @EXPORT = qw(check_access gtemplate check_search_spamming get_heading_box insbuttons indexprogress); @EXPORT_OK = qw($tmp $template1); $default_permissions = 0777; ### DEFAULT PERMISSIONS THAT IS USED FOR LOG FILES &get_setup; sub indexprogress { my ($pauseint, $redirurl, $b_heading, $b_display, $cur_nr, $end_nr) = @_; $perc = ($cur_nr / $end_nr) * 100; #$perc = sprintf("%5.2f",$perc); $perc = int($perc); if ($redirurl ne "") { $redgo = qq[]; $ani_img = qq[
$b_heading
]; } else { $ani_img = qq[
$b_heading
]; } $perc1 = $perc; $perc2 = 100 - $perc; $retv = qq[ Search Index $redgo $ani_img
_
  $perc%    
_
$b_display ]; return ($retv); } sub get_heading_box { my ($h_icon, $h_heading, $h_text) = @_; $h_return = qq[

$h_heading
$h_text
_
]; return ($h_return); } sub check_search_spamming { $settings_data = &get_file_contents2("$data_dir/settings.dat"); @settings = split (/\n/, $settings_data); $nr_searches_per_hour = $settings[16]; if ($nr_searches_per_hour eq "") { $nr_searches_per_hour = 40; } ### CHECK IF TMP DIR EXISTS if ((-e "$data_dir/tmpip") < 1) { $status = mkdir("$data_dir/tmpip", $default_permissions); $stat = chmod($default_permissions,"$data_dir/tmpip","$data_dir/tmpip"); } ### CLEAN UP tmpip DIR FOR OLDER SEARCHES $ipaddress = $ENV{'REMOTE_ADDR'}; $ntime = time(); opendir(DDIR,"$data_dir/tmpip"); @afiles = readdir(DDIR); foreach $filenamea (@afiles) { if (($filenamea ne ".") and ($filenamea ne "..")) { ($device,$inode,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$data_dir/tmpip/$filenamea"); if ($mtime < ($ntime - 3600)) { $stat = unlink ("$data_dir/tmpip/$filenamea"); } } } closedir (DDIR); ### RECORD IP ADDRESS if ((-e "$data_dir/tmpip/$ipaddress") < 1) { open (IPADD, "> $data_dir/tmpip/$ipaddress"); print IPADD "1"; close (IPADD); $stat = chmod($default_permissions,"$data_dir/tmpip/$ipaddress","$data_dir/tmpip/$ipaddress"); } else { open (IPADD, "$data_dir/tmpip/$ipaddress"); $ipnr = ; close (IPADD); if ($ipnr >= $nr_searches_per_hour) { print "Maximum number of searches exceeded. Access denied."; exit; } $ipnr++; open (IPADD, "> $data_dir/tmpip/$ipaddress"); print IPADD $ipnr; close (IPADD); } } sub check_access { my ($TheUsername, $ThePassword, $EnteredUser, $EnteredPass) = @_; my ($usercookie, $passcookie, $query); $query = new CGI; $usercookie = $query->cookie('nuser'); $passcookie = $query->cookie('npass'); if (($EnteredUser ne "") and ($EnteredPass ne "")) {&do_login ($EnteredUser, $EnteredPass);} if ((-e "$data_dir/setup2.cfg") < 1) { open (SETPC, "> $data_dir/setup2.cfg"); print SETPC "62,115,36,98,110,108,107,111,63,37,103,102,112,119,105,115,36,65,64,103,113,113,120,33,104,100,103,102,63,37,88,98,106,114,113,98,36,35,119,106,124,104,65,35,52,37,66,61,117,119,118,112,112,106,66,81,113,122,105,115,103,103,36,99,123,35,64,98,34,107,118,102,104,64,38,105,118,119,116,59,49,50,123,120,121,49,106,112,101,100,112,110,103,103,109,98,48,113,105,117,36,65,74,78,34,86,109,117,103,86,105,98,116,102,108,61,49,100,66,61,49,118,120,115,113,113,107,63,62,50,106,112,112,119,66,61,49,115,66,61,68,85,66\n"; print SETPC "53,53,104,120,121,55,55,54,99,54,17,11,117,100,104,103,99,55,123,54,121,100,17,11,99,122,118,53,53,56,101,119,118,104,17,11,50,60,57,53,58,115,110,101,115,115,17,11,115,60,56,54,119,109,118,114,113,109,17,11,53,55,57,58,119,100,110,98,117,111,17,11,53,55,60,118,99,100,101,111,104,100,17,11,109,100,108,53,55,59,101,112,108,100,17,11,99,112,55,53,112,125,61,100,53,53,17,11,108,54,56,108,100,113,124,110,54,104,17,11,58,54,56,54,113,100,108,107,106,102,17,11,106,100,105,108,109,56,56,58,99,103,17,11,99,109,56,54,58,100,108,105,104,111,17,11,59,56,121,107,102,111,101,58,58,107,17,11,59,55,57,109,102,100,110,53,55,113,17,11,112,55,57,58,99,115,57,53,53,107,17,11,99,100,110,54,54,111,101,98,102,51,17,11,53,53,56,49,74,78,80,66,80,103,17,11,76,111,105,118,59,59,55,107,103,111,17,11,59,55,55,54,108,118,112,108,104,109,17,11,109,55,110,99,104,118,113,98,104,103,17,11,121,55,57,106,54,54,57,58,58,105,17,11,108,55,57,58,114,104,118,58,58,117,17,11,108,55,57,58,104,117,108,116,109,118,17,11,107,55,57,111,117,110,103,110,122,104,17,11,50,56,56,55,108,119,112,103,108,102,17,11,50,56,56,55,108,106,106,101,110,110,17,11,53,55,57,49,59,105,119,105,117,110,17,11,109,55,57,105,104,117,60,116,104,107,17,11,54,54,117,115,119,105,118,114,106,122,17,11,115,55,57,107,115,116,123,102,116,117,17,11,55,60,55,105,116,118,60,116,57,117,17,11,100,55,55,54,120,118,111,53,55,109,17,11,121,104,120,58,54,54,57,107,116,103"; close (SETPC); } if (($usercookie eq "") and ($passcookie eq "")){&login_screen;} if (($usercookie ne $TheUsername) or ($passcookie ne $ThePassword)){&wrongps_screen;} } sub get_file_tmplhtml { $rtmpla = qq[ FM SiteSearch


FM SiteSearch Admin Control Panel

!!cwrite!!
!!version!!
!!buttons!!
!!controlpanel!!


]; return ($rtmpla); } sub gtemplate { my ($wtempl) = @_; $rv = &get_file_contents2("$data_dir/setup2.cfg"); ($rv1, $rv2) = split (/\n/, $rv); @alltitems = split (/,/, $rv2); $cnc = 1; foreach $tmitem(@alltitems) { $cnc++; if ($cnc == 5){$cnc = 1;} $tmitem = ($tmitem - $cnc); $asl = $asl . chr($tmitem); } @rk = split (/\n/, $asl); foreach $item (@rk) { $item =~ s/\n//g; $crit = chr(13); $item =~ s/$crit//g; $crit = chr(10); $item =~ s/$crit//g; if ($rg eq $item){$rss = "true";} } if ($wtempl eq "ctl") # 70,114,101,101,32,86,101,114,115,105,111,110, { if ($rss ne "true") { $version = $version . "
". chr(70).chr(114).chr(101).chr(101).chr(32).chr(86).chr(101).chr(114).chr(115).chr(105).chr(111).chr(110); } $ctrp = chr(99).chr(111).chr(110).chr(116).chr(114).chr(111).chr(108).chr(95).chr(112).chr(97).chr(110).chr(101).chr(108).chr(46).chr(104).chr(116).chr(109).chr(108); $template1 = &get_file_tmplhtml; } else { $thaz = chr(109).chr(97).chr(105).chr(110).chr(95).chr(108).chr(97).chr(121).chr(111).chr(117).chr(116).chr(46).chr(104).chr(116).chr(109).chr(108); if ($wtempl eq "") { $template1 = &get_file_contents2("$data_dir/$thaz"); } else { $template1 = $wtempl; } if ($rss ne "true") { $bdag = chr(60).chr(47).chr(98).chr(111).chr(100).chr(121).chr(62); @alltitems1 = split (/,/, $rv1); $cnc = 1; $asl = ""; foreach $tmitem(@alltitems1) { $cnc++; if ($cnc == 5){$cnc = 1;} $tmitem = ($tmitem - $cnc); $asl = $asl . chr($tmitem); } $asl = $asl . $bdag; $template1 =~ s/$bdag/$asl/gi; } } $template1 =~ s/!!weburl!!/$web_url/g; $template1 =~ s/!!script_url!!/$script_url/g; $template1 =~ s/!!version!!/$version/g; $template1 =~ s/!!web_url!!/$web_url/g; $template1 =~ s/!!cwrite!!/$copyright/g; #if ($use_mysql eq "Yes") # { # $slnk = "$script_url/fms_admin4.cgi?fct=web"; # $template1 =~ s/!!buildindex!!/$slnk/g; # } # else # { # $slnk = "$script_url/fms_admin3.cgi?fct=web"; # $template1 =~ s/!!buildindex!!/$slnk/g; # } $slnk = "$script_url/fms_admin.cgi?fct=buildindex"; return ($template1, $rss); } sub insbuttons { my ($templ99, $bloc) = @_; #$home = "fms_home2.gif"; #$search_settings = "fms_searchset2.gif"; #$what_to_search = "fms_whatsearch2.gif"; #$templates = "fms_templates2.gif"; #$build_search_index = "fms_saerchi2.gif"; #$html_code = "fms_htmlcode2.gif"; #$search_statistics = "fms_searchstat2.gif"; $homebut = qq[Home]; $searchsettings = qq[Search Settings]; $whattosearch = qq[What to Search]; $templatesa = qq[Templates]; $buildidx = qq[Build Search Index]; $htmlcode = qq[HTML Code]; $searchstat = qq[Search Statistics]; if ($bloc eq "HOME") { $homebut = qq[]; } elsif ($bloc eq "SEARCH_SETTINGS") { $searchsettings = qq[]; } elsif ($bloc eq "WHAT_TO_SEARCH") { $whattosearch = qq[]; } elsif ($bloc eq "TEMPLATES") { $templatesa = qq[]; } elsif ($bloc eq "BUILD_SEARCH_INDEX") { $buildidx = qq[]; } elsif ($bloc eq "HTML_CODE") { $htmlcode = qq[]; } elsif ($bloc eq "SEARCH_STATISTICS") { $searchstat = qq[]; } if ($use_mysql eq "Yes") { $slnk = "$script_url/fms_admin4.cgi?fct=web"; $template1 =~ s/!!buildindex!!/$slnk/g; } else { $slnk = "$script_url/fms_admin3.cgi?fct=web"; $template1 =~ s/!!buildindex!!/$slnk/g; } $buttons = qq[
$homebut $searchsettings $whattosearch $templatesa $buildidx $htmlcode $searchstat  
]; # $templ99 =~ s/!!buttons!!/$buttons/gi; return ($templ99); } sub do_login { my ($form_username, $form_password) = @_; my ($query, $thecookie1, $thecookie2, $scripts_admin); $query = new CGI; $thecookie1 = $query->cookie(-name=>'nuser', -value=>$form_username, -expires => '+2d', -path=>'/'); $thecookie2 = $query->cookie( -name=>'npass', -value=>$form_password, -expires => '+2d', -path=>'/'); print $query->header(-cookie=>[$thecookie1, $thecookie2]); print " FM SiteSearch "; exit; } sub login_screen { my ($newquery, $scripts_admin); my $newquery = CGI->new; print $newquery->header(); print $newquery->start_html("Control Panel"); print qq[ Login

 

 

 

__

User Name:

Password:


__

 

]; exit; } sub wrongps_screen { my ($scripts_admin); my $query = CGI->new; print $query->header(); print $query->start_html("Control Panel"); print qq[ Login

 

 

 

__

User Name:

Password:


__

The user name or password you entered was incorrect. Please Retry.

]; exit; } sub get_file_contents2 { my ($filename) = @_; my ($filesize, $filesize, $thefile); $filesize = (-s "$filename"); open (TFILECNTS, "$filename"); read(TFILECNTS,$thefile,$filesize); close (TFILECNTS); return ($thefile); } #### GET CONFIGURATION ######################################################## sub get_setup { $exists = (-e "$cfile"); if ($exists > 0) { open (STP, "$cfile"); while (defined($line=)) { if ($line =~ m/#/g) { $r = pos($line); $line = substr($line, 0, $r - 1); } $line =~ s/\n//g; if ($line =~ /^DATA_DIR/){$data_dir = &get_setup_line($line, DATA_DIR);} if ($line =~ /^WEBROOT/){$webroot = &get_setup_line($line, WEBROOT);} if ($line =~ /^URLROOT/){$urlroot = &get_setup_line($line, URLROOT);} if ($line =~ /^WEB_URL/){$web_url = &get_setup_line($line, WEB_URL);} if ($line =~ /^SCRIPT_URL/){$script_url = &get_setup_line($line, SCRIPT_URL);} if ($line =~ /^USERNAME/){$username = &get_setup_line($line, USERNAME);} if ($line =~ /^PASSWORD/){$password = &get_setup_line($line, PASSWORD);} if ($line =~ /^USE_MYSQL/){$use_mysql = &get_setup_line($line, USE_MYSQL);} if ($line =~ /^DB_NAME/){$db_name = &get_setup_line($line, DB_NAME);} if ($line =~ /^DB_USERNAME/){$db_username = &get_setup_line($line, DB_USERNAME);} if ($line =~ /^DB_PASSWORD/){$db_password = &get_setup_line($line, DB_PASSWORD);} if ($line =~ /^RG/){$rg = &get_setup_line($line, RG);} if ($line =~ /^MYSQL_HOSTNAME/){$mysql_hostname = &get_setup_line($line, MYSQL_HOSTNAME);} if ($line =~ /^MYSQL_PORT/){$mysql_port = &get_setup_line($line, MYSQL_PORT);} } close (STP); } else { print "Could not find $cfile"; exit; } } sub get_setup_line { my ($setup_line, $setup_var) = @_; $crit = "\""; $setup_line =~ m/$crit/g; $r1 = pos($setup_line); $setup_line =~ m/$crit/g; $r2 = pos($setup_line); $setup_line = substr($setup_line, $r1, ($r2 - $r1 - 1)); $return_val = $setup_line; return ($return_val); } #### END CONFIGURATION ######################################################## 1;