#!/usr/bin/perl # ^ Set this to your location of perl ^ ############################################################ # # Count 'Em - Version 1.1 # Count.cgi # This script allows users to sign up and modify their counters. # # Written by jumpworld.net # All questions should be directed to webmaster@jumpworld.net # # To Do in next version: # More Counter Styles # Got a request: Email webmaster@jumpworld.net # ############################################################## # # This script is NOT freeware. Registration is US $35 which # includes free updates, support and one liscence. # 'We don't believe in charging for the same script twice' # # By using this script you agree to exclude us from any liability # that might arise from its use. # # Redistributing\selling the code for this program without prior # written consent is expressly forbidden. ############################################################### # Name of this script $scriptname = 'count.cgi'; # Url to counter file. $url = 'http://www.mom.to/counter/img_counter.cgi'; # Path to datafile $datafile ='/home/momto/ftp/counter/datafile.txt'; # Path to counter file $path = '/home/momto/ftp/counter'; # Site url $site= 'http://www.mom.to/counter/count.cgi'; # Site title $title ='MOM'; # Location of header file $header = 'header.txt'; # Location of footer file $footer = 'footer.txt'; # Location of footer file $counts = 'counts.txt'; # FILE LOCKING -- 0 = off 1 = on # # Not recommended to be turned off # # Only turn off on NT systems # $use_flock = "1"; # Send Email Confirmations of sign ups -- 0 = off 1 = on # # Turn off to make sign up process quicker # $use_email = "1"; # If above is set to 1 put location of sendmail $sendmail="/usr/lib/sendmail"; # Your email address (if usemail = 1) $youremail ="MOM\@MOM.to"; ##### No more editing Required ##### open (FILE,"$header"); @header=; close(FILE); open (FILE,"$footer"); @footer=; close(FILE); # HTML Output print "Content-type: text/html\n\n"; ################################ # Get all the form info ################################ sub form_info { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); if ($ENV{'QUERY_STRING'}) {$buffer = "$buffer\&$ENV{'QUERY_STRING'}";} @pairs = split(/&/,$buffer); foreach $pair (@pairs) {($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $FORM{$name} = $value;} } # CALL THE SUB ABOVE &form_info; # Do some defining $name2 = $FORM{'name'}; $password = $FORM{'password'}; $cvalue = $FORM{'cvalue'}; $uurl = $FORM{'url'}; $email = $FORM{'email'}; $success = ""; ############## Figure out what the user wants to do ############## if ($FORM{'action'} eq "Create new counter") { &create; } elsif ($FORM{'action'} eq "Create Counter") { &newreal; } elsif ($FORM{'action'} eq "Modify Counter") { &modify; } elsif ($FORM{'action'} eq "Modify") { &modreal; } elsif ($FORM{'action'} eq "Change") { &uchange; } elsif ($FORM{'action'} eq "Delete Counter") { &deletehtm; } elsif ($FORM{'action'} eq "Delete") { &delete; } else { &panel; } sub create { print<Create Counter @header
Add a record
@footer EOF exit; } sub panel { print< Free Counters @header

$title

EOF exit; } sub newreal { $message = "" ; $found_err = "" ; # Start checking form for errors $errmsg = "

Field 'url' must be filled in.

\n" ; if ($uurl eq "") { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Field 'username' must be filled in with only the characters a-z, 0-9, and dashes.

\n" ; if ($name2 eq "") { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Please enter a valid email address

\n" ; if ($email !~ /.+\@.+\..+/) { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Field 'password' must be filled in.

\n" ; if ($password eq "") { $message = $message.$errmsg ; $found_err = 1 ; } $errmsg = "

Sorry, that username is taken. Pick another.

\n" ; open(DATA,"<$datafile"); @subs=; close(DATA); foreach $sub(@subs){ @subdata = split(/\|/,$sub); if(@subdata[0] eq $name2){ $message = $message.$errmsg ; $found_err = 1 ; } } if ($found_err) { &PrintError; } else { open(DATA,">>$datafile"); print DATA "$name2|$password|$uurl|$email\n"; close(DATA); open (NEWID,">$name2.dat"); if ($use_flock) { flock NEWID, 2; } print NEWID "0"; close (NEWID); open (ID,"$counts"); if ($use_flock) { flock ID, 2; } $new = ; $new++; close (ID); open (NEW,">$counts"); if ($use_flock) { flock NEW, 2; } print NEW "$new"; close (NEW); if ($use_email) { open (MAIL, "| $sendmail -t") || die "I can't open sendmail\n"; print MAIL "To: $email\n"; print MAIL "From: $youremail\n"; print MAIL "Subject: $title Free Counters\n"; print MAIL "Thanks for signing up for the Our Free Counters:\n"; print MAIL "Your information is as follows.\n"; print MAIL "Username: $name2
Password: $password
\n"; print MAIL "You can log in and modify your account at any time.\n"; print MAIL "$url\n"; close (MAIL); } print<Counter Created @header
Your new counter has been created.
The code is:
<a href="$site"><img src="$url?$name2.dat:1"></a>
White digits and black background
Or
<a href="$site"><img src="$url?$name2.dat:0"></a>
Black digits and whit background

You can modify your account at anytime by logging in.

@footer EOF exit; } } sub modify { print<Modify @header

@footer EOF exit; } sub modreal { open(DATA,"<$datafile"); @subs=; close(DATA); $i=-1; foreach $sub(@subs){ $i=$i+1; @subdata = split(/\|/,$sub); if(@subdata[0] eq $name2){ if(@subdata[1] eq $password){ &userpanel } else { print "Error!\n"; print "There was an error.\n"; print "

Wrong password.

\n"; print "

Click the 'Back' button to try again.

\n\n"; exit; } } } } sub userpanel{ open(DATA,"<$path/$name2.dat"); @subs=; close(DATA); print<User Logged in @header
Welcome @subdata[2]
$success
Your current counter value is @subs.

The code for your counter is:
<a href="$site"><img src="$url?$name2.dat:1"></a>
White digits and black background
Or
<a href="$site"><img src="$url?$name2.dat:0"></a>
Black digits and whit background

Change Value

@footer EOF exit; } sub uchange { open(DATA,">$name2.dat"); if ($use_flock) { flock DATA, 2; } $temp="$cvalue"; print DATA "$temp"; close(DATA); $success="Counter Value Changed"; &userpanel; } sub deletehtm { print<Delete Counter @header
Are you sure you want to delete?

@footer EOF exit; } sub delete { open(DATA,"<$datafile"); @subs=; close(DATA); $i=-1; foreach $sub(@subs){ $i=$i+1; @subdata = split(/\|/,$sub); if(@subdata[0] eq $name2){ @subs[$i]=""; } } $ii=-1; open(DATA,">$datafile"); while($ii<=$i+1){ $ii=$ii+1; $temp="@subs[$ii]"; print DATA "$temp"; } close(DATA); unlink "$path/$name2.dat"; print< Your counter has been deleted

. $title
@footer
EOF exit; } sub PrintError { print "Content-type: text/html\n\n"; print "Error!\n"; print "

Error!

\n"; print $message ; print "

Click the 'Back' button to try again.

"; exit 0 ; return 1 ; }