#!/usr/bin/perl ############################################################################### # # This script allows to EDIT any information contained in the Database # provided that the user has a login and password assigned. # # CGI Script by Piotr Pytlik -> http://www.doublep.com/pytlik/piotr.html # Copyright (c) 1997, Double P Software -> http://www.doublep.com # All Rights Reserved # Permission is granted to Letterhead's to use this script provided that this # copyright information remains unchanged. # # HISTORY: # 5-Jan-96 PP Created this script in original form # ############################################################################### local $SIG{__DIE__} = sub { my $msg = shift; print "

ERROR: $msg

\n"; }; #local $SIG{__WARN__} = sub { my $msg = shift; print "

WARNING: $msg

\n"; }; require "cgi/formsign.cgi"; # Must be included before cgi/secure.cgi !!! require "cgi/secure.cgi"; # Provides Login/Password protection $secureLoginLabel = 'ShopID'; #$secureApp = "/home/ppytlik/public_html/doublep/sentex/pipe"; $secureFunc = \&ValidatePassword; &ValidateAccess; my %superusers = ( 1 => 'Steve', 1552 => 'Piotr' ); my $EditShop = $secureLogin; require "cgi/counter.cgi"; ($countAll, $countUniq, $exclAll, $exclUniq) = Count(); $ImgBack = "images/logos/head2.gif"; $disable = <

Sorry but our database has reached its limits with more than 10000 members

We are working on it right now and it may take a little while. Please bare with us for few days and come back here to try again...
EOF undef $disable; # Comment this one out to enable this script ############################################################################### # This is a form for Adding New Entries to the Database: print <Edit Your Entry in The Letterville Database

EOF if( $superusers{$secureLogin} ) { print "

Hi $superusers{$secureLogin}.\n"; if( $ARGV[0] ) { print " You are editing Shop $ARGV[0]

\n"; $EditShop = $ARGV[0]; } else { print " You can edit any Shop you need to:\n"; print "

Just specify the Shop ID like in edit.cgi?1234 which will edit Shop 1234

\n"; } } if( OpenDb() ) { GetInd( 'ID' ); # Main mapping hash as %map if( exists $map{$EditShop} ) { $db->GoTo( $map{$EditShop} ); #print "{ID}=$in{ID}, {Restore}=$in{Restore}, {_ID}=$in{_ID}, login=$secureLogin
\n"; if( $in{ID} eq 'Restore' && $in{Restore} && $in{_ID} && $in{rec} && $superusers{$secureLogin} ) { Log( "RESTORED Shop $in{_ID} at Record ${rec} by $superusers{$secureLogin}" ); $db->RestoreRec( $in{rec} ); print <

You have just Restored Shop $in{_ID} in the database!
You can now modify it further and Submit the changes.

EOF } if( $in{ID} eq 'Delete' && $in{Delete} && $in{_ID} && $superusers{$secureLogin} ) { $db->DeleteRec( $map{$in{_ID}} ); Log( "DELETED Shop $in{_ID} at Record $map{$in{_ID}} by $superusers{$secureLogin}" ); print <

You have just Deleted Shop $in{_ID} from the database!
If that was a mistake, you can now.

Make sure that when you're done with changes, you Reindex the database

EOF } foreach( qw( ID Passwd Joined Updated FName LName SName Born Company Email URL RemoteIP Agent WAddress WCity WState WZip WCountry WPhone FPhone HAddress HCity HState HZip HPhone Magz Platform Software Printer Plotter Info History ) ) { $in{"_$_"} = $db->GetField( $_ ); } $in{_URL} = "http://$in{_URL}" unless $in{_URL} =~ /^http:/; $in{BornYY} = substr( $in{_Born}, 0, 4 ); $in{BornMM} = substr( $in{_Born}, 4, 2 ); $in{BornDD} = substr( $in{_Born}, 6, 2 ); if( $disable ) { print $disable; } else { DispForm( 'Edit' ); } } else { print <No entry in our database for Shop ID $EditShop.
Please try again or contact Steve & Barb EOF } CloseDb(); } else { print <Sorry but it seems we have a problem with our database at the moment.
Please try again later or contact Steve & Barb EOF } ############################################################################### print <[ Letterheads | Bulletin Board | Events | Advertising | Suppliers ]

E-Mail Steve & Barb!

Letterville
144 Hill St., E.,
Fergus, Ontario, Canada N1M 1G9
Phone.....1-519-787-7446

EOF ############################################################################### sub ValidatePassword { my( $login, $passwd ) = @_; if( OpenDb() ) { GetInd( 'ID' ); # Main mapping hash as %map if( exists $map{$login} ) { $db->GoTo( $map{$login} ); my( $id, $pas ) = $db->GetFields( 'ID', 'Passwd' ); if( $id eq $login && $pas eq $passwd ) { return 1; # Validated OK. } else { return 0; # Invalid password or messed up $map table } } else { return 0; # No such Shop ID - invalid login } CloseDb(); } else { return undef; # Couldn't validate } } ###############################################################################