Freeside demo registration successful

From 7d6c833f134715aa9388de35ceb53ff7697bee81 Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 24 Feb 2000 11:08:23 +0000 Subject: initial checkin --- fs_webdemo/register.cgi | 272 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 272 insertions(+) create mode 100755 fs_webdemo/register.cgi (limited to 'fs_webdemo/register.cgi') diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi new file mode 100755 index 000000000..4332958f6 --- /dev/null +++ b/fs_webdemo/register.cgi @@ -0,0 +1,272 @@ +#!/usr/bin/perl -Tw + +use strict; +use vars qw( $freeside_bin $freeside_test $freeside_conf + $datasrc $user $pass $x + @pw_set @saltset + $cgi $username $name $email $user_pw $crypt_pw $dbh $sth + $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); + +$name = $cgi->param('name'); +$name =~ /^([\w\-\,\. ]*)$/ + or &idiot("Illegal name. ". + "Only alphanumerics, the dash, comma and period are legal."); +$name = $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($crypt_pw), + $dbh->quote('freeside'), +). ")" ); + +$sth->execute or &idiot($sth->errstr); + +$dbh->disconnect or die $dbh->errstr; + +### + +$|=1; +print $cgi->header; +print < + + Freeside demo registration successful + + + + +

+ +

+ freeside demo registration successful +

Your sample database has been setup. Your username, password, and URL + have been emailed to you. + + +END + +### + +system("/usr/bin/mysqladmin --user=$user --password=$pass ". + "create $username >/dev/null"); + +open(MAPSECRETS, ">>${freeside_conf}mapsecrets") + or die "Can\'t open ${freeside_conf}mapsecrets: $!"; +print MAPSECRETS "$username secrets.$username\n"; +close MAPSECRETS; + +open(SECRETS, ">${freeside_conf}secrets.$username") + or die "Can\'t open ${freeside_conf}secrets.$username: $!"; +chmod 0600, "${freeside_conf}secrets.$username"; +print SECRETS "DBI:mysql:$username\nfreeside\nmaelcolm\n"; +close SECRETS; + +mkdir "${freeside_conf}conf.DBI:mysql:$username", 0755; + +open(ADDRESS, ">${freeside_conf}conf.DBI:mysql:$username/address") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/address: $!"; +print ADDRESS <${freeside_conf}conf.DBI:mysql:$username/domain") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/domain: $!"; +print DOMAIN "this-is-an-example-domain.tld\n"; +close DOMAIN; + +open(HOME, ">${freeside_conf}conf.DBI:mysql:$username/home") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/home: $!"; +print HOME "/home\n"; +close HOME; + +open(INVOICE_FROM, ">${freeside_conf}conf.DBI:mysql:$username/invoice_from") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/invoice_from: $!"; +print INVOICE_FROM "$email\n"; +close INVOICE_FROM; + +open(LPR, ">${freeside_conf}conf.DBI:mysql:$username/lpr") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/lpr: $!"; +print LPR "cat >/dev/null\n"; +close LPR; + +mkdir "${freeside_conf}conf.DBI:mysql:$username/registries", 0755; +mkdir "${freeside_conf}conf.DBI:mysql:$username/registries/internic", 0755; +open(FROM, ">${freeside_conf}conf.DBI:mysql:$username/registries/internic/from") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/from: $!"; +print FROM "$email\n"; +close FROM; +open(NAMESERVERS, ">${freeside_conf}conf.DBI:mysql:$username/registries/internic/nameservers") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/nameservers: $!"; +print NAMESERVERS <${freeside_conf}conf.DBI:mysql:$username/registries/internic/tech_contact") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/tech_contact: $!"; +print TECH_CONTACT "EXAMPLE-INTERNIC-HANDLE\n"; +close TECH_CONTACT; +system ("cp", "${freeside_conf}.domain-template.txt", + "${freeside_conf}conf.DBI:mysql:$username/registries/internic/template" + ); +open(TO, ">${freeside_conf}conf.DBI:mysql:$username/registries/internic/to") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/to: $!"; +print TO "$email\n"; +close TO; + +open(SHELLS, ">${freeside_conf}conf.DBI:mysql:$username/shells") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/shells: $!"; +print SHELLS <${freeside_conf}conf.DBI:mysql:$username/smtpmachine") + or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/smtpmachine: $!"; +print SMTPMACHINE "localhost\n"; +close SMTPMACHINE; + +#make counter dir +mkdir("/usr/local/etc/freeside/counters.DBI:mysql:$username",0755) + or die "Can't create counter spooldir: $!"; + +system("${freeside_bin}fs-setup.webdemo", "$username"); +system("${freeside_test}cgi-test", + "http://freeside.sisd.com/", $username, $user_pw); + +### + +$ENV{SMTPHOSTS} = "localhost"; +$ENV{MAILADDRESS} = 'ivan@sisd.com'; +$header = Mail::Header->new( [ + 'From: ivan@sisd.com', + "To: $email", + 'Cc: ivan-fsreg@sisd.com', + 'Sender: ivan@sisd.com', + 'Reply-To: ivan@sisd.com', + 'Date: '. time2str("%a, %d %b %Y %X %z", time), + 'Subject: Freeside demo information', +] ); +$msg = Mail::Internet->new( + 'Header' => $header, + 'Body' => [ +"Hello $name <$email>,\n", +"\n", +"Your sample Freeside database has been setup.\n", +"\n", +"Point your web browswer at http://freeside.sisd.com/ and use the following\n", +"authentication information:\n", +"\n", +"Username: $username\n", +"Password: $user_pw\n", +"\n", +"You may wish to subscribe to the Freeside mailing list - send a blank\n", +"message to ivan-freeside-subscribe\@sisd.com.\n", +"\n", +"-- \n", +"Ivan Kohler \n", +"20 4,16 \* \* \* saytime\n", + ] +); +$msg->smtpsend or die "Can\'t send registration email!"; + +### + +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 From 9634d838efee4b155c89c36f524eca98d73d1868 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 1 Mar 2000 08:15:10 +0000 Subject: queuing webdemo registration --- fs_webdemo/register.cgi | 190 +++++++----------------------------------------- 1 file changed, 26 insertions(+), 164 deletions(-) (limited to 'fs_webdemo/register.cgi') diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi index 4332958f6..45b5d6aeb 100755 --- a/fs_webdemo/register.cgi +++ b/fs_webdemo/register.cgi @@ -1,18 +1,22 @@ #!/usr/bin/perl -Tw +# +# $Id: register.cgi,v 1.2 2000-03-01 08:15:10 ivan Exp $ use strict; -use vars qw( $freeside_bin $freeside_test $freeside_conf +use vars qw( #$freeside_bin $freeside_test $freeside_conf $datasrc $user $pass $x - @pw_set @saltset - $cgi $username $name $email $user_pw $crypt_pw $dbh $sth - $header $msg + #@pw_set @saltset + $cgi $username $email + #$user_pw $crypt_pw + $dbh $sth + #$header $msg ); use CGI; #use CGI::Carp qw(fatalsToBrowser); use DBI; -use Mail::Internet; -use Mail::Header; -use Date::Format; +#use Mail::Internet; +#use Mail::Header; +#use Date::Format; $ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin'; $ENV{'SHELL'} = '/bin/sh'; @@ -21,18 +25,18 @@ $ENV{'CDPATH'} = ''; $ENV{'ENV'} = ''; $ENV{'BASH_ENV'} = ''; -$freeside_bin = '/home/freeside/bin/'; -$freeside_test = '/home/freeside/test/'; -$freeside_conf = '/usr/local/etc/freeside/'; +#$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' , '.' , '/' ); +##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' , '.' , '/' ); ### @@ -43,12 +47,6 @@ $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); -$name = $cgi->param('name'); -$name =~ /^([\w\-\,\. ]*)$/ - or &idiot("Illegal name. ". - "Only alphanumerics, the dash, comma and period are legal."); -$name = $1; - $email = $cgi->param('email'); $email =~ /^([\w\-\.\+]+\@[\w\-\.]+)$/ or &idiot("Illegal email address."); @@ -56,8 +54,8 @@ $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))]); +#$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))]); ### @@ -77,11 +75,13 @@ $x = $DBI::errstr; #silly; to avoid "used only once" warning $sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ", $dbh->quote($username), - $dbh->quote($crypt_pw), + $dbh->quote("X"), +# $dbh->quote($crypt_pw), $dbh->quote('freeside'), + $dbh->quote('unconfigured'), ). ")" ); -$sth->execute or &idiot($sth->errstr); +$sth->execute or &idiot("Username in use: ". $sth->errstr); $dbh->disconnect or die $dbh->errstr; @@ -103,152 +103,14 @@ print <freeside demo registration successful -

Your sample database has been setup. Your username, password, and URL - have been emailed to you. +

Your sample database has been setup. Your password and the URL for the + Freeside demo have been emailed to you. END ### -system("/usr/bin/mysqladmin --user=$user --password=$pass ". - "create $username >/dev/null"); - -open(MAPSECRETS, ">>${freeside_conf}mapsecrets") - or die "Can\'t open ${freeside_conf}mapsecrets: $!"; -print MAPSECRETS "$username secrets.$username\n"; -close MAPSECRETS; - -open(SECRETS, ">${freeside_conf}secrets.$username") - or die "Can\'t open ${freeside_conf}secrets.$username: $!"; -chmod 0600, "${freeside_conf}secrets.$username"; -print SECRETS "DBI:mysql:$username\nfreeside\nmaelcolm\n"; -close SECRETS; - -mkdir "${freeside_conf}conf.DBI:mysql:$username", 0755; - -open(ADDRESS, ">${freeside_conf}conf.DBI:mysql:$username/address") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/address: $!"; -print ADDRESS <${freeside_conf}conf.DBI:mysql:$username/domain") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/domain: $!"; -print DOMAIN "this-is-an-example-domain.tld\n"; -close DOMAIN; - -open(HOME, ">${freeside_conf}conf.DBI:mysql:$username/home") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/home: $!"; -print HOME "/home\n"; -close HOME; - -open(INVOICE_FROM, ">${freeside_conf}conf.DBI:mysql:$username/invoice_from") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/invoice_from: $!"; -print INVOICE_FROM "$email\n"; -close INVOICE_FROM; - -open(LPR, ">${freeside_conf}conf.DBI:mysql:$username/lpr") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/lpr: $!"; -print LPR "cat >/dev/null\n"; -close LPR; - -mkdir "${freeside_conf}conf.DBI:mysql:$username/registries", 0755; -mkdir "${freeside_conf}conf.DBI:mysql:$username/registries/internic", 0755; -open(FROM, ">${freeside_conf}conf.DBI:mysql:$username/registries/internic/from") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/from: $!"; -print FROM "$email\n"; -close FROM; -open(NAMESERVERS, ">${freeside_conf}conf.DBI:mysql:$username/registries/internic/nameservers") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/nameservers: $!"; -print NAMESERVERS <${freeside_conf}conf.DBI:mysql:$username/registries/internic/tech_contact") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/tech_contact: $!"; -print TECH_CONTACT "EXAMPLE-INTERNIC-HANDLE\n"; -close TECH_CONTACT; -system ("cp", "${freeside_conf}.domain-template.txt", - "${freeside_conf}conf.DBI:mysql:$username/registries/internic/template" - ); -open(TO, ">${freeside_conf}conf.DBI:mysql:$username/registries/internic/to") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/registries/internic/to: $!"; -print TO "$email\n"; -close TO; - -open(SHELLS, ">${freeside_conf}conf.DBI:mysql:$username/shells") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/shells: $!"; -print SHELLS <${freeside_conf}conf.DBI:mysql:$username/smtpmachine") - or die "Can\'t open ${freeside_conf}conf.DBI:mysql:$username/smtpmachine: $!"; -print SMTPMACHINE "localhost\n"; -close SMTPMACHINE; - -#make counter dir -mkdir("/usr/local/etc/freeside/counters.DBI:mysql:$username",0755) - or die "Can't create counter spooldir: $!"; - -system("${freeside_bin}fs-setup.webdemo", "$username"); -system("${freeside_test}cgi-test", - "http://freeside.sisd.com/", $username, $user_pw); - -### - -$ENV{SMTPHOSTS} = "localhost"; -$ENV{MAILADDRESS} = 'ivan@sisd.com'; -$header = Mail::Header->new( [ - 'From: ivan@sisd.com', - "To: $email", - 'Cc: ivan-fsreg@sisd.com', - 'Sender: ivan@sisd.com', - 'Reply-To: ivan@sisd.com', - 'Date: '. time2str("%a, %d %b %Y %X %z", time), - 'Subject: Freeside demo information', -] ); -$msg = Mail::Internet->new( - 'Header' => $header, - 'Body' => [ -"Hello $name <$email>,\n", -"\n", -"Your sample Freeside database has been setup.\n", -"\n", -"Point your web browswer at http://freeside.sisd.com/ and use the following\n", -"authentication information:\n", -"\n", -"Username: $username\n", -"Password: $user_pw\n", -"\n", -"You may wish to subscribe to the Freeside mailing list - send a blank\n", -"message to ivan-freeside-subscribe\@sisd.com.\n", -"\n", -"-- \n", -"Ivan Kohler \n", -"20 4,16 \* \* \* saytime\n", - ] -); -$msg->smtpsend or die "Can\'t send registration email!"; - -### - sub idiot { my($error)=@_; print $cgi->header, < Date: Fri, 3 Mar 2000 05:29:24 +0000 Subject: first pass at separate registerd process --- fs_webdemo/register.cgi | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'fs_webdemo/register.cgi') diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi index 45b5d6aeb..e240a974e 100755 --- a/fs_webdemo/register.cgi +++ b/fs_webdemo/register.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: register.cgi,v 1.2 2000-03-01 08:15:10 ivan Exp $ +# $Id: register.cgi,v 1.3 2000-03-03 05:29:24 ivan Exp $ use strict; use vars qw( #$freeside_bin $freeside_test $freeside_conf @@ -75,8 +75,9 @@ $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("X"), # $dbh->quote($crypt_pw), + $dbh->quote($email); $dbh->quote('freeside'), $dbh->quote('unconfigured'), ). ")" ); -- cgit v1.2.1 From 8f7bf60ca805e407e797c9be99231a9d11c95d6d Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 3 Mar 2000 05:32:56 +0000 Subject: fix silly syntax errors --- fs_webdemo/register.cgi | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'fs_webdemo/register.cgi') diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi index e240a974e..e5f24efe0 100755 --- a/fs_webdemo/register.cgi +++ b/fs_webdemo/register.cgi @@ -1,16 +1,17 @@ #!/usr/bin/perl -Tw # -# $Id: register.cgi,v 1.3 2000-03-03 05:29:24 ivan Exp $ +# $Id: register.cgi,v 1.4 2000-03-03 05:32:56 ivan Exp $ use strict; -use vars qw( #$freeside_bin $freeside_test $freeside_conf +use vars qw( $datasrc $user $pass $x - #@pw_set @saltset $cgi $username $email - #$user_pw $crypt_pw $dbh $sth - #$header $msg ); + #$freeside_bin $freeside_test $freeside_conf + #@pw_set @saltset + #$user_pw $crypt_pw + #$header $msg use CGI; #use CGI::Carp qw(fatalsToBrowser); use DBI; @@ -77,7 +78,7 @@ $sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ", $dbh->quote($username), # $dbh->quote("X"), # $dbh->quote($crypt_pw), - $dbh->quote($email); + $dbh->quote($email), $dbh->quote('freeside'), $dbh->quote('unconfigured'), ). ")" ); -- cgit v1.2.1 From 61a85894466342b93507614785e61932f7358c50 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 3 Mar 2000 18:22:44 +0000 Subject: changes from 1.2.3 release, fixes from webdemo --- fs_webdemo/register.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fs_webdemo/register.cgi') diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi index e5f24efe0..825582262 100755 --- a/fs_webdemo/register.cgi +++ b/fs_webdemo/register.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: register.cgi,v 1.4 2000-03-03 05:32:56 ivan Exp $ +# $Id: register.cgi,v 1.5 2000-03-03 18:22:42 ivan Exp $ use strict; use vars qw( @@ -13,7 +13,7 @@ use vars qw( #$user_pw $crypt_pw #$header $msg use CGI; -#use CGI::Carp qw(fatalsToBrowser); +use CGI::Carp qw(fatalsToBrowser); use DBI; #use Mail::Internet; #use Mail::Header; -- cgit v1.2.1