#!/usr/bin/perl
#103
package pseek;
#use Encode;
########################################################################
# COPYRIGHT NOTICE:
#
# Copyright 2008 FocalMedia.Net All Rights Reserved.
#
# Selling the code for this program without prior written consent
# from FocalMedia.Net is expressly forbidden. You may not
# redistribute this program in any shape or form.
#
# This program is distributed "as is" and without warranty of any
# kind, either express or implied. In no event shall the liability
# of FocalMedia.Net for any damages, losses and/or causes of action
# exceed the total amount paid by the user for this software.
#
########################################################################
#### EDIT HERE -- FOR WINDOWS/IIS BASED INSTALLATIONS ONLY #######
$config_cgi = "config.cgi";
# THE PATH ON A WINDOWS INSTALLATION WILL LOOK SOMETHING LIKE THIS:
# $config_cgi = "c:/inetpub/webpub/cgi-bin/pseek/config.cgi";
#### DO NOT CHANGE ANYTHING BELOW THIS LINE #################
#use FindBin;
#use lib $FindBin::Bin;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use Time::Local;
use IO::Socket;
use MIME::Base64 qw(decode_base64 encode_base64);
#use Net::SMTP;
use frc4;
if ($[ < 5.008) { use utf8; }
require Exporter;
use vars qw/@ISA @EXPORT @EXPORT_OK $copyright $prgname/;
@ISA = qw(Exporter);
@EXPORT = qw(get_file_contents
encode_dir
decode_dir
new_gsettings
decode_date
get_rating_images
setCookie
getCookies
ts_insert_template_includes
send_email
remove_leading_spacing
get_cid_cat
fill_vars
insert_images
remove_html
get_imgboxes
get_imgboxes_cc
check_img_auth
check_img_auth_cc
accesscheck
fill_cp_vars
insert_go_back_buttons
get_more_info_file_name
get_rid
display_error
);
@EXPORT_OK = qw($thefile
$enc_string
$decoded_string
$rdvalue
$images
@rawCookies1
$tmpl_page
$chopped_string
$cidret
$filledvar
$ihtml
$imgb
$error_ind
$tofvar
$selq
$lnktitle
$url
$moreinfo_url
$mcid_str);
&get_setup;
$default_permissions = 0777;
$match_ip_imgboxes = "true";
#####################################
sub display_error
{
my ($h_heading, $h_text) = @_;
print qq[
Error
$row[$ms] ] . " " . $gsettings->{location_seperator} . " ";
}
elsif ($gsettings->{dyn_stat} eq "Mod_Rewrite")
{
$lv_ind = "!!" . $lv . "!!";
$planc = $planc . "-" . $row[$ms];
$planc_enc = &convert_cat2($planc);
$selq = $selq . "$row[$ms] " . " " . $gsettings->{location_seperator} . " ";
$ecat = $ecat . &encode_dir($row[$ms]) . "-";
$rlcat = substr($ecat, 0, length($ecat)-1);
}
else
{
$ecat = $ecat . &encode_dir($row[$ms]) . "-";
$rlcat = substr($ecat, 0, length($ecat)-1);
$selq = $selq . qq[$row[$ms] ] . " " . $gsettings->{location_seperator} . " ";
}
$lv++;
}
}
}
$selq = substr($selq, 0, length($selq) - (length($gsettings->{location_seperator}) + 1));
$sql = "SELECT * FROM links WHERE lnkid = '$link_id'";
$sth = $dbh->prepare($sql);
$sth->execute;
$serror = ""; $serror = $sth->errstr; if ($serror ne "") {die "SQL Syntax Error: $serror \n From: $sql";}
while ( @row = $sth->fetchrow() )
{
$lnktitle = $row[2];
$url = $row[5];
$mdr_lnkid = $row[0];
}
$sth->finish;
$dbh->disconnect;
### If mod rewrite is used
if ($gsettings->{dyn_stat} eq "Mod_Rewrite")
{
@mriditems = split (/-/, &get_rid($rlcat));
$mrcnt = 1;
foreach $riditm (@mriditems)
{
$rmtcm = "!!" . $mrcnt . "!!";
$selq =~ s/$rmtcm/$riditm/g;
$mrcnt++;
}
$modrw_title = &convert_cat2($lnktitle);
$moreinfo_url = "$web_url/info/$mdr_lnkid-$modrw_title.html";
}
elsif ($gsettings->{dyn_stat} eq "Static")
{
if ($gsettings->{more_info_naming} eq "linktitles")
{
#$moreinfo_url = "$web_url/" . $ecat . &get_more_info_file_name($lnktitle) . $gsettings->{gen_file_ext};
$moreinfo_url = "$web_url/" . $ecat . &get_more_info_file_name($lnktitle) . "_" . $link_id . $gsettings->{gen_file_ext};
}
else
{
$moreinfo_url = "$web_url/" . $ecat . $link_id . $gsettings->{gen_file_ext};
}
}
else
{
$moreinfo_url = "$script_url/linfo.cgi?id=" . $link_id;
}
$new_tmplcode = $tmplcode;
$new_tmplcode =~ s/!!title_without_link!!/$lnktitle/gi;
$new_tmplcode =~ s/!!url!!/$url/gi;
$new_tmplcode =~ s/!!more_info_url!!/$moreinfo_url/gi;
$new_tmplcode =~ s/!!category_with_link!!/$selq/gi;
return ($new_tmplcode);
######## category string with link, $lnktitle, $url, $moreinfo_url
}
sub accesscheck
{
my ($passed_user, $passed_pass, $addurl_click) = @_;
$topvar = pseek::get_file_contents("$data_dir/frontlink.dat");
if ($passed_user =~ /'/) { $passed_user = ""; } if ($passed_user =~ /\\/) { $passed_user = ""; }
if ($passed_pass =~ /'/) { $passed_pass = ""; } if ($passed_pass =~ /\\/) { $passed_pass = ""; }
##### CHECK COOKIES
$query = new CGI;
$usercookie = $query->cookie('cpuser');
$passcookie = $query->cookie('cppass');
if (($usercookie ne "") and ($passcookie ne "") and ($passed_user eq "") and ($passed_pass eq ""))
{
$cookie_set = "True";
$passed_user = $usercookie;
$passed_pass = $passcookie;
}
if (($passed_user eq "") and ($passed_pass eq "") and ($addurl_click eq "LOGIN_LINK"))
{
print "Content-type: text/html\n\n";
$login_template = pseek::get_file_contents("$data_dir/rgs_login.html");
$login_template = pseek::ts_insert_template_includes($login_template);
$login_template = pseek::fill_vars($login_template);
$login_template =~ s/!!error_text!!//gi;
$login_template =~ s/!!rgs_login!!/$script_url\/rgs_cp\.cgi/gi;
if ($topvar eq ""){$login_template =~ s/!!top!!/$script_url\/fp\.cgi/gi;}else{$login_template =~ s/!!top!!/$topvar/gi;}
if ($login_template =~ /!!facebook_login_button!!/i)
{
$facebook_login_button = &add_facebook_login;
$login_template =~ s/!!facebook_login_button!!/$facebook_login_button/gi;
}
print $login_template;
exit;
}
### IF ADD URL BUTTON PRESSED
if (($passed_user eq "") and ($passed_pass eq "") and ($addurl_click eq "ADDURL_CL"))
{
$addurl_template = pseek::get_file_contents("$data_dir/rgs_register.html");
$login_template = pseek::get_file_contents("$data_dir/rgs_msgregister.html");
$login_template = pseek::ts_insert_template_includes($login_template);
$login_template = pseek::fill_vars($login_template);
$login_template =~ s/!!rgs_login!!/$script_url\/rgs_login\.cgi/gi;
if ($topvar eq ""){$login_template =~ s/!!top!!/$script_url\/fp\.cgi/gi;}else{$login_template =~ s/!!top!!/$topvar/gi;}
$login_template =~ s/!!account_create!!/$script_url\/rgs_register\.cgi/gi;
$login_template =~ s/!!retreive_password!!/$script_url\/rgs_repass\.cgi/gi;
print "$login_template";
exit;
}
if (($passed_user eq "") and ($passed_pass eq "") and ($addurl_click eq "MOD_LINK"))
{
$login_template = pseek::get_file_contents("$data_dir/rgs_modify_instructions.html");
$login_template = pseek::ts_insert_template_includes($login_template);
$login_template = pseek::fill_vars($login_template);
$login_template =~ s/!!rgs_login!!/$script_url\/rgs_login\.cgi/gi;
if ($topvar eq ""){$login_template =~ s/!!top!!/$script_url\/fp\.cgi/gi;}else{$login_template =~ s/!!top!!/$topvar/gi;}
$login_template =~ s/!!account_create!!/$script_url\/rgs_register\.cgi/gi;
$login_template =~ s/!!retreive_password!!/$script_url\/rgs_repass\.cgi/gi;
print "$login_template";
exit;
}
if (($passed_user eq "") or ($passed_pass eq "")) ### IF NOTHING ENTERED INTO LOGIN BOXES
{
print "Content-type: text/html\n\n";
$login_template = pseek::get_file_contents("$data_dir/rgs_login.html");
$login_template = pseek::ts_insert_template_includes($login_template);
$login_template = pseek::fill_vars($login_template);
$login_template =~ s/!!rgs_login!!/$script_url\/rgs_cp\.cgi/gi;
if ($topvar eq ""){$login_template =~ s/!!top!!/$script_url\/fp\.cgi/gi;}else{$login_template =~ s/!!top!!/$topvar/gi;}
$rgtext = pseek::get_file_contents("$data_dir/regusers.txt");
@regtext = split (/\n/, $rgtext);
$login_template =~ s/!!error_text!!/$regtext[7]/gi;
print $login_template;
exit;
}
##### CHECK USER NAME AND PASSWORD
if ($mysql_hostname eq ""){$dsn = "DBI:mysql:$db_name";}else{$dsn = "DBI:mysql:$db_name:$mysql_hostname:$mysql_port";}
$dbh = DBI->connect($dsn, $db_username, $db_password);
if ( !defined $dbh ) {die "Cannot connect to MySQL server: $DBI::errstr\n"; }
#$sql = "SELECT * FROM lnkusers WHERE rgsuser = '$passed_user' AND rgspass = '$passed_pass' AND activated = 'Y'";
$sql = "SELECT * FROM lnkusers WHERE rgsuser = '$passed_user' AND rgspass = '$passed_pass'";
$sth = $dbh->prepare($sql);
$sth->execute;
$serror = ""; $serror = $sth->errstr; if ($serror ne "") {die "SQL Syntax Error: $serror - From: $sql";}
$rows = $sth->rows();
while ( @row = $sth->fetchrow() )
{
$RGSuserid = $row[0];
$activated_status = $row[15];
}
$sth->finish;
$dbh->disconnect;
$gsettings = new_gsettings pseek;
if (($activated_status ne "Y") and ($gsettings->{new_account_validation} eq "Yes") and ($rows > 0))
{
print "Content-type: text/html\n\n";
$login_template = pseek::get_file_contents("$data_dir/rgs_login.html");
$login_template = pseek::ts_insert_template_includes($login_template);
$login_template = pseek::fill_vars($login_template);
$login_template =~ s/!!rgs_login!!/$script_url\/rgs_cp\.cgi/gi;
if ($topvar eq ""){$login_template =~ s/!!top!!/$script_url\/fp\.cgi/gi;}else{$login_template =~ s/!!top!!/$topvar/gi;}
$rgtext = pseek::get_file_contents("$data_dir/regusers.txt");
@regtext = split (/\n/, $rgtext);
$login_template =~ s/!!error_text!!/$regtext[20]/gi;
print $login_template;
exit;
}
elsif ($rows < 1)
{
print "Content-type: text/html\n\n";
$login_template = pseek::get_file_contents("$data_dir/rgs_login.html");
$login_template = pseek::ts_insert_template_includes($login_template);
$login_template = pseek::fill_vars($login_template);
$login_template =~ s/!!rgs_login!!/$script_url\/rgs_cp\.cgi/gi;
if ($topvar eq ""){$login_template =~ s/!!top!!/$script_url\/fp\.cgi/gi;}else{$login_template =~ s/!!top!!/$topvar/gi;}
$rgtext = pseek::get_file_contents("$data_dir/regusers.txt");
@regtext = split (/\n/, $rgtext);
$login_template =~ s/!!error_text!!/$regtext[7]/gi;
print $login_template;
exit;
}
elsif ($cookie_set ne "True") ### SET COOKIE
{
$thecookie1 = $query->cookie(-name=>'cpuser',
-value=>$passed_user,
-expires=>'+24h',
-path=>'/');
$thecookie2 = $query->cookie( -name=>'cppass',
-value=>$passed_pass,
-expires=>'+24h',
-path=>'/');
print $query->header(-cookie=>[$thecookie1, $thecookie2]);
print qq[
Powerseek
;
close (GSETT);
$statsetting = $conflines[29];
chop($statsetting);
####
if (($statsetting =~ /dyn_stat=Dynamic/) or ($statsetting =~ /dyn_stat=Mod_Rewrite/))
{
$filledvar =~ s/!!whatsnew!!/$script_url\/dirs\.cgi?newpop=new/g;
$filledvar =~ s/!!tophits!!/$script_url\/dirs\.cgi?newpop=pop/g;
}
else
{
$filledvar =~ s/!!whatsnew!!/$web_url\/new\//g;
$filledvar =~ s/!!tophits!!/$web_url\/pop\//g;
}
$filledvar =~ s/!!modify_link_url!!/$script_url\/modify\.cgi/g;
$filledvar =~ s/!!add_url_link!!/$script_url\/addurl\.cgi/g;
$filledvar =~ s/!!add_premium_url_link!!/$script_url\/addurl\.cgi?p=1/g;
$filledvar =~ s/!!rgs_login!!/$script_url\/rgs_login\.cgi?p=1/g;
$topvar = pseek::get_file_contents("$data_dir/frontlink.dat");
if ($topvar eq ""){$filledvar =~ s/!!top!!/$script_url\/fp\.cgi/gi;}else{$filledvar =~ s/!!top!!/$topvar/gi;}
$filledvar =~ s/!!register!!/$script_url\/rgs_register\.cgi?p=1/g;
$filledvar =~ s/!!contactus!!/$script_url\/contact\.cgi/g;
$filledvar =~ s/!!log_out!!/$script_url\/rgs_logout\.cgi/g;
$filledvar =~ s/!!advanced!!/$script_url\/searchadv\.cgi/g;
$filledvar =~ s/!!my_links!!/$script_url\/rgs_login\.cgi/g;
$filledvar =~ s/!!account_details!!/$script_url\/rgs_adet\.cgi/g;
$filledvar =~ s/!!retrieve_password!!/$script_url\/rgs_repass\.cgi/g;
$filledvar =~ s/!!resend_activation!!/$script_url\/rgs_resend2\.cgi/g;
$filledvar =~ s/!!favorites_link!!/$script_url\/fav\.cgi/g;
$query = new CGI;
$searched_keywords = $query->param('keywords');
$filledvar =~ s/!!keywords!!/$searched_keywords/g;
return ($filledvar);
}
sub get_cid_cat
{
my ($dstring) = @_;
my (@alldirs, $lvcount, $ccats, $item44, $readycat, $sqlstr, $sql, $cidret);
@alldirs = split (/\//, $dstring);
$lvcount = 1;
$ccats = "";
foreach $item44 (@alldirs)
{
$item44 =~ s/'/\\'/g;
$ccats = $ccats . "(l" . $lvcount . " = '$item44') AND ";
$readycat = substr($ccats, 0, length($ccats) - 4);
$sqlstr = $sqlstr . "($readycat AND (level = '$lvcount')) OR";
$lvcount++;
}
$sqlstr = substr($sqlstr, 0, length($sqlstr) - 2);
$sql = "SELECT cid FROM dirs WHERE $sqlstr ORDER BY level";
#print "$sql \n\n";
### CONNECT TO DB
if ($mysql_hostname eq ""){$dsn = "DBI:mysql:$db_name";}else{$dsn = "DBI:mysql:$db_name:$mysql_hostname:$mysql_port";}
$dbh = DBI->connect($dsn, $db_username, $db_password);
if ( !defined $dbh ) {die "Cannot connect to MySQL server: $DBI::errstr\n"; }
$sth = $dbh->prepare($sql);
$sth->execute;
$serror = ""; $serror = $sth->errstr; if ($serror ne "") {die "SQL Syntax Error: $serror - From: $sql";}
$cidret = "";
while ( @row = $sth->fetchrow() )
{
$cidret = $cidret . $row[0] . "-";
}
$sth->finish;
$dbh->disconnect;
$cidret = substr($cidret, 0, length($cidret) - 1);
return ($cidret);
}
sub remove_leading_spacing
{
my ($ostring) = @_;
my ($ds, $wfound);
for ($ds = 0; $ds < length($ostring); $ds++)
{
if ((substr($ostring, length($ostring) - 1, 1) eq " ") and ($wfound ne "true"))
{
chop($ostring);
}
else
{
$wfound = "true";
}
}
$chopped_string = $ostring;
return ($chopped_string);
}
sub send_email
{
my($sendername1, $fromemail1, $toemail1, $mail_subject1, $email_message1, $isHTML) = @_;
if ($mail_method eq "smtp_pm")
{
&send_mail_smtp_pm($toemail1, $fromemail1, $sendername1, $mail_subject1, $email_message1, $smtp_server, $isHTML);
}
elsif ($mail_method eq "smtp")
{
&send_mail_smtp($toemail1, $fromemail1, $sendername1, $mail_subject1, $email_message1, $smtp_server, $isHTML);
}
elsif ($mail_method eq "sendmail")
{
&send_mail_sendmail ($sendername1, $fromemail1, $toemail1, $mail_subject1, $email_message1, $isHTML);
}
elsif ($mail_method eq "smtp_auth")
{
&send_mail_smtp_auth($toemail1, $fromemail1, $sendername1, $mail_subject1, $email_message1, $smtp_server, $smtp_user, $smtp_pass, $isHTML);
}
}
sub send_mail_smtp_auth
{
my ($to_email, $from_email, $from_name, $email_subject, $email_msg, $smtp_server_ss, $e_user, $e_pass, $HTML) = @_;
$e_user = encode_base64($e_user);
$e_pass = encode_base64($e_pass);
chomp($e_user);
chomp($e_pass);
$remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => $smtp_server_ss,
PeerPort => 25
);
unless ($remote)
{
print "Connection failed when trying to connect to $smtp_server_ss";
$TCPconnect = "False";
exit;
}
open (MAITH, "> $data_dir/mailauth.log");
if ($TCPconnect ne "False")
{
$remote->autoflush(1);
recv($remote, $buffer, 200, 0);
send($remote, "EHLO localhost\r\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "EHLO localhost -> $buffer\n";
### AUTHENTICATE #####################################################
send($remote, "AUTH LOGIN\r\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "AUTH LOGIN SENT -> $buffer\n";
send($remote, "$e_user\r\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "$e_user - USER NAME SENT -> $buffer\n";
send($remote, "$e_pass\r\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "$e_pass - PASS SENT -> $buffer\n";
### SEND MAIL ########################################################
send($remote, "MAIL From:<$from_email>\r\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "MAIL From [$from_email] -> $buffer\n";
send($remote, "RCPT To:<$to_email>\r\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "RCPT To: [$to_email] -> $buffer\n";
send($remote, "DATA\r\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "DATA -> $buffer\n";
send($remote, "From: $from_name <$from_email>\r\n", 0);
send($remote, "Subject: $email_subject\r\n", 0);
if ($HTML eq "HTML")
{
send($remote, "Content-Type: text/html; charset=UTF-8\r\n", 0);
}
send($remote, $email_msg, 0); ### SEND MESSAGE
send($remote, "\r\n.\r\n", 0);
send($remote, "QUIT\n", 0);
recv($remote, $buffer, 200, 0);
print MAITH "QUIT -> $buffer\n\n\n\n\n";
close $remote;
}
close (MAITH);
}
sub send_mail_sendmail
{
# REQUIRES
# - location of sendmail
# - name
# - from email
# - to email address
# - subject
# - message
my($sendername, $fromemail, $toemail, $mail_subject, $email_message, $HTML) = @_;
my ($ftext);
$sendername =~ s/\n//g;
$fromemail =~ s/\n//g;
$toemail =~ s/\n//g;
$mail_subject =~ s/\n//g;
### check for attacks
$toemail =~ s/\;//g;
$toemail =~ s/^\s+//g;
$toemail =~ s/\s+$//g;
#my $encoding = find_encoding("utf-8");
#my $email_message = $encoding->decode($email_message);
#my $mail_subject = $encoding->decode($mail_subject);
$uline = "";
if ($HTML eq "HTML")
{
$uline = "\nContent-Type: text/html; charset=UTF-8\n";
}
if ($toemail =~ /^\S+\@\S+$/)
{
$ftext = "<" . "$fromemail" . ">";
open (SENDMAIL, "| $sendmail $toemail");
print SENDMAIL qq[From: $sendername $ftext
To: $toemail
Reply-To: $fromemail
Subject: $mail_subject
Sender: $fromemail $uline
$email_message
];
}
}
sub send_mail_smtp
{
my ($to_email, $from_email, $from_name, $email_subject, $email_msg, $smtp_server_ss, $HTML) = @_;
$remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => $smtp_server_ss,
PeerPort => 25
);
unless ($remote)
{
print "Connection failed when trying to connect to $smtp_server_ss";
$TCPconnect = "False";
exit;
}
if ($TCPconnect ne "False")
{
sleep(1);
$remote->autoflush(1);
send($remote, "HELO localhost\n", 0);
recv($remote, $buffer, 200, 0);
if ($buffer !~ /220/) { $remote_error = $buffer; }
#print "HELO localhost -> $buffer ;
close (GSETT);
$dateformat = $conflines[48];
chop($dateformat);
($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst) = localtime($tvalue);
#$year = "20" . substr($year, 1, 2);
$year = $year + 1900;
@marray = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
if (length($min) == 1) {$min = "0" . $min;}
if (length($min) == 1) {$min = "0" . $min;}
if ($hour == 0){$hour = 12;}
if ($dateformat eq "date_format=0")
{
$rdvalue = "$marray[$mon] $mday, $year";
}
elsif ($dateformat eq "date_format=1")
{
$rdvalue = "$mday $marray[$mon] $year";
}
elsif ($dateformat eq "date_format=2")
{
$mon++;
if (length($mday) == 1) { $mday = "0" . $mday; }
if (length($mon) == 1) { $mon = "0" . $mon; }
$rdvalue = "$year-$mon-$mday";
}
elsif ($dateformat eq "date_format=3")
{
$mon++;
if (length($mday) == 1) { $mday = "0" . $mday; }
if (length($mon) == 1) { $mon = "0" . $mon; }
$rdvalue = "$mon-$mday-$year";
}
elsif ($dateformat eq "date_format=4")
{
$mon++;
if (length($mday) == 1) { $mday = "0" . $mday; }
if (length($mon) == 1) { $mon = "0" . $mon; }
$rdvalue = "$mday-$mon-$year";
}
#print "==>$dateformat $rdvalue
];
if ($facebookappid < 1)
{
$fbdetails = "PowerSeek is not configured to work with Facebook Connect. To configure PowerSeek to use the Facebook Login, log into the PowerSeek control panel >> Plugins >> Facebook Login Plugin >> Configure Facebook Login";
}
return ($fbdetails);
}
sub get_heading_box
{
my ($h_icon, $h_heading, $h_text) = @_;
$h_return = qq[
];
return ($h_return);
}
#### GET CONFIGURATION ########################################################
sub get_setup
{
$exists = (-e "$config_cgi");
if ($exists > 0)
{
open (STP, "$config_cgi");
while (defined($line=))
{
if ($line =~ m/#/g)
{
$r = pos($line);
$line = substr($line, 0, $r - 1);
}
$line =~ s/\n//g;
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 =~ /^MYSQL_HOSTNAME/){$mysql_hostname = &get_setup_line($line, MYSQL_HOSTNAME);}
if ($line =~ /^MYSQL_PORT/){$mysql_port = &get_setup_line($line, MYSQL_PORT);}
if ($line =~ /^SCRIPT_URL/){$script_url = &get_setup_line($line, SCRIPT_URL);}
if ($line =~ /^ADMIN_URL/){$admin_url = &get_setup_line($line, ADMIN_URL);}
if ($line =~ /^WEB_URL/){$web_url = &get_setup_line($line, WEB_URL);}
if ($line =~ /^WEB_DIR/){$web_dir = &get_setup_line($line, WEB_DIR);}
if ($line =~ /^DATA_DIR/){$data_dir = &get_setup_line($line, DATA_DIR);}
if ($line =~ /^USERNAME/){$username = &get_setup_line($line, USERNAME);}
if ($line =~ /^PASSWORD/){$password = &get_setup_line($line, PASSWORD);}
if ($line =~ /^MAIL_METHOD/){$mail_method = &get_setup_line($line, MAIL_METHOD);}
if ($line =~ /^SENDMAIL/){$sendmail = &get_setup_line($line, SENDMAIL);}
if ($line =~ /^SMTP_SERVER/){$smtp_server = &get_setup_line($line, SMTP_SERVER);}
if ($line =~ /^SMTP_USER/){$smtp_user = &get_setup_line($line, SMTP_USER);}
if ($line =~ /^SMTP_PASS/){$smtp_pass = &get_setup_line($line, SMTP_PASS);}
}
close (STP);
}
}
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;
