xSMOKERS!

#!/usr/bin/perl ##### - Copyright 2001 - wesley e. warren - wesley@intereach.net - ##### ##################################################################################### $ServerCGIdir = '/home/virtual/site40/fst/var/www/cgi-bin'; $RootDir = '/home/virtual/site40/fst/var/www/html'; $ThisDir = '/home/virtual/site40/fst/var/www/html/xsmokers/'; $Database = $ThisDir."DATABASE"; $cgiLibrary = 'cgi-lib.pl'; require($cgiLibrary); #$cgi_lib::writefiles = '/home/virtual/site40/fst/var/www/html/xsmokers/tmp/'; #$cgi_lib::maxdata = 80000; &ReadParse(\%in); #,\%filenames #subs: READ - SAVE - WRITE - ERROR - #SENDMAIL(from,to,subject,body,cc); &READ($RootDir."/inc/submenu.txt"); $SUBMENU = $RETURN; ##################################################################################### print "Content-type:text/html\n\n"; if ($in{show}) { &ShowPage; } if ($in{admindelete}) { &Delete; } if ($in{screen} eq "login") { &LoginPage; } #display login box if ($in{submit} eq "Login") { &LoadData; } #loaddata if ($in{submit} eq "Make my page") { &MakePage('new'); } if ($in{submit} eq "Update my page") {&MakePage('update'); } if ($in{submit} eq "MakeApage") { require($ThisDir.'my_page_editor.shtml'); exit; } ###### List all users dbmopen(%DB,$Database,0600); @keys = keys(%DB); dbmclose(%DB); if ($in{"admin"} eq "admin") { $de = "1"; } else { $de = "0"; } foreach $item (@keys){ $HTML .= "

$item"."'s page"; if ($de eq "1") { $HTML .= " - - - DELETE $item"."'s page"; } $HTML .= "
\n"; } #### #### THIS IS THE PAGE THAT LIST ALL USERS print <<___HTML___; xSMOKERS!

here are all the pages people have made. you can also

$Notify

$HTML

___HTML___ ######## subs ########################################################### ################################################################################################ sub Delete { dbmopen(%DB,$Database,0600); delete($DB{"$in{admindelete}"}); dbmclose(%DB); $Notify = "
$in{admindelete} DELETED!
\n"; } #end Delete ################################################################################################ sub LoadData { dbmopen(%DB,$Database,0600); $ALLdata = $DB{"$in{userid}"}; ($userid, $password, $in{img}, $in{email}, $in{quitdate}, $in{spentaday}, $in{links_i_like1}, $in{links_i_like2}, $in{links_i_like3}, $in{bgcolor}, $in{link}, $in{text}, $in{vlink}, $in{mystory}) = split("\t",$ALLdata); dbmclose(%DB); unless($password eq $in{password}) { &ERROR("Password does not match, check spelling and CAPS!"); exit; } require($ThisDir.'editor.shtml'); exit; } #end LoadData ################################################################################################ ################################################################################################ ################################################################################################ sub LoginPage { print <<___HTM___;

___HTM___ exit; } #end LoginPage ################################################################################################ sub ShowPage { dbmopen(%DB,$Database,0600); $ALLdata = $DB{"$in{show}"}; dbmclose(%DB); ($in{userid}, $in{password}, $in{img}, $in{email}, $in{quitdate}, $in{spentaday}, $in{links_i_like1}, $in{links_i_like2}, $in{links_i_like3}, $in{bgcolor}, $in{link}, $in{text}, $in{vlink}, $in{mystory}) = split("\t",$ALLdata); $in{mystory} =~ s/\r/\/g; $saved = '<under construction>'; if (length("$in{img}") < 7) { $in{img} = '/images/mypic.gif'} $in{img} =~ s/xsmokers/users\/ucanbreathe\/www\/xsmokers/i; require($ThisDir.'template.shtml'); exit; } #end ShowPage ################################################################################################ ################################################################################################ sub MakePage { dbmopen(%DB,$Database,0600); unless(@_[0] eq "update"){ if ($DB{"$in{userid}"}) { &ERROR("$in{userid} already exist, please choose another userid"); exit;} } $in{mystory} =~ s/\t//g; $in{mystory} =~ s/\;//g; $in{mystory} =~ s/\"//g; if ($in{img} eq 'http://'){ $in{img} = ""; } $DB{"$in{userid}"} = "$in{userid}\t$in{password}\t$in{img}\t$in{email}\t$in{quitdate}\t$in{spentaday}\t"; $DB{"$in{userid}"} .= "$in{links_i_like1}\t$in{links_i_like2}\t$in{links_i_like3}\t"; $DB{"$in{userid}"} .= "$in{bgcolor}\t$in{link}\t$in{text}\t$in{vlink}\t$in{mystory}\t"; dbmclose(%DB); $in{mystory} =~ s/\r/\/g; if (length("$in{img}") < 7) { $in{img} = '/images/mypic.gif'} require($ThisDir.'template.shtml'); exit; } #end MakePage