PDA

View Full Version : I'm having problems installing a perl program.

lizaeyes
07-14-2005, 02:30 AM
HI

First time I posted here. Hopefully a perl expert can guide me. I bought a affiliate program call YOURcom. I have had nothing but problems getting it installed. I'm getting no support from the site that sold me the program.

The documentation tells me to put the script files in a folder called yourcom -- I did that.

Next it tells me to upload this folder to the cgi-bin -- I did that

Next it tells me to CHOMD cgi files to 755 and text files to 644 -- I did that

Next it tells me to CHOMD yourcom folder to 777 -- I did that.

Next (and here is where the problem starts) it tells me to open my browser and go to admin.cgi. When I do that I get the message

Internal Server Error

So I keep playing around with it. I changed the CMOD for the yourcom folder to 755 (even though the instructions say use 777) and this time it goes to the admin.cgi asking me to enter my admin passwords. I do that and hit return and now I get this message:

Security validation failed. Please make sure you have cookies enabeled on your browser!

Ok, I have several other perl programs and php programs that uses cookies and never had a problem, still I check I.E.6 to be sure my cookies are enabled and they are.

Since I can't get support from yoursoft (where I bought it) I have been trying to figure out how to resolve this. I'm not a perl programmer. Would anyone here have a clue? Hopefully I provided enough info for some feedback

thanks in advance for your help

Liza.
rwedge
07-14-2005, 03:48 AM
Sounds like you are having some fun. I notice their website says free support if you buy it.

The error text string Security validation failed. Please make sure you have cookies enabeled on your browser! could be a clue, you should be able to locate it in the file to see what is required to send this message.
If it is based on reading a cookie that was to be set that cannot be read, double check your browser settings. IE needs the domain added from tools, internet options, under the privacy settings.
If the error is caused by a data/text file that cannot be read or cannot be generated it could still be a permissions issue.

It is typical that a directory has it perms set to 0777, 0755 for executable Perl files, and 0644 for html, text, images etc.

Check you host requirements and look for any rescrictions. Some host have very good support so you could ask if you have questions about the set up.
lizaeyes
07-14-2005, 04:50 AM
Wow, thanks for your great reply. I did do some of those things. Checked with my host and they didn't want to touch it. I cleaned my cache out and checked what I could. When I looked at the admin.cgi file that is when I knew I was in trouble since I didn't have a clue, but I'll keep plugging away.

thanks again
Liza
FishMonger
07-14-2005, 05:47 AM
Can you post some of the code from the admin.cgi script and the exact wording of the error message? Also, if it doesn't already have it, add these lines near the beginning of the admin.cgi script.

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

warningsToBrowser(1); # put this line just after printing the headers.

That should provide a more informitive error messages.
lizaeyes
07-14-2005, 08:05 PM
Wow...thanks again for a response. Not sure exactly what part of the script to let you see. It is super long. I'll try posting it in parts. Not sure if this is appropriate or not, forgive me if it is not.

PART 1

#!/usr/bin/perl
##########################################################
# *** admin.cgi 1.3 ***
#
# This script is a part of the following program:
#
# ---- YOURcom 1.3 ----
#
# (c) Copyright 2002-2005 YOURsoft
# All rights reserved. http://www.yoursoft-tm.com
#
# Selling the code for this program without prior written consent is
# expressly forbidden. Obtain permission before redistributing this
# program over the Internet or in any other medium. In all cases
# copyright and header must remain intact.
#
# By using this code you agree to indemnify YOURsoft from any
# liability that might arise from it's use.
#
# Batteries not included
#
# Questions, suggestions, comments: www.yoursoft-tm.com
#
##########################################################
# use CGI::Carp qw(fatalsToBrowser);
################### DO NOT EDIT BELOW ####################

require 'load.cgi';
open(GOR,"ad_gor.txt");
@gor = <GOR>;
close(GOR);
open(DOL,"ad_dol.txt");
@dol = <DOL>;
close(DOL);
$banners = "banners.txt";
$textads = "textads.txt";
open (APASS,$adminpassfile);
$apass=<APASS>;
close(APASS);

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;}

if ($FORM{'adminpass'}) {&check_pass;}
&check_cookie;
if ($FORM{'dolocipass'}) {&preverinovogeslo;}
elsif ($FORM{'ID'}) {&do_admin;}
elsif ($FORM{'action'}) {&action;}
elsif ($FORM{'banners'}) {&banners;}
elsif ($FORM{'text'}) {&text;}
else {&please_login;}}
else{
unless (-e "$adminpassfile") {&dolocigeslo; exit;}
&please_login;
exit;}

sub settings {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000"> <tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000"> <tr>
<td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{sett}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="606"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{here_se}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form action="set.cgi" method="POST">
<input type="hidden" name="action" value="editpref"><input type="hidden" name="id_count" value="id_count.txt"><input type="hidden"
name="user_mails" value="usermails.txt"><input type="hidden" name="adminpassfile" value="admin.pass"><input type="hidden" name="template_up"
value="up.txt"><input type="hidden" name="template_down" value="down.txt">
<p align="left"><font size="2" face="Arial">$izrazi{below_se}<br><b>$izrazi{read_readme}</b></p>
<table border="1" cellpadding="2" cellspacing="0" width="600">
<tr>
<td width="150"><font size="2" face="Arial">$izrazi{site_name}</font></td>
<td width="450"><input type="text" size="30" name="site_name" value="$site_name"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{site_url}</font></td>
<td width="450"><input type="text" size="40" name="site_url" value="$site_url"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{admin_mail}</font></td>
<td width="450"><input type="text" size="30" name="admin_mail" value="$admin_mail"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{domena}</font></td>
<td width="450"><input type="text" size="20" name="domena" value="$domena"> <font size="2" face="Arial">$izrazi{place_dot}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{baseurl}</font></td>
<td width="450"><input type="text" size="40" name="baseurl" value="$baseurl"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{mailprog}</font></td>
<td width="450"><input type="text" size="20" name="mailprog" value="$mailprog"> <font size="2" face="Arial">$izrazi{dontforget}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{thank_you}</font></td>
<td width="450"><input type="text" size="40" name="thank_you" value="$thank_you"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{use_flock}</font></td>
<td width="450"><input type="text" size="5" name="use_flock" value="$use_flock"> <font size="2" face="Arial">$izrazi{yesno}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{use_sef_links}</font></td>
<td width="450"><input type="text" size="3" name="use_sef_links" value="$use_sef_links"> <font size="2" face="Arial">$izrazi{yesno}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{currency}</font></td>
<td width="450"><input type="text" size="5" name="currency" value="$currency"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{earned}</font></td>
<td width="450"><input type="text" size="5" name="earned" value="$earned"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{commission}</font></td>
<td width="450"><input type="text" size="5" name="commission" value="$commission"> <font size="2" face="Arial">$izrazi{isena}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{payout}</font></td>
<td width="450"><input type="text" size="5" name="payout" value="$payout"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{notify_sale}</font></td>
<td width="450"><input type="text" size="5" name="notify_sale" value="$notify_sale"> <font size="2" face="Arial">$izrazi{yesno}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{dig}</font></td>
<td width="450"><input type="text" size="5" name="dig" value="$dig"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{exptime}</font></td>
<td width="450"><input type="text" size="5" name="exptime" value="$exptime"> <font size="2" face="Arial">$izrazi{indays}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{refferral}</font></td>
<td width="450"><input type="text" size="3" name="refferral" value="$refferral"> $izrazi{yesno}</td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{refferral_bonus}</font></td>
<td width="450"><input type="text" size="5" name="refferral_bonus" value="$refferral_bonus"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{optional_field}</font></td>
<td width="450"><input type="text" size="5" name="optional_field" value="$optional_field"> <font size="2" face="Arial">$izrazi{upgradebefore}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{optional_field_txt}</font></td>
<td width="450"><input type="text" size="25" name="optional_field_txt" value="$optional_field_txt"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{optional_field_default_value}</font></td>
<td width="450"><input type="text" size="25" name="optional_field_default_value" value="$optional_field_default_value"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{ipn_secure}</font></td>
<td width="450"><input type="text" size="5" name="ipn_secure" value="$ipn_secure"> <font size="2" face="Arial">$izrazi{yesno}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{double_ipn}</font></td>
<td width="450"><input type="text" size="5" name="double_ipn" value="$double_ipn"> <font size="2" face="Arial">$izrazi{yesno}</font></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{ipn_script_url}</font></td>
<td width="450"><input type="text" size="40" name="ipn_script_url" value="$ipn_script_url"></td> </tr> </table>
<p align="center"><font size="2" face="Arial">$izrazi{please_sure}</font></p>
<p align="center"><input type="submit" value="$izrazi{sub_ch}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{cancel}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p align="center"><font size="2" face="Arial">$izrazi{go_back}</font></p>
<p align="center"><input type="submit" value="$izrazi{cancel}"></p>
</form></td> </tr> </table>
<p align="center">&nbsp;</p>
@dol
~;
exit;
}
lizaeyes
07-14-2005, 08:07 PM
Part II

sub showtxt {
if (-e $textads) {
open(BANNERS, $textads);
@banner = <BANNERS>;
close(BANNERS);
$num = push(@banner);
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{tae}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="600"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{vra}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="text" value="remove">
<p><font size="2" face="Arial">$izrazi{your_p} <b>$num</b> $izrazi{your_p2}</font></p>
<hr size="1" noshade width="90%">
<p align="center">
~;
$y=1;
foreach $ban (@banner){
chomp $ban;
($ad, $font, $fsize) = split(/%%/,$ban);
print "<p><input type=checkbox name=izberi value=$y> <a href=\"$site_url\"><font face=\"$font\" size=\"$fsize\">$ad</font></a></p>\n";
$y++;
}
print qq~
</p><hr size="1" noshade width="90%">
<p><input type="submit" value="$izrazi{remove_ad}*"></p>
<p><font size="2" face="Arial">* $izrazi{only1}</font></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="450"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{newta}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="text" value="add">
<p align="center"><font size="2" face="Arial">$izrazi{enter_text}<br>
<input type="text" size="30" name="besedilo"><br>
$izrazi{font}<br>
<input type="text" size="30" name="font" value="Verdana, Geneva, Arial, Helvetica, sans-serif"><br>
$izrazi{fsize}<br>
<input type="text" size="3" name="fsize" value="2"></font></p>
<p align="center"><input type="submit" value="$izrazi{ata}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{cancel}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p align="center"><font size="2" face="Arial">$izrazi{go_back}</font></p>
<p align="center"><input type="submit" value="$izrazi{cancel}"></p>
</form></td> </tr> </table>
@dol
~;
exit;}
else {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{tae}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="450"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{newta}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<p align="center"><font size="2" face="Arial">$izrazi{noads}<br>
$izrazi{use_text}</font></p>
<form action="admin.cgi" method="POST">
<input type="hidden" name="text" value="add">
<p align="center"><font size="2" face="Arial">$izrazi{enter_text}<br>
<input type="text" size="30" name="besedilo"><br>
$izrazi{font}<br>
<input type="text" size="30" name="font" value="Verdana, Geneva, Arial, Helvetica, sans-serif"><br>
$izrazi{fsize}<br>
<input type="text" size="3" name="fsize" value="2"></font></p>
<p align="center"><input type="submit" value="$izrazi{ata}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{cancel}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p align="center"><font size="2" face="Arial">$izrazi{go_back}</font></p>
<p align="center"><input type="submit" value="$izrazi{cancel}"></p>
</form></td> </tr> </table>
@dol
~;
exit;}
}

sub delete {
$id = $FORM{'delete'};
$log = "counts/$id.txt";
$temp_file = "temp/$id.txt";
$data_file = "userdata/$id.txt";
if(-e $data_file) {
open(DATA, $data_file);
$info = <DATA>;
close(DATA);
($id, $earnedr, $ime, $rec, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo) = split("%%",$info);
unlink("$data_file");}
if(-e $temp_file) {unlink("$temp_file");}
if(-e $log) {unlink("$log");}
open(EMAILS, $user_mails);
@emails = <EMAILS>;
close(EMAILS);
open(EMAILS, ">$user_mails");
flock(EMAILS, 2) unless $use_flock == 0;
foreach $line (@emails) {
chomp $line;
unless("$line" eq "$rec") {print EMAILS "$line\n";}
}
close(EMAILS);

print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{ud}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{user} <b>$id</b> $izrazi{was_removed}</font></p>
<div align="center"><center><form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p align="center"><input type="submit" value="$izrazi{ctc}"></p></form>
<p align="center">&nbsp;</p>
@dol
~;
exit;
}
sub action {
if ($FORM{'action'} eq "list") {&list;}
elsif ($FORM{'action'} eq "email") {&email;}
elsif ($FORM{'action'} eq "sendemail") {&sendemail;}
elsif ($FORM{'action'} eq "reset") {&reset_one;}
elsif ($FORM{'action'} eq "delete") {&delete;}
elsif ($FORM{'action'} eq "infof") {&infof;}
elsif ($FORM{'action'} eq "database") {&database;}
elsif ($FORM{'action'} eq "resetall") {&resetall;}
elsif ($FORM{'action'} eq "settings") {&settings;}
else {&please_login;}
}

sub resetall {
@files = <userdata/*>;
foreach $file (@files) {
open(FILE, $file);
$thisline=<FILE>;
close(FILE);
if ($optional_field == 1) {
($id, $earn, $ime, $rec, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo, $opt1) = split("%%",$thisline);
open(DATA, ">$file");
flock(DATA,2) unless $use_flock == 0;
print DATA "$id%%0%%$ime%%$rec%%$ulica%%$posta%%$kraj%%$state%%$drzava%%$tel%%$url%%$geslo%%$opt1";
close(DATA);
}
else {
($id, $earn, $ime, $rec, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo) = split("%%",$thisline);
open(DATA, ">$file");
flock(DATA,2) unless $use_flock == 0;
print DATA "$id%%0%%$ime%%$rec%%$ulica%%$posta%%$kraj%%$state%%$drzava%%$tel%%$url%%$geslo";
close(DATA);
}
}
@counts=<counts/*>;
foreach $counta (@counts) {
open(CNT, ">$counta");
flock(CNT,2) unless $use_flock == 0;
print CNT "0";
close(CNT);
}

print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{resetall_suc}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{resetall_ex}</font></p>
<p align="center">&nbsp;</p>
<p align="center"><form action="admin.cgi" method="POST"><input type="hidden" name="adminpass" value="$apass">
<input type="submit" value="$izrazi{ctc}"></form></p>
@dol
~;
exit;
}

sub database {
@files = <userdata/*>;
$doru = $FORM{'database'};
if ($doru eq "UP") {
foreach $file (@files) {
open(TMP, $file);
$tmp = <TMP>;
close(TMP);
$tmp .= "%%" . $optional_field_default_value;
open(TMP, ">$file");
flock(TMP, 2) unless $use_flock == 0;
print TMP "$tmp";
close(TMP);
}
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{upgrade_suc}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{up_suc}</font></p>
<p align="center">&nbsp;</p>
<p align="center"><form action="admin.cgi" method="POST"><input type="hidden" name="adminpass" value="$apass">
<input type="submit" value="$izrazi{ctc}"></form></p>
@dol
~;
}
elsif ($doru eq "DOWN") {
foreach $file (@files) {
open(TMP, $file);
$tmp = <TMP>;
close(TMP);
($id, $earned, $ime, $email, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo, $opt1) = split("%%",$tmp);
open(TMP, ">$file");
flock(TMP, 2) unless $use_flock == 0;
print TMP "$id%%$earned%%$ime%%$email%%$ulica%%$posta%%$kraj%%$state%%$drzava%%$tel%%$url%%$geslo";
close(TMP);
}
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{downgrade_suc}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{down_suc}</font></p>
<p align="center">&nbsp;</p>
<p align="center"><form action="admin.cgi" method="POST"><input type="hidden" name="adminpass" value="$apass">
<input type="submit" value="$izrazi{ctc}"></form></p>
@dol
~;
}
else {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{strange}</font></p>
<p align="center">&nbsp;</p>
@dol
~;
}
exit;
}

sub reset_one {
$id = $FORM{'res_id'};
$data_file = "userdata/$id.txt";
$stetje_file = "counts/$id.txt";
open(DATA, $data_file);
$info = <DATA>;
close(DATA);
if ($optional_field == 1) {
($id, $earned, $ime, $rec, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo, $opt1) = split("%%",$info);
open(DATA, ">$data_file");
flock(DATA,2) unless $use_flock == 0;
print DATA "$id%%0%%$ime%%$rec%%$ulica%%$posta%%$kraj%%$state%%$drzava%%$tel%%$url%%$geslo%%$opt1";
close(DATA);
}

else {($id, $earned, $ime, $rec, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo) = split("%%",$info);
open(DATA, ">$data_file");
flock(DATA,2) unless $use_flock == 0;
print DATA "$id%%0%%$ime%%$rec%%$ulica%%$posta%%$kraj%%$state%%$drzava%%$tel%%$url%%$geslo";
close(DATA); }
lizaeyes
07-14-2005, 08:09 PM
Part III

open(COUNTS, ">$stetje_file");
flock(COUNTS,2) unless $use_flock == 0;
print COUNTS "0";
close(COUNTS);
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{reset_suc}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{earnings_reset}</font></p>
<p align="center">&nbsp;</p>
<p align="center"><form action="admin.cgi" method="POST"><input type="hidden" name="adminpass" value="$apass">
<input type="submit" value="$izrazi{ctc}"></form></p>
@dol
~;
exit;
}

sub sendemail {
open(LIST,"$user_mails");
@addresses=<LIST>;
close(LIST);
$num_email=0;
foreach $line(@addresses) {
chomp($line);
open(MAIL, "|$mailprog");
print MAIL "To: $line \n";
print MAIL "From: $admin_mail <$admin_mail>\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL "$FORM{'message'}";
print MAIL "\n\n";
print MAIL "\n\n";
close (MAIL);
$num_email++;
}
open(MAIL, "|$mailprog");
print MAIL "To: $admin_mail \n";
print MAIL "From: $admin_mail <$admin_mail>\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL "$num_email $izrazi{num_sent} \n\n";
print MAIL"-----------------------------------------------------------------------------------------\n";
print MAIL "$FORM{'message'}";
print MAIL "\n\n";
print MAIL "\n\n";
close (MAIL);

print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{emailss}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$num_email $izrazi{emailwere}</font></p>
<p align="center"><font color="#000000" size="2" face="Arial"></font>&nbsp;</p>
<p align="center"><form action="admin.cgi" method="POST"><input type="hidden" name="adminpass" value="$apass">
<input type="submit" value="$izrazi{ctc}"></form></p>
@dol
~;
exit;
}
sub email {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{send_mail}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="600"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{send_m}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="action" value="sendemail">
<p><font size="2" face="Arial">$izrazi{subj}</font><br>
<input type="text" size="40" name="subject"></p>
<p><font size="2" face="Arial">$izrazi{msg}</font><br>
<textarea name="message" rows="15" cols="40"></textarea></p>
<p><input type="submit" value="$izrazi{send_em}"> <input type="reset" value="$izrazi{clear}"></form></p>
<hr size="1" noshade width="90%">
<p><form action="admin.cgi" method="POST"><input type="submit" value="$izrazi{return_admin}"><input type="hidden" name="adminpass" value="$apass"></p>
</form></td> </tr> </table>
@dol
~;
}
sub list {
@files = <userdata/*>;
print "Content-type: text/html\n\n";
print qq~
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000"> <tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000"> <tr>
<td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{list}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="600"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{list}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<p><font size="2" face="Arial">$izrazi{below_list}</font></p>
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p><input type="submit" value="$izrazi{return_admin}"></p></form>
<hr size="1" noshade width="90%">
<div align="center"><center><table border="0" cellpadding="3" cellspacing="0">
~;
foreach $file (@files) {
lizaeyes
07-14-2005, 08:11 PM
open(FILE, $file);
$temp_file = <FILE>;
close(FILE);
($id,$earned,$ime,$rec,$ulica,$posta,$kraj,$state,$drzava,$tel,$url,$geslo) = split("%%",$temp_file);
if ($a == "0") {
print qq~
<tr> <td bgcolor="#FFFFFF"><font size="2" face="Arial">ID: <b>$id</b> $izrazi{name} <b>$ime</b> $izrazi{ear} <b>$earned</b><br>$izrazi{e_mail}</font> <a href="mailto:$rec"><font size="2" face="Arial">$rec</font></a></td>
<td bgcolor="#FFFFFF"><form action="admin.cgi" method="POST"><input type="hidden" value="$id" name="ID"><input type="submit" value="$izrazi{veu}"></form></td> </tr>
~;
$a = 1;}
else {
print qq~
<tr> <td bgcolor="#CCFFFF"><font size="2" face="Arial">ID: <b>$id</b> $izrazi{name} <b>$ime</b> $izrazi{ear} <b>$earned</b><br>$izrazi{e_mail}</font> <a href="mailto:$rec"><font size="2" face="Arial">$rec</font></a></td>
<td bgcolor="#CCFFFF"><form action="admin.cgi" method="POST"><input type="hidden" value="$id" name="ID"><input type="submit" value="$izrazi{veu}"></form></td> </tr>
~;
$a = 0;}
}
print qq~
</table></center></div>
<hr size="1" noshade width="90%">
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p><input type="submit" value="$izrazi{return_admin}"></p></form>
</td> </tr> </table>
@dol
~;
}

sub show {
if (-e $banners) {
open(BANNERS, $banners);
@banner = <BANNERS>;
close(BANNERS);
$num = push(@banner);
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{be}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="600"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{vrb}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="banners" value="remove">
<p><font size="2" face="Arial">$izrazi{can_choose} <b>$num</b> $izrazi{can_choose2}<br>
$izrazi{not_size}</font></p>
<hr size="1" noshade width="90%">
<p align="center">
~;
$y=1;
foreach $ban (@banner){
chomp $ban;
($src, $height, $width, $alt) = split(/%%/,$ban);
print "<input type=checkbox name=izberi value=$y><img src=$src height=$height width=$width alt=\"$alt\" border=0><br>\n";
$y++;
}
print qq~
</p><hr size="1" noshade width="90%">
<p><input type="submit" value="$izrazi{remove_ban}*"></p>
<p><font size="2" face="Arial">* $izrazi{only1b}</font></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="450"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{add_ban}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="banners" value="add">
<p align="center"><font size="2" face="Arial">$izrazi{to_work_prop}</font></p>
<p align="center"><font size="2" face="Arial">$izrazi{i_url}</font><br>
<input type="text" size="40" name="url" value="http://"><br>
<font size="2" face="Arial">$izrazi{i_width}</font><br>
<input type="text" size="20" name="width"><br>
<font size="2" face="Arial">$izrazi{i_height}</font><br>
<input type="text" size="20" name="height"><br>
<font size="2" face="Arial">$izrazi{i_alt}</font><br>
<input type="text" size="30" name="alt"></p>
<p align="center"><input type="submit" value="$izrazi{add_banner}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{cancel}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p align="center"><font size="2" face="Arial">$izrazi{go_back}</font></p>
<p align="center"><input type="submit" value="$izrazi{cancel}"></p>
</form></td> </tr> </table>
@dol
~;
exit;}
else {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{be}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="450"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{add_ban}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="banners" value="add">
<p align="center"><font size="2" face="Arial">$izrazi{no_banners}</font></p>
<p align="center"><font size="2" face="Arial">$izrazi{to_work_prop}</font></p>
<p align="center"><font size="2" face="Arial">$izrazi{i_url}</font><br>
<input type="text" size="40" name="url" value="http://"><br>
<font size="2" face="Arial">$izrazi{i_width}</font><br>
<input type="text" size="20" name="width"><br>
<font size="2" face="Arial">$izrazi{i_height}</font><br>
<input type="text" size="20" name="height"><br>
<font size="2" face="Arial">$izrazi{i_alt}</font><br>
<input type="text" size="30" name="alt"></p>
<p align="center"><input type="submit" value="$izrazi{add_banner}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{cancel}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p align="center"><font size="2" face="Arial">$izrazi{go_back}</font></p>
<p align="center"><input type="submit" value="$izrazi{cancel}"></p>
</form></td> </tr> </table>
@dol
~;
exit;}
}
lizaeyes
07-14-2005, 08:12 PM
Part V

sub infof {
@a=<*>;
print "Content-type: text/html\n\n";
print "<html><head><title>Info</title><head><body><p>";
foreach $a (@a) {print "$a<br>";}
print "</p></body></html>";
}
sub dolocigeslo {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00"><p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{ch_pass}</b></font><br>
<font color="#000000" size="2" face="Arial">$izrazi{please_pass}</font></p>
<form action="admin.cgi" method="POST">
<p align="center"><font color="#000000" size="2" face="Arial"><b>$izrazi{apass}</b></font><br>
<input type="password" size="13" name="dolocipass"><br>
<font color="#000000" size="2" face="Arial"><b>$izrazi{verify_apass}</b></font><br>
<input type="password" size="13" name="dolocipass2"><br><br>
<input type="submit" value="$izrazi{set_pass}"></p>
</form>
@dol
~;
}
sub preverinovogeslo {
unless ($FORM{'dolocipass'} eq $FORM{'dolocipass2'}) {
print "Content-type: text/html \n\n";
print "@gor\n";
print "<div align=center><center>";
print qq~
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{not_equal}</font></p>
<p align="center">&nbsp;</p>
@dol
~;
exit;}

$dolocipassword = $FORM{'dolocipass'};
open (PASSWORD, ">$adminpassfile") or problem("$izrazi{cant_admin}");
print PASSWORD "$dolocipassword";
close (PASSWORD);
print "Content-type: text/html \n\n";
print "@gor\n";
print "<div align=center><center>";
print qq~
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{pass_set}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{ypws}</font></p>
<p align="center">&nbsp;</p>
<p align="center"><form action="admin.cgi" method="GET"><input type="submit" value="$izrazi{ctc}"></form></p>
@dol
~;
exit;
}
sub check_pass {
if ($FORM{'adminpass'} eq $apass) {
print "Set-Cookie: yourcom_admin=$apass\n";
&pokazi;}
else {print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{wrng_pass}</font></p>
<p align="center">&nbsp;</p>
@dol
~;
exit;}
}
sub do_admin {
$id = $FORM{'ID'};
$log = "counts/$id.txt";
$data_file = "userdata/$id.txt";

if (-e "$data_file") {
open (DATA,$data_file);
@userinfo=<DATA>;
close(DATA);
chomp($userinfo[0]);
if ($optional_field == 1) {
($id, $earned, $ime, $email, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo, $opt1) = split("%%",$userinfo[0]);
}
else {($id, $earned, $ime, $email, $ulica, $posta, $kraj, $state, $drzava, $tel, $url, $geslo) = split("%%",$userinfo[0]); }
}
else {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">$izrazi{user} $id $izrazi{no_exist}</font></p>
<p align="center">&nbsp;</p>
<p align="center"><form action="admin.cgi" method="POST"><input type="hidden" name="adminpass" value="$apass">
<input type="submit" value="$izrazi{ctc}"></form></p>
@dol
~;
exit;
}
lizaeyes
07-14-2005, 08:13 PM
Part vI

open (LOG,$log);
$count=<LOG>;
close(LOG);
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000"> <tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000"> <tr>
<td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{uep}</b></font></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{veu}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form action="spremeni.cgi" method="POST">
<input type="hidden" name="changeuser" value="admin">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="earned" value="$earned">
<input type="hidden" name="oldmail" value="$email">
<p align="left"><font size="2" face="Arial">$izrazi{user} ID: <b>$id</b><br>
$izrazi{clicks} <b>$count</b><br>
$izrazi{com} ($currency): <b>$earned</b><br>
$izrazi{add_ear} <input type="text" name="add_er" value="0.00" size="5"> $currency $izrazi{add_to}</p>
<table border="1" cellpadding="2" cellspacing="0" width="350">
<tr>
<td width="150"><font size="2" face="Arial">$izrazi{fullname}</font></td>
<td width="200"><input type="text" size="20" name="ime" value="$ime"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{address}</font></td>
<td width="200"><input type="text" size="20" name="ulica" value="$ulica"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{city}</font></td>
<td width="200"><input type="text" size="20" name="kraj" value="$kraj"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{state}</font></td>
<td width="200"><input type="text" size="20" name="state" value="$state"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{zip}</font></td>
<td width="200"><input type="text" size="20" name="posta" value="$posta"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{country}</font></td>
<td width="200"><input type="text" size="20" name="drzava" value="$drzava"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{phone}</font></td>
<td width="200"><input type="text" size="20" name="tel" value="$tel"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{e_mail}</font></td>
<td width="200"><input type="text" size="20" name="email" value="$email"></td>
~;
if ($optional_field ==1) {print qq~ </tr> <tr>
<td width="150"><font size="2" face="Arial">$optional_field_txt</font></td>
<td width="200"><input type="text" size="20" name="opt1" value="$opt1"></td> ~; }
print qq~
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{site_url}</font></td>
<td width="200"><input type="text" size="20" name="url" value="$url"></td>
</tr> <tr>
<td width="150"><font size="2" face="Arial">$izrazi{apass}</font></td>
<td width="200"><input type="text" size="20" name="geslo" value="$geslo"></td> </tr> </table>
<p align="center"><input type="submit" value="$izrazi{sub_ch}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{resete}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<p align="center"><font size="2" face="Arial">$izrazi{res_pay}</font></p>
<input type="hidden" name="action" value="reset"><input type="hidden" name="res_id" value="$id">
<p align="center"><input type="submit" value="$izrazi{resete}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{del}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<p align="center"><font size="2" face="Arial">$izrazi{if_del}<br>
<b>$izrazi{if_del2}</b></font></p>
<input type="hidden" name="action" value="delete"><input type="hidden" name="delete" value="$id">
<p align="center"><input type="submit" value="$izrazi{yes_del}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{veu}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<p align="center"><font size="2" face="Arial">$izrazi{ve_another}</font></p>
<p align="center"><font size="2" face="Arial">$izrazi{user_id}</font><br>
<input type="text" size="10" name="ID"></p>
<p align="center"><input type="submit" value="$izrazi{veu}"></p>
</form></td> </tr> </table>
</center></div>
<p>&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{cancel}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="adminpass" value="$apass">
<p align="center"><font size="2" face="Arial">$izrazi{go_back}</font></p>
<p align="center"><input type="submit" value="$izrazi{cancel}"></p>
</form></td> </tr> </table>
<p align="center">&nbsp;</p>
@dol
~;
}
sub pokazi {
if (-e "$id_count") {open (IDCOUNT,$id_count);}
else {open (IDCOUNT,">$id_count"); print IDCOUNT "0";close(IDCOUNT);open(IDCOUNT,$id_count);}
$id_cnt=<IDCOUNT>;
close(IDCOUNT);
@stevilo = <userdata/*>;
$koliko = $#stevilo+1;

print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{welcome_admin}</b></font><font color="#000000" size="2" face="Arial"><br>
$id_cnt $izrazi{up_now} $koliko $izrazi{still}</font></p>
<p align="center"><a href="sales.cgi" target="_blank"><font color="#000000" size="2" face="Arial">$izrazi{view_sales}</font></a></p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"><tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{veu}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form method="POST" action="admin.cgi">
<p align="center"><font size="2" face="Arial">$izrazi{user_id}</font><br>
<input type="text" size="10" name="ID"></p>
<p align="center"><input type="submit" value="$izrazi{veu}"></p>
</form> </td> </tr> </table> </center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Verdana">$izrazi{settings}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form method="POST" action="admin.cgi"><input type="hidden" name="action" value="settings">
<p align="center"><font size="2" face="Arial">$izrazi{here_se}</font></p>
<p align="center"><input type="submit" value="$izrazi{enter_se}"></p>
</form> </td> </tr> </table>
</center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Verdana">$izrazi{be}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form method="POST" action="admin.cgi"><input type="hidden" name="banners" value="show">
<p align="center"><font size="2" face="Arial">$izrazi{here_be}</font></p>
<p align="center"><input type="submit" value="$izrazi{enter_be}"></p>
</form> </td> </tr> </table>
</center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Verdana">$izrazi{tae}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form method="POST" action="admin.cgi"><input type="hidden" name="text" value="show">
<p align="center"><font size="2" face="Arial">$izrazi{here_ad}</font></p>
<p align="center"><input type="submit" value="$izrazi{enter_ta}"></p>
</form> </td> </tr> </table>
</center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{list_all}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="action" value="list">
<p align="center"><font size="2" face="Arial">$izrazi{see_list}</font></p>
<p align="center"><input type="submit" value="$izrazi{list_all}"></p>
</form> </td> </tr> </table>
</center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{reset_all}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="action" value="resetall">
<p align="center"><font size="2" face="Arial">$izrazi{reset_all_explain}</font></p>
<p align="center"><input type="submit" value="$izrazi{reset_all}"></p>
</form> </td> </tr> </table>
</center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{email_all_users}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="action" value="email">
<p align="center"><font size="2" face="Arial">$izrazi{if_email}</font></p>
<p align="center"><input type="submit" value="$izrazi{email_all_users}"></p>
</form></td> </tr> </table>
</center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"> <tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{up_dwn_database}</font></td>
</tr> <tr> <td align="center" bgcolor="#C0C0C0">
<form action="admin.cgi" method="POST">
<input type="hidden" name="action" value="database">
<p align="center"><font size="2" face="Arial">$izrazi{up_down}<br><br><input type="radio" name="database" value="UP"> $izrazi{upgrade}<br>
<input type="radio" name="database" value="DOWN"> $izrazi{downgrade}</font></p>
<p align="center"><input type="submit" value="$izrazi{execute}"></p>
</form></td> </tr> </table>
</center></div>
<p align="center">&nbsp;</p>
<div align="center"><center>
<table border="1" cellspacing="0" width="300"><tr>
<td align="center" bgcolor="#8080FF"><font color="#FFFFFF" size="2" face="Arial">$izrazi{cap}</font></td>
</tr> <tr>
<td align="center" bgcolor="#C0C0C0">
<form method="POST" action="admin.cgi">
<p align="center"><font size="2" face="Arial">$izrazi{new_pass}<br><input type="password" size="10" name="dolocipass"><br>
$izrazi{verify_apass}<br><input type="password" size="10" name="dolocipass2"></p>
<p align="center"><input type="submit" value="$izrazi{set_new_pass}"></p>
</form> </td> </tr> </table>
@dol
~;
exit;
}
sub please_login {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{welcome_admin}</b></font><br>
<font color="#000000" size="2" face="Arial">$izrazi{please_apass}</font></p>
<form action="admin.cgi" method="POST">
<p align="center"><font color="#000000" size="2" face="Arial"><b>$izrazi{apass}</b></font><br>
<input type="password" size="13" name="adminpass"><br> <br>
<font size="2"><b><input type="submit" value="$izrazi{login}"></b></font></p>
</form>
@dol
~;
}
sub banners {
$action=$FORM{'banners'};
if ($action eq "show") {&show;}
elsif ($action eq "remove") {&remove;}
elsif ($action eq "add") {&add;}
else {&show;}
}
sub text {
$action=$FORM{'text'};
if ($action eq "show") {&showtxt;}
elsif ($action eq "remove") {&removetxt;}
elsif ($action eq "add") {&addtxt;}
else {&showtxt;}
}
sub remove {
$izberi=$FORM{'izberi'};
if ($izberi eq "") {&show;}
else {
open(BANNERS, $banners);
@banner = <BANNERS>;
close(BANNERS);
$y=1;

open (TEMP, ">$banners");
foreach $line (@banner){
unless ($izberi == $y) {print TEMP "$line";}
$y++;}
close (TEMP);
&show;}
}
sub removetxt {
$izberi=$FORM{'izberi'};
if ($izberi eq "") {&showtxt;}
else {
open(BANNERS, $textads);
@banner = <BANNERS>;
close(BANNERS);
$y=1;
open (TEMP, ">$textads");
foreach $line (@banner){
unless ($izberi == $y) {print TEMP "$line";}
$y++;}
close (TEMP);
&showtxt;}
}
sub add {
if (-e $banners) {open(BANNERS, ">>$banners");}
else {open(BANNERS, ">$banners");}
print BANNERS "$FORM{'url'}%%$FORM{'height'}%%$FORM{'width'}%%$FORM{'alt'}\n";
close(BANNERS);
&show;
}
sub addtxt {
if (-e $textads) {open(BANNERS, ">>$textads");}
else {open(BANNERS, ">$textads");}
print BANNERS "$FORM{'besedilo'}%%$FORM{'font'}%%$FORM{'fsize'}\n";
close(BANNERS);
&showtxt;
}

sub check_cookie {
use CGI qw/:standard/;
use CGI::Cookie;
%cookies = fetch CGI::Cookie;
if ($cookies{'yourcom_admin'}) {
$checkvalue = $cookies{'yourcom_admin'}->value;
unless ($checkvalue eq $apass) {print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">Security validation failed. Please make sure you have cookies enabeled on your browser!</font></p>
<p align="center">&nbsp;</p>
@dol
~;
exit;}
}
else {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">Security validation failed. Please make sure you have cookies enabeled on your browser!</font></p>
<p align="center">&nbsp;</p>
@dol
~;
exit;
}
}
FishMonger
07-14-2005, 08:17 PM
You bought this script? Can you get your money back?
Kickin
07-14-2005, 08:39 PM
lizaeyes: You said you talked to your host and they will not touch it, but I think what rwedge meant was the company you bought it from offers free installation. You might want to contact them.
rwedge
07-14-2005, 08:46 PM
This is were the error message is generated:sub check_cookie {
use CGI qw/:standard/;
use CGI::Cookie;
%cookies = fetch CGI::Cookie;
if ($cookies{'yourcom_admin'}) {
$checkvalue = $cookies{'yourcom_admin'}->value;
unless ($checkvalue eq $apass) {print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">Security validation failed. Please make sure you have cookies enabeled on your browser!</font></p>
<p align="center">&nbsp;</p>
@dol
~;
exit;}
}
else {
print "Content-type: text/html\n\n";
print qq~
@gor
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#000000"><table border="0" cellspacing="1" width="100%" bgcolor="#000000">
<tr> <td width="100%" bgcolor="#FFCC00">
<p align="center"><font color="#000000" size="4" face="Arial"><b>$izrazi{error}</b></font></p>
<p align="center"><font color="#000000" size="2" face="Arial">Security validation failed. Please make sure you have cookies enabeled on your browser!</font></p>
<p align="center">&nbsp;</p>
@dol
~;
exit;
}
}

CGI::Cookie (http://search.cpan.org/dist/CGI.pm/CGI/Cookie.pm) is being used.

if ($cookies{'yourcom_admin'}) {
$checkvalue = $cookies{'yourcom_admin'}->value;
unless ($checkvalue eq $apass) you get the enable cookie message
}
else {
you get the enable cookie message
}
lizaeyes
07-14-2005, 11:00 PM
Thanks again guys for all your support. Let me try to answer some questions.

1. I did talk to the people I bought it from.....well, I sent him 4 emails. No replies. There is no phone number to call.

2. I tried my host also just to see if they could help, but no way.

3. Getting my money back????????? I wish. If that was the case, I probably would not be bothering you nice people. I purchased it through pay pal. Called them and they said they can not issue a refund for intangible items. Hmmmm, I learn my lesson to never buy software again using pay pal.

Anyways, all of the above is why I ended up searching the net for some help. I guess I'm out $60 and if I can't get the people who sold it to me to help me, I lose. Just so you know, before I purchased the software I sent several emails to YOURsoft and they immediately responded telling me they would be there if I needed help. After purchase, I have not heard from them.

What can I say -- live and learn.
rwedge
07-15-2005, 05:48 AM
In the posted script I did not see "new CGI::Cookie" to set the cookie, just "fetch CGI::Cookie;" .

Is it in load.cgi; ?

Should be something like :
$c = new CGI::Cookie(-name => 'foo',
-value => 'bar',
-expires => '+3M',
-domain => '.yourdomain.com',
-path => '/cgi-bin/yourcom',
-secure => 1
);
lizaeyes
07-17-2005, 08:26 PM
Hey Guys

I have been out of town the last few days. Thanks, thanks, thanks. Rwedge, you were right on with your solution, but I want you all to know how much I appreciate everyones efforts. I played around with the code your provided Rwedge and all of a sudden things started to work. You even had the name of the file correct (load.cgi).

May I impose for another question. There is one file with this script called language.var. I found the part I want to change, but I can't seem to do it. The part of the script I want to add something to is below (called USER AREA) All I want to do is add a link to my home page. I did it the normal html way ( <a href="http://www.xxxxxxxx.com">Home</a> ), but got an error when I loaded the script. I want to put the hyperlink right after these words

to_use => "To use a banner or a text add on your site, just copy the HTML code below and paste<br>it into your HTML document where you want it to appear!",

I'm not sure what a var file is. How would I put a hyperlink in this var file? For that matter, how would I do it for any of the cgi files also?

Sorry for being so ignorant. I did a google serch for hyperlinking var files and I kept getting instructions for jar file. It's like google doesn't know var files exist. Thanks again Rwedge.

Liza

#### USER AREA ####

welcome_user => "Welcome to User area",
please_insert => "Please Insert Your ID number and Password",
uip => "User info page",
yai => "Your account information",
clicks => "Number of clicks:",
com => "Commission earned",
fullname => "Full name:",
address => "Address:",
city => "City:",
state => "State / Province:",
zip => "Zip code:",
country => "Country:",
phone => "Phone:",
site_url => "Site URL:",
sub_ch => "Submit changes",
get_html => "Get HTML code",
here_code => "Here you will get HTML code for our banners and text ads",
click2exit => "Click below to exit User area",
return_user => "Please return to the previous page and enter your ID and password.",
html_generator => "HTML code generator",
get_code => "Get HTML code for banners and text ads",
here_are => "Here are our banners and text ads, choose the one you like best and fits into your site the most!",
to_use => "To use a banner or a text add on your site, just copy the HTML code below and paste<br>it into your HTML document where you want it to appear!",
code_ban => "HTML code for Banner",
code_textad => "HTML code for Text ad",
newebmaster => "you have referred a new webmaster to our affiliate program",
rwedge
07-18-2005, 01:35 AM
Glad things are working.
If you want to add a text link to the USERS LIST you will have to escape the quotes in the html coding:

code_textad => "<a href=\"http://www.xxxxxxxx.com\">Home</a>",

so the quotes around the link do not interfere with the quotes which hold the string data
Ramesiv
03-22-2006, 11:30 PM
I'm also haveing a problem like this.