From 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 12 Aug 2002 06:17:10 +0000 Subject: This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'. --- fs_webdemo/register.cgi | 136 ------------------------------------------------ 1 file changed, 136 deletions(-) delete mode 100755 fs_webdemo/register.cgi (limited to 'fs_webdemo/register.cgi') diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi deleted file mode 100755 index 825582262..000000000 --- a/fs_webdemo/register.cgi +++ /dev/null @@ -1,136 +0,0 @@ -#!/usr/bin/perl -Tw -# -# $Id: register.cgi,v 1.5 2000-03-03 18:22:42 ivan Exp $ - -use strict; -use vars qw( - $datasrc $user $pass $x - $cgi $username $email - $dbh $sth - ); - #$freeside_bin $freeside_test $freeside_conf - #@pw_set @saltset - #$user_pw $crypt_pw - #$header $msg -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use DBI; -#use Mail::Internet; -#use Mail::Header; -#use Date::Format; - -$ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin'; -$ENV{'SHELL'} = '/bin/sh'; -$ENV{'IFS'} = " \t\n"; -$ENV{'CDPATH'} = ''; -$ENV{'ENV'} = ''; -$ENV{'BASH_ENV'} = ''; - -#$freeside_bin = '/home/freeside/bin/'; -#$freeside_test = '/home/freeside/test/'; -#$freeside_conf = '/usr/local/etc/freeside/'; - -$datasrc = 'DBI:mysql:http_auth'; -$user = "freeside"; -$pass = "maelcolm"; - -##my(@pw_set)= ( 'a'..'z', 'A'..'Z', '0'..'9', '(', ')', '#', '!', '.', ',' ); -##my(@pw_set)= ( 'a'..'z', 'A'..'Z', '0'..'9' ); -#@pw_set = ( 'a'..'z', '0'..'9' ); -#@saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' ); - -### - -$cgi = new CGI; - -$username = $cgi->param('username'); -$username =~ /^\s*([a-z][\w]{0,15})\s*$/i - or &idiot("Illegal username. Please use 1-16 alphanumeric characters, and start your username with a letter."); -$username = lc($1); - -$email = $cgi->param('email'); -$email =~ /^([\w\-\.\+]+\@[\w\-\.]+)$/ - or &idiot("Illegal email address."); -$email = $1; - -### - -#$user_pw = join('',map($pw_set[ int(rand $#pw_set) ], (0..7) ) ); -#$crypt_pw = crypt($user_pw,$saltset[int(rand(64))].$saltset[int(rand(64))]); - -### - - local $SIG{HUP} = 'IGNORE'; - local $SIG{INT} = 'IGNORE'; - local $SIG{QUIT} = 'IGNORE'; - local $SIG{TERM} = 'IGNORE'; - local $SIG{TSTP} = 'IGNORE'; - local $SIG{PIPE} = 'IGNORE'; - -### - -$dbh = DBI->connect( $datasrc, $user, $pass, { - 'AutoCommit' => 'true', -} ) or die "DBI->connect error: $DBI::errstr\n"; -$x = $DBI::errstr; #silly; to avoid "used only once" warning - -$sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ", - $dbh->quote($username), -# $dbh->quote("X"), -# $dbh->quote($crypt_pw), - $dbh->quote($email), - $dbh->quote('freeside'), - $dbh->quote('unconfigured'), -). ")" ); - -$sth->execute or &idiot("Username in use: ". $sth->errstr); - -$dbh->disconnect or die $dbh->errstr; - -### - -$|=1; -print $cgi->header; -print < - - Freeside demo registration successful - - - - -
-

- Silicon Interactive Software Design -

-
freeside demo registration successful
-
-

Your sample database has been setup. Your password and the URL for the - Freeside demo have been emailed to you. - - -END - -### - -sub idiot { - my($error)=@_; - print $cgi->header, < - - Registration error - - -

-

Registration error

-
-

$error -

Hit the Back button in your web browser, correct this mistake, - and submit the form again. - - -END - - exit; - -} -- cgit v1.2.1