|
Site Status
|
|
Personal Information:
|
$buff[0]
|
|
Current Template:
|
$buff[1]
|
|
Visitors so far:
|
$buff[2]
|
|
Signup Date:
|
$sdate
|
|
Activation Date:
|
$adate
|
|
Your PRN:
|
$prn
|
|
|
HTML
if($buff[3] eq "false"){
print "Please go and submit your personal information!\n";
}
print_footer();
}
}
}
#############################################
### End of action=login
#############################################
### Action Logout
#############################################
elsif ($action eq "Logout"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Logout.');
print_login();
print "User logout successful.\n";
print_footer();
}
elsif ($action eq "Personal Info"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$query="SELECT firm_name,services,industry,profession,day_phone,evening_phone,suite_no,street,city,
postal_code,state,addr_location,description,news FROM personal_info WHERE id='$buff[0]'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
undef(@buff);
@buff=$sth->fetchrow_array;
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Personal Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
if(!defined(@buff) || $buff[0] eq ""){
print_pers_info('','','','','','','','','','','','','','','Insert');
}
else {
print_pers_info(@buff,'Update');
}
print_footer();
}
}
# # Web Template Form
######################
elsif ($action eq "Web Template"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$uid=$buff[0];
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# Getting user templates.
$query="SELECT template FROM web_temp where id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
@buff=$sth->fetchrow_array();
$buff[1]="update";
if (!defined(@buff)){
$buff[0]='default';
$buff[1]='insert';
}
if ($buff[0] eq ""){
$buff[0]='default';
$buff[1]='insert';
}
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Web Templates');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_web($buff[0],$uid,$buff[1]);
print_footer();
}
}
#### Web Template Chosen
#######################
elsif ($action eq "web_template"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
$uid=$buff[0];
$buff[0]=(param('t_style'))?param('t_style'):"";
$buff[1]=(param('oper'))?param('oper'):"";
if(!$buff[0] || $buff[0] eq "" || $buff[1] eq "" || !$buff[1]){
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Web Template');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_web('',$uid);
print "Please choose a template!\n";
$sth->finiesh();
db_disconnect();
print_footer();
exit(123);
} else {
if ($buff[1] eq "update"){
$query="UPDATE web_temp SET template='$buff[0]' WHERE id='$uid'";
} else {
$query="INSERT INTO web_temp VALUES ('$uid','$buff[0]')";
}
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Web Template.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print "
Your option was successful stored into our database.\n";
}
print_footer();
}
}
#### Payment Info Form
#######################
elsif ($action eq "Payment Info"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
$query="SELECT surname,middle,name,cc1,cc2,cc_type,expire_mon,expire_year,address,
city,zip,state,tel,cvvs FROM payment_info WHERE id='$buff[0]'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
@buff=$sth->fetchrow_array();
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Payment Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_payment(@buff);
print_footer();
}
}
#### Payment Info Update
#######################
elsif ($action eq "do_payment"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
$uid=$buff[0];
$buff[0]=(param('ch_surname'))?param('ch_surname'):"";
$buff[1]=(param('ch_middle'))?param('ch_middle'):"";
$buff[2]=(param('ch_name'))?param('ch_name'):"";
$buff[3]=(param('cc1'))?param('cc1'):"";
$buff[4]=(param('cc2'))?param('cc2'):"";
$buff[5]=(param('cc_type'))?param('cc_type'):"";
$buff[6]=(param('expire_mon'))?param('expire_mon'):"";
$buff[7]=(param('expire_year'))?param('expire_year'):"";
$buff[8]=(param('address'))?param('address'):"";
$buff[9]=(param('city'))?param('city'):"";
$buff[10]=(param('zip'))?param('zip'):"";
$buff[11]=(param('state'))?param('state'):"";
$buff[12]=(param('tel'))?param('tel'):"";
$buff[13]=(param('cvvs'))?param('cvvs'):"";
if($buff[0] eq "" || $buff[1] eq "" || $buff[2] eq "" || $buff[3] eq "" || $buff[4] eq "" || $buff[5] eq "" || $buff[6] eq "" || $buff[7] eq "" || $buff[8] eq "" || $buff[9] eq "" || $buff[10] eq "" || $buff[11] eq "" || $buff[12] eq "" || $buff[13] eq ""){
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Payment Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_payment(@buff);
print "One of the fields is empty!\n";
} else {
$buff[0]=quotemeta($buff[0]);
$buff[1]=quotemeta($buff[1]);
$buff[2]=quotemeta($buff[2]);
$buff[3]=quotemeta($buff[3]);
$buff[4]=quotemeta($buff[4]);
$buff[8]=quotemeta($buff[8]);
$buff[9]=quotemeta($buff[9]);
$buff[10]=quotemeta($buff[10]);
$buff[12]=quotemeta($buff[12]);
$buff[13]=quotemeta($buff[13]);
$query="UPDATE payment_info SET surname='$buff[0]',middle='$buff[1]',name='$buff[2]',cc1='$buff[3]',
cc2='$buff[4]',cc_type='$buff[5]',expire_mon='$buff[6]',expire_year='$buff[7]',
address='$buff[8]',city='$buff[9]',zip='$buff[10]',state='$buff[11]',tel='$buff[12]',
cvvs='$buff[13]' WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Payment Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print "
The data was successful stored into our database.\n";
}
print_footer();
}
}
#### Basic Info Form
####################
elsif ($action eq "Basic Info"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Basic Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_basic($buff[4],$buff[5],$buff[6],$buff[7],$buff[8]);
print_footer();
}
}
#### Basic Info Update
#######################
elsif ($action eq "do_basic"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$surname=(param('surname'))?param('surname'):"";
$salutation=(param('salutation'))?param('salutation'):"";
$middle=(param('middle'))?param('middle'):"";
$name=(param('name'))?param('name'):"";
$email=(param('email'))?param('email'):"";
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
if ($salutation eq ""){
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Basic Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_basic($salutation,$surname,$middle,$name,$email);
print "Salutation field is empty!\n";
print_footer();
} elsif ($surname eq ""){
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Basic Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_basic($salutation,$surname,$middle,$name,$email);
print "First name field is empty!\n";
print_footer();
} elsif ($middle eq ""){
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Basic Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_basic($salutation,$surname,$middle,$name,$email);
print "Middle initial field is empty!\n";
print_footer();
} elsif ($name eq ""){
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Basic Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_basic($salutation,$surname,$middle,$name,$email);
print "Last name field is empty!\n";
print_footer();
} elsif ($email eq ""){
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Basic Information.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print_basic($salutation,$surname,$middle,$name,$email);
print "Email field is empty!\n";
print_footer();
} else {
$surname=quotemeta($surname);
$middle=quotemeta($middle);
$name=quotemeta($name);
$email=quotemeta($email);
$query="UPDATE basic_auth SET salutation='$salutation',surname='$surname',middle='$middle',
name='$name',email='$email' WHERE id='$buff[0]'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Basic Info Change');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
print "
Basic information successfuly changed.\n";
print_footer();
}
}
}
# New Password form
elsif ($action eq "New Password"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
print "Set-Cookie: $Cookie\n";
if ($buff[1] eq "Y") {
print_header("Welcome to BizInc USA administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
} else {
print_header('Biz Inc USA - Change Password.');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
}
print<<"HTML";
HTML
print_footer();
}
}
# Change Password
##################
elsif ($action eq "Change"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0'){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
}
else {
my $oldpass=(param('old'))?param('old'):"";
my $npass=(param('password'))?param('password'):"";
my $cpass=(param('confirm'))?param('confirm'):"";
my $err="";
if ($password ne $oldpass){
$err="Old password is incorrect!";
}
if ($npass eq "" || $cpass eq ""){
$err="New password, or password confirmation is invalid!";
}
if ($npass ne $cpass){
$err="Passwords do not match!";
}
if ($err eq ""){
$cpass=quotemeta($npass);
$query="UPDATE basic_auth SET password='$cpass' WHERE id='$buff[0]'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
$password=$npass;
}
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
print "Set-Cookie: $Cookie\n";
if ($buff[1] eq "Y") {
print_header("Welcome to BizInc USA administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
} else {
print_header('Biz Inc USA - Password Change');
print_menu('Basic Info','Payment Info','Personal Info','Web Template','New Password','Logout');
}
if ($err eq ""){
print "
Password successfuly changed.\n";
} else {
print "
$err\n";
}
print_footer();
}
}
### Main
########################################
elsif ($action eq "Main"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0' || $buff[1] ne "Y"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
} else {
# Superusers.
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# getting users from database.
$query="SELECT id,username,surname,middle,name,status,validated,create_date,activation_date,prn
FROM basic_auth WHERE superuser='N' ORDER BY surname";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
print "Set-Cookie: $Cookie\n";
print_header("Welcome to BizInc USA administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
undef(@buff);
print<<"HTML";
|
#
|
Actions
|
Username
|
Full Name
|
Status
|
Valid
|
Signup Date
|
Activate On
|
PRN
|
HTML
$i=0;
while (@buff=$sth->fetchrow_array){
$bgcol=$bgcols[$i%2];
$i++;
$col=$colors[0];
if ($buff[5] eq "inactive"){
$col=$colors[1];
}
if ($buff[6] eq "N"){
$col=$colors[2];
}
print<<"HTML";
|
$i
|
HTML
if($buff[6] eq "Y"){
if ($buff[5] eq "inactive"){
print "\t\t\t![](\"imgs/activate.gif\") \n";
}
else {
print "\t\t\t![](\"imgs/deactivate.gif\") \n";
}
print "\t\t\t![](\"imgs/payment.gif\") \n";
}
print<<"HTML";
|
$buff[1]
|
$buff[2] $buff[3]. $buff[4]
|
$buff[5]
|
$buff[6]
|
$buff[7]
|
$buff[8]
|
$buff[9]
|
HTML
}
print<<"HTML";
|
HTML
print_footer();
}
}
### View payment info.
elsif ($action eq "View"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0' || $buff[1] ne "Y"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
} else {
$uid=(param('id'))?param('id'):"";
if ($uid eq ""){
print_error('Parameter id not defined. EXIT!');
$sth->finish();
db_disconnect();
exit(400);
}
# Superusers.
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# getting users from database.
$query="SELECT a.surname,a.middle,a.name,a.cc1,a.cc2,a.cc_type,a.expire_mon,a.expire_year,
a.address,a.city,a.zip,a.state,a.tel,a.cvvs,b.username,b.status
FROM payment_info a, basic_auth b WHERE a.id='$uid' AND a.id=b.id";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
undef(@buff);
@buff=$sth->fetchrow_array;
print "Set-Cookie: $Cookie\n";
print_header("Welcome to BizInc USA administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
print<<"HTML";
|
$buff[14]'s payment info:
|
HTML
if ($buff[15] eq "inactive"){
print "\t\t\t\n";
}else {
print "\t\t\t\n";
}
print<<"HTML";
|
|
Card Holder Full Name:
|
$buff[0] $buff[1]. $buff[2]
|
|
Credit Card No.:
|
$buff[3]-$buff[4]
|
|
Credit Card Type:
|
$buff[5]
|
|
Card Expiration Date:
|
$buff[6]/$buff[7]
|
|
Statement Address:
|
$buff[8]
|
|
Statement City:
|
$buff[9]
|
|
Statement Zip Code:
|
$buff[10]
|
|
Statement State:
|
$buff[11]
|
|
Card Holder Tel#:
|
$buff[12]
|
|
CVVS Code:
|
$buff[13]
|
|
HTML
print_footer();
}
}
### Activate an account
elsif ($action eq "Activate"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0' || $buff[1] ne "Y"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
} else {
$uid=(param('id'))?param('id'):"";
if ($uid eq ""){
print_error('Parameter id not defined. EXIT!');
$sth->finish();
db_disconnect();
exit(400);
}
# Superusers.
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# Getting user from database
$query="SELECT username,salutation,surname,middle,name,email,prn FROM basic_auth WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
undef(@buff);
@buff=$sth->fetchrow_array;
if (!defined(@buff) || $buff[0] eq ""){
print_error('Cannot find user in the database! Exit!');
$sth->finish();
db_disconnect();
exit(433);
}
# Create directory if necessary and adding index.
if (!-d $buff[0]){
mkdir $buff[0];
if (!open(DAT,"user.dat")) {
$sth->finish();
db_disconnect();
print_error ("Cannont create user.dat file!","Activation impossible!");
exit(213);
} else {
@tmp=;
close(DAT);
}
if (!open(CGIFILE,">","$buff[0]/index.cgi")){
$sth->finish();
db_disconnect();
print_error ("Cannont create user's index.cgi file!","Exit!");
exit(211);
} else {
foreach $xx (@tmp){
$xx =~ s/_ID_/$uid/g;
print CGIFILE "$xx";
}
close(CGIFILE);
chmod 0755,"$buff[0]/index.cgi";
}
}
# Updating status into database
$query="UPDATE basic_auth SET status='active',activation_date=now() WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
# We send a mail to the customer.
open (TEXT,"text/activation.txt");
@content=;
close(TEXT);
open (MAIL,"|$sendmail");
print MAIL "From: $ownerdesc <$owneremail>\n";
print MAIL "To: $buff[2] $buff[3]. $buff[4] <$buff[5]>\n";
print MAIL "Subject: [BizIncUSA] Your account was activated.\n\n";
foreach $xx (@content){
$xx=~ s/var\_salutation/$buff[1]/g;
$xx=~ s/var\_firstname/$buff[2]/g;
$xx=~ s/var\_middle/$buff[3]/g;
$xx=~ s/var\_lastname/$buff[4]/g;
$xx=~ s/var\_prn/$buff[6]/g;
$xx=~ s/var\_username/$buff[0]/g;
print MAIL "$xx";
}
close(MAIL);
#
print "Set-Cookie: $Cookie\n";
print_header("BizInc USA - Administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
print "
Account \"$buff[0]\" was successful activated.\n";
print_footer();
}
}
### DE-Activate an account
elsif ($action eq "Deactivate"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0' || $buff[1] ne "Y"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
} else {
$uid=(param('id'))?param('id'):"";
if ($uid eq ""){
print_error('Parameter id not defined. EXIT!');
$sth->finish();
db_disconnect();
exit(400);
}
# Superusers.
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# Getting user from database
$query="SELECT username,salutation,surname,middle,name,email,prn FROM basic_auth WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
undef(@buff);
@buff=$sth->fetchrow_array;
if (!defined(@buff) || $buff[0] eq ""){
print_error('Cannot find user in the database! Exit!');
$sth->finish();
db_disconnect();
exit(433);
}
# Updating status into database
$query="UPDATE basic_auth SET status='inactive' WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
# We send a mail to the customer.
open (TEXT,"text/deactivation.txt");
@content=;
close(TEXT);
open (MAIL,"|$sendmail");
print MAIL "From: $ownerdesc <$owneremail>\n";
print MAIL "To: $buff[2] $buff[3]. $buff[4] <$buff[5]>\n";
print MAIL "Subject: [BizIncUSA] Your account was deactivated.\n\n";
foreach $xx (@content){
$xx=~ s/var\_salutation/$buff[1]/g;
$xx=~ s/var\_firstname/$buff[2]/g;
$xx=~ s/var\_middle/$buff[3]/g;
$xx=~ s/var\_lastname/$buff[4]/g;
$xx=~ s/var\_prn/$buff[6]/g;
$xx=~ s/var\_username/$buff[0]/g;
print MAIL "$xx";
}
close(MAIL);
#
print "Set-Cookie: $Cookie\n";
print_header("BizInc USA - Administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
print "
Account \"$buff[0]\" was successful deactivated.\n";
print_footer();
}
}
### DELETE action, will require confirmation
elsif ($action eq "Delete"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0' || $buff[1] ne "Y"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
} else {
$uid=(param('id'))?param('id'):"";
if ($uid eq ""){
print_error('Parameter id not defined. EXIT!');
$sth->finish();
db_disconnect();
exit(400);
}
# Superusers.
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# Getting user from database
$query="SELECT username,salutation,surname,middle,name,email,prn FROM basic_auth WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
undef(@buff);
@buff=$sth->fetchrow_array;
if (!defined(@buff) || $buff[0] eq ""){
print_error('Cannot find user in the database! Exit!');
$sth->finish();
db_disconnect();
exit(433);
}
print "Set-Cookie: $Cookie\n";
print_header("BizInc USA - Administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
print<<"HTML";
Are you sure you want to delete user $buff[0] [$buff[2] $buff[3]. $buff[4]]?
HTML
print_footer();
}
}
### DELETE an account (confirmed)
elsif ($action eq "Confirm"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0' || $buff[1] ne "Y"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
} else {
$uid=(param('id'))?param('id'):"";
if ($uid eq ""){
print_error('Parameter id not defined. EXIT!');
$sth->finish();
db_disconnect();
exit(400);
}
# Superusers.
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# Getting user from database
$query="SELECT username,salutation,surname,middle,name,email,prn FROM basic_auth WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
undef(@buff);
@buff=$sth->fetchrow_array;
if (!defined(@buff) || $buff[0] eq ""){
print_error('Cannot find user in the database! Exit!');
$sth->finish();
db_disconnect();
exit(433);
}
#cleaning the directory!
if (-d $buff[0]){
opendir(DIR, $buff[0]);
@content=readdir(DIR);
closedir DIR;
foreach(@content){
unlink "$buff[0]/$_";
}
rmdir $buff[0];
}
# Delete User from all tables.
$query="DELETE FROM basic_auth WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
$query="DELETE FROM web_temp WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
$query="DELETE FROM payment_info WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
$query="DELETE FROM personal_info WHERE id='$uid'";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
print "Set-Cookie: $Cookie\n";
print_header("BizInc USA - Administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
print "
Account \"$buff[0]\" was successful deleted.\n";
print_footer();
}
}
### Send Emails Form
elsif ($action eq "Email"){
$username=$CookieData{'username'};
$password=$CookieData{'password'};
@buff=auth($username,$password,$sth);
if ($buff[0] eq '0' || $buff[1] ne "Y"){
$CookieData{'username'}="";
$CookieData{'password'}="";
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => 'now'
);
print "Set-Cookie: $Cookie\n";
print_header('Biz Inc USA - Session Expired.');
print_login();
print "Your session has expired. Please re-login.\n";
print_footer();
} else {
# Superusers.
$CookieData{'username'}=$username;
$CookieData{'password'}=$password;
$Cookie=cookie(
-name => "BizInc USA",
-value => \%CookieData,
-expires => '+120m'
);
# Getting userlist from database
$query="SELECT surname,name,email,username FROM basic_auth WHERE superuser='N' ORDER BY username";
$sth = $dbh->prepare($query);
if (!$sth) {
print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
db_disconnect();
exit(1);
}
$rc=$sth->execute;
if (!$rc) {
print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
$sth->finish();
db_disconnect();
exit(1);
}
print "Set-Cookie: $Cookie\n";
print_header("BizInc USA - Administration page");
print_menu('Main','Email','New Password','Trademark','Logout');
print<<"HTML";
|