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') 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 + + + + +
+

+ Silicon Interactive Software Design +

+
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 +++++-------------------------- fs_webdemo/register.html | 34 ++++++ fs_webdemo/registerd | 285 +++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 345 insertions(+), 164 deletions(-) create mode 100644 fs_webdemo/register.html create mode 100755 fs_webdemo/registerd (limited to 'fs_webdemo') 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, < + + + Freeside - Billing and account administration software for ISPs + + + + + +
+ + + + +
freeside demo registration
+
+

You will need to choose a username for access to the Freeside web demo. + Also enter your email address and (optionally) your name. + +

A password + and the URL for your demo will be emailed to you, so don't waste your + time with non-deliverable addresses. +We will not give your name or email address to any third party, + nor will we send you any unsolicited email. +

+ 
+Freeside username: 
+
+Email address:     
+
+
+
+ + diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd new file mode 100755 index 000000000..91dd8df29 --- /dev/null +++ b/fs_webdemo/registerd @@ -0,0 +1,285 @@ +#!/usr/bin/perl -Tw +# +# $Id: registerd,v 1.1 2000-03-01 08:15:10 ivan Exp $ + +use strict; +use vars qw(# $freeside_bin $freeside_test + $freeside_conf + $mysql_data + $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/'; + +$mysql_data = "/var/lib/mysql"; + +$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' , '.' , '/' ); + +die "not running as system user freeside" + unless $> == scalar(getpwnam('freeside')) + +$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 + +while ( 1 ) { + + $SIG{HUP} = 'IGNORE'; + $SIG{INT} = 'IGNORE'; + $SIG{QUIT} = 'IGNORE'; + $SIG{TERM} = 'IGNORE'; + $SIG{TSTP} = 'IGNORE'; + $SIG{PIPE} = 'IGNORE'; + + $sth = $dbh->prepare("LOCK TABLES mysql_auth WRITE"); + $sth->execute or die $sth->errstr; + + $sth = $dbh->prepare( + 'SELECT * FROM mysql_auth WHERE status = "unconfigured"' + ); + $sth->execute or die $sth->errstr; + my $pending = $sth->fetchall_arrayref( {} ); + + $sth = $dbh->prepare( + 'UPDATE mysql_auth SET status = "locked" WHERE status = "unconfigured"' + ); + $sth->execute or die $sth->errstr; + + $sth = $dbh->prepare("UNLOCK TABLES"); + $sth->execute or die $sth->errstr; + + # + + foreach my $row ( @{$pending} ) { + + my $username = $row->{'username'}; + + my $user_pw = join('',map($pw_set[ int(rand $#pw_set) ], (0..7) ) ); + my $crypt_pw = + crypt($user_pw,$saltset[int(rand(64))].$saltset[int(rand(64))]); + + system("/usr/bin/mysqladmin --user=$user --password=$pass ". + "create demo_$username >/dev/null"); + + system "cp $mysql_data/demo_template/* $mysql_data/demo_$username"; + + mkdir "${freeside_conf}conf.DBI:mysql:demo_$username", 0755; + system "cp -r ${freeside_conf}conf.DBI:mysql:demo_template/* ". + "${freeside_conf}conf.DBI:mysql:demo_$username"; + + mkdir "${freeside_conf}counters.DBI:mysql:demo_$username", 0755; + system "cp ${freeside_conf}counters.DBI:mysql:demo_template/* ". + "${freeside_conf}counters.DBI:mysql:demo_$username"; + + + open(SECRETS, ">${freeside_conf}secrets.$username") + or die "Can\'t open ${freeside_conf}secrets.demo_$username: $!"; + chmod 0600, "${freeside_conf}secrets.$username"; + print SECRETS "DBI:mysql:demo_$username\nfreeside\nmaelcolm\n"; + close SECRETS; + + open(MAPSECRETS, ">>${freeside_conf}mapsecrets") + or die "Can\'t open ${freeside_conf}mapsecrets: $!"; + print MAPSECRETS "$username secrets.demo_$username\n"; + close MAPSECRETS; + + + + + } + + + $SIG{HUP} = 'DEFAULT'; + $SIG{INT} = 'DEFAULT'; + $SIG{QUIT} = 'DEFAULT'; + $SIG{TERM} = 'DEFAULT'; + $SIG{TSTP} = 'DEFAULT'; + $SIG{PIPE} = 'DEFAULT'; + + sleep 5; + +} + +$sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ", + $dbh->quote($username), + $dbh->quote($crypt_pw), + $dbh->quote('freeside'), +). ")" ); + +$sth->execute or &idiot("Username in use: ". $sth->errstr); + +$dbh->disconnect or die $dbh->errstr; + +### + + + +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 ea6d841c989123295d887d356d4566ee22a4f97c Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 1 Mar 2000 08:19:23 +0000 Subject: x --- fs_webdemo/register.html | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'fs_webdemo') diff --git a/fs_webdemo/register.html b/fs_webdemo/register.html index fccf49c48..5cb1140d8 100644 --- a/fs_webdemo/register.html +++ b/fs_webdemo/register.html @@ -20,7 +20,7 @@

A password and the URL for your demo will be emailed to you, so don't waste your time with non-deliverable addresses. -We will not give your name or email address to any third party, +We will not give your email address to any third party, nor will we send you any unsolicited email. 

-- 
cgit v1.2.1


From 6b8cf061c763925866f765fb5cae8e16e2babe0c Mon Sep 17 00:00:00 2001
From: ivan 
Date: Wed, 1 Mar 2000 08:22:50 +0000
Subject: *** empty log message ***

---
 fs_webdemo/register.html | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/register.html b/fs_webdemo/register.html
index 5cb1140d8..7781b058c 100644
--- a/fs_webdemo/register.html
+++ b/fs_webdemo/register.html
@@ -15,13 +15,12 @@
     
   
 
You will need to choose a username for access to the Freeside web demo.
-     Also enter your email address and (optionally) your name.
 
 
A password
       and the URL for your demo will be emailed to you, so don't waste your
       time with non-deliverable addresses.
 We will not give your email address to any third party,
-      nor will we send you any unsolicited email.
+      nor will we send you any unsolicited email (or in fact any email beyond the automatic registration).
     
       
 Freeside username: 
-- 
cgit v1.2.1


From ac721c152d7e874d95a376d225c5acf2f2390af3 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Wed, 1 Mar 2000 08:23:18 +0000
Subject: *** empty log message ***

---
 fs_webdemo/register.html | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/register.html b/fs_webdemo/register.html
index 7781b058c..acf9cff7f 100644
--- a/fs_webdemo/register.html
+++ b/fs_webdemo/register.html
@@ -20,7 +20,7 @@
       and the URL for your demo will be emailed to you, so don't waste your
       time with non-deliverable addresses.
 We will not give your email address to any third party,
-      nor will we send you any unsolicited email (or in fact any email beyond the automatic registration).
+      nor will we send you any unsolicited email (or in fact any email after the automatic registration).
     
       
 Freeside username: 
-- 
cgit v1.2.1


From dab9ff90d22cd188c4f4a436c320814f24af6846 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Fri, 3 Mar 2000 05:29:24 +0000
Subject: first pass at separate registerd process

---
 fs_webdemo/register.cgi |   5 +-
 fs_webdemo/registerd    | 245 ++++++++++++++----------------------------------
 2 files changed, 75 insertions(+), 175 deletions(-)

(limited to 'fs_webdemo')

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'),
 ). ")" );
diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
index 91dd8df29..4840d9eee 100755
--- a/fs_webdemo/registerd
+++ b/fs_webdemo/registerd
@@ -1,16 +1,18 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: registerd,v 1.1 2000-03-01 08:15:10 ivan Exp $
+# $Id: registerd,v 1.2 2000-03-03 05:29:24 ivan Exp $
 
 use strict;
-use vars qw(# $freeside_bin $freeside_test 
-            $freeside_conf
-            $mysql_data
-            $datasrc $user $pass $x
+use vars qw(
+             $freeside_conf
+             $mysql_data
+             $datasrc $user $pass $x
+             $dbh $sth
              @pw_set @saltset
-            # $cgi $username $name $email $user_pw $crypt_pw $dbh $sth
-            # $header $msg
-             );
+             $header $msg
+           );
+            # $freeside_bin $freeside_test 
+            # $cgi $username $name $email $user_pw $crypt_pw 
 #use CGI;
 #use CGI::Carp qw(fatalsToBrowser);
 use DBI;
@@ -41,7 +43,7 @@ $pass = "maelcolm";
 @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
 
 die "not running as system user freeside"
-  unless $> == scalar(getpwnam('freeside'))
+  unless $> == scalar(getpwnam('freeside'));
 
 $dbh = DBI->connect( $datasrc, $user, $pass, {
 	'AutoCommit' => 'true',
@@ -79,10 +81,7 @@ while ( 1 ) {
   foreach my $row ( @{$pending} ) {
 
     my $username = $row->{'username'};
-
-    my $user_pw = join('',map($pw_set[ int(rand $#pw_set) ], (0..7) ) );
-    my $crypt_pw =
-      crypt($user_pw,$saltset[int(rand(64))].$saltset[int(rand(64))]);
+    my $email = $row->{'passwd'};
 
     system("/usr/bin/mysqladmin --user=$user --password=$pass ".
       "create demo_$username >/dev/null");
@@ -97,8 +96,30 @@ while ( 1 ) {
     system "cp ${freeside_conf}counters.DBI:mysql:demo_template/* ".
            "${freeside_conf}counters.DBI:mysql:demo_$username";
 
+    system "cp ${freeside_conf}dbdef.DBI:mysql:demo_template ".
+           "${freeside_conf}dbdef.DBI:mysql:demo_$username";
+
+    open(INVOICE_FROM, ">${freeside_conf}conf.DBI:mysql:demo_$username/invoice_from")
+      or die "Can\'t open ${freeside_conf}conf.DBI:mysql:demo_$username/invoice_from: $!";
+    print INVOICE_FROM "$email\n";
+    close INVOICE_FROM;
+
+    open(LPR, ">${freeside_conf}conf.DBI:mysql:demo_$username/lpr")
+      or die "Can\'t open ${freeside_conf}conf.DBI:mysql:demo_$username/lpr: $!";
+    print LPR "mail $email";
+    close LPR;
+
+    open(FROM, ">${freeside_conf}conf.DBI:mysql:demo_$username/registries/internic/from")
+      or die "Can\'t open ${freeside_conf}conf.DBI:mysql:demo_$username/registries/internic/from: $!";
+    print FROM "$email\n";
+    close FROM;
 
-    open(SECRETS, ">${freeside_conf}secrets.$username")
+    open(TO, ">${freeside_conf}conf.DBI:mysql:demo_$username/registries/internic/to")
+      or die "Can\'t open ${freeside_conf}conf.DBI:mysql:demo_$username/registries/internic/to: $!";
+    print TO "$email\n";
+    close TO;
+
+    open(SECRETS, ">${freeside_conf}secrets.demo_$username")
       or die "Can\'t open ${freeside_conf}secrets.demo_$username: $!";
     chmod 0600, "${freeside_conf}secrets.$username";
     print SECRETS "DBI:mysql:demo_$username\nfreeside\nmaelcolm\n";
@@ -109,12 +130,47 @@ while ( 1 ) {
     print MAPSECRETS "$username secrets.demo_$username\n";
     close MAPSECRETS;
 
+    my $user_pw = join('',map($pw_set[ int(rand $#pw_set) ], (0..7) ) );
+    my $crypt_pw =
+      crypt($user_pw,$saltset[int(rand(64))].$saltset[int(rand(64))]);
 
-
+    $sth = $dbh->prepare(
+      'UPDATE mysql_auth SET passwd = "$crypt_pw" WHERE username = "$username"'
+    );
+    $sth->execute or die $sth->errstr;
+
+    $ENV{SMTPHOSTS} = "localhost";
+    $ENV{MAILADDRESS} = 'ivan-fsreg@sisd.com';
+    $header = Mail::Header->new( [
+      'From: ivan-fsreg@sisd.com',
+      "To: $email",
+      'Bcc: ivan-fsreg_bcc@sisd.com',
+      'Sender: ivan-fsreg@sisd.com',
+      'Reply-To: ivan-fsreg@sisd.com',
+      'Date: '. time2str("%a, %d %b %Y %X %z", time),
+      'Subject: Freeside demo information',
+    ] );
+    $msg = Mail::Internet->new(
+      'Header' => $header,
+      'Body' => [
+    "Hello,\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",
+    "-- \n",
+    "ivan\n",
+                ]
+    );
+    $msg->smtpsend or die "Can\'t send registration email!";
 
   }
 
-
   $SIG{HUP} = 'DEFAULT';
   $SIG{INT} = 'DEFAULT';
   $SIG{QUIT} = 'DEFAULT';
@@ -126,160 +182,3 @@ while ( 1 ) {
 
 }
 
-$sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ",
-  $dbh->quote($username),
-  $dbh->quote($crypt_pw),
-  $dbh->quote('freeside'),
-). ")" );
-
-$sth->execute or &idiot("Username in use: ". $sth->errstr);
-
-$dbh->disconnect or die $dbh->errstr;
-
-###
-
-
-
-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 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')

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 66ebb4df3b5c07b448ed94618a4d3aef1e455def Mon Sep 17 00:00:00 2001
From: ivan 
Date: Fri, 3 Mar 2000 05:47:24 +0000
Subject: *** empty log message ***

---
 fs_webdemo/registerd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
index 4840d9eee..e6c071d70 100755
--- a/fs_webdemo/registerd
+++ b/fs_webdemo/registerd
@@ -1,6 +1,6 @@
-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -w
 #
-# $Id: registerd,v 1.2 2000-03-03 05:29:24 ivan Exp $
+# $Id: registerd,v 1.3 2000-03-03 05:47:24 ivan Exp $
 
 use strict;
 use vars qw(
-- 
cgit v1.2.1


From 7eec2c6a15f1baf2f3c6dddf57d0a58eb357da12 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Fri, 3 Mar 2000 06:03:15 +0000
Subject: *** empty log message ***

---
 fs_webdemo/registerd | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
index e6c071d70..e10acf2fe 100755
--- a/fs_webdemo/registerd
+++ b/fs_webdemo/registerd
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd,v 1.3 2000-03-03 05:47:24 ivan Exp $
+# $Id: registerd,v 1.4 2000-03-03 06:03:15 ivan Exp $
 
 use strict;
 use vars qw(
@@ -42,8 +42,10 @@ $pass = "maelcolm";
 @pw_set = ( 'a'..'z', '0'..'9' );
 @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
 
-die "not running as system user freeside"
-  unless $> == scalar(getpwnam('freeside'));
+#die "not running as system user freeside"
+#  unless $> == scalar(getpwnam('freeside'));
+die "not running as root user"
+  unless $> == 0;
 
 $dbh = DBI->connect( $datasrc, $user, $pass, {
 	'AutoCommit' => 'true',
@@ -86,17 +88,17 @@ while ( 1 ) {
     system("/usr/bin/mysqladmin --user=$user --password=$pass ".
       "create demo_$username >/dev/null");
 
-    system "cp $mysql_data/demo_template/* $mysql_data/demo_$username";
+    system "cp -p $mysql_data/demo_template/* $mysql_data/demo_$username";
 
     mkdir "${freeside_conf}conf.DBI:mysql:demo_$username", 0755;    
-    system "cp -r ${freeside_conf}conf.DBI:mysql:demo_template/* ".
+    system "cp -pr ${freeside_conf}conf.DBI:mysql:demo_template/* ".
            "${freeside_conf}conf.DBI:mysql:demo_$username";
 
     mkdir "${freeside_conf}counters.DBI:mysql:demo_$username", 0755;    
-    system "cp ${freeside_conf}counters.DBI:mysql:demo_template/* ".
+    system "cp -p ${freeside_conf}counters.DBI:mysql:demo_template/* ".
            "${freeside_conf}counters.DBI:mysql:demo_$username";
 
-    system "cp ${freeside_conf}dbdef.DBI:mysql:demo_template ".
+    system "cp -p ${freeside_conf}dbdef.DBI:mysql:demo_template ".
            "${freeside_conf}dbdef.DBI:mysql:demo_$username";
 
     open(INVOICE_FROM, ">${freeside_conf}conf.DBI:mysql:demo_$username/invoice_from")
@@ -135,7 +137,7 @@ while ( 1 ) {
       crypt($user_pw,$saltset[int(rand(64))].$saltset[int(rand(64))]);
 
     $sth = $dbh->prepare(
-      'UPDATE mysql_auth SET passwd = "$crypt_pw" WHERE username = "$username"'
+      'UPDATE mysql_auth SET passwd = "$crypt_pw", status = "done" WHERE username = "$username"'
     );
     $sth->execute or die $sth->errstr;
 
@@ -147,7 +149,7 @@ while ( 1 ) {
       'Bcc: ivan-fsreg_bcc@sisd.com',
       'Sender: ivan-fsreg@sisd.com',
       'Reply-To: ivan-fsreg@sisd.com',
-      'Date: '. time2str("%a, %d %b %Y %X %z", time),
+      'Date: '. time2str("%a, %d %b %Y %X %z", time, 'US/Pacific'),
       'Subject: Freeside demo information',
     ] );
     $msg = Mail::Internet->new(
-- 
cgit v1.2.1


From 859bfa57db033957bdb1778f042e7ee9a1df4e1e Mon Sep 17 00:00:00 2001
From: ivan 
Date: Fri, 3 Mar 2000 06:10:18 +0000
Subject: *** empty log message ***

---
 fs_webdemo/registerd | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
index e10acf2fe..e6127638b 100755
--- a/fs_webdemo/registerd
+++ b/fs_webdemo/registerd
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd,v 1.4 2000-03-03 06:03:15 ivan Exp $
+# $Id: registerd,v 1.5 2000-03-03 06:10:18 ivan Exp $
 
 use strict;
 use vars qw(
@@ -137,19 +137,20 @@ while ( 1 ) {
       crypt($user_pw,$saltset[int(rand(64))].$saltset[int(rand(64))]);
 
     $sth = $dbh->prepare(
-      'UPDATE mysql_auth SET passwd = "$crypt_pw", status = "done" WHERE username = "$username"'
+      qq(UPDATE mysql_auth SET passwd = "$crypt_pw", status = "done" WHERE username = "$username")
     );
     $sth->execute or die $sth->errstr;
 
     $ENV{SMTPHOSTS} = "localhost";
     $ENV{MAILADDRESS} = 'ivan-fsreg@sisd.com';
+    $ENV{TZ} = "PST8PDT";
     $header = Mail::Header->new( [
       'From: ivan-fsreg@sisd.com',
       "To: $email",
       'Bcc: ivan-fsreg_bcc@sisd.com',
       'Sender: ivan-fsreg@sisd.com',
       'Reply-To: ivan-fsreg@sisd.com',
-      'Date: '. time2str("%a, %d %b %Y %X %z", time, 'US/Pacific'),
+      'Date: '. time2str("%a, %d %b %Y %X %z", time ),
       'Subject: Freeside demo information',
     ] );
     $msg = Mail::Internet->new(
-- 
cgit v1.2.1


From ab3994ca459732272181e32dad40caaf371f9be7 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Fri, 3 Mar 2000 06:28:50 +0000
Subject: kludge but effective

---
 fs_webdemo/registerd | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
index e6127638b..258d198db 100755
--- a/fs_webdemo/registerd
+++ b/fs_webdemo/registerd
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd,v 1.5 2000-03-03 06:10:18 ivan Exp $
+# $Id: registerd,v 1.6 2000-03-03 06:28:50 ivan Exp $
 
 use strict;
 use vars qw(
@@ -123,7 +123,9 @@ while ( 1 ) {
 
     open(SECRETS, ">${freeside_conf}secrets.demo_$username")
       or die "Can\'t open ${freeside_conf}secrets.demo_$username: $!";
-    chmod 0600, "${freeside_conf}secrets.$username";
+    chown scalar(getpwnam('freeside')), scalar(getgrnam('freeside')),
+          "${freeside_conf}secrets.demo_$username";
+    chmod 0600, "${freeside_conf}secrets.demo_$username";
     print SECRETS "DBI:mysql:demo_$username\nfreeside\nmaelcolm\n";
     close SECRETS;
 
@@ -150,7 +152,8 @@ while ( 1 ) {
       'Bcc: ivan-fsreg_bcc@sisd.com',
       'Sender: ivan-fsreg@sisd.com',
       'Reply-To: ivan-fsreg@sisd.com',
-      'Date: '. time2str("%a, %d %b %Y %X %z", time ),
+      #'Date: '. time2str("%a, %d %b %Y %X %z", time ),
+      'Date: '. time2str("%a, %d %b %Y %X ", time ). "-0800",
       'Subject: Freeside demo information',
     ] );
     $msg = Mail::Internet->new(
-- 
cgit v1.2.1


From 22bc8f11195530bf2e9435f4892dd953e2acaf42 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Fri, 3 Mar 2000 06:36:49 +0000
Subject: *** empty log message ***

---
 fs_webdemo/registerd | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
index 258d198db..e5315e52c 100755
--- a/fs_webdemo/registerd
+++ b/fs_webdemo/registerd
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd,v 1.6 2000-03-03 06:28:50 ivan Exp $
+# $Id: registerd,v 1.7 2000-03-03 06:36:49 ivan Exp $
 
 use strict;
 use vars qw(
@@ -97,6 +97,8 @@ while ( 1 ) {
     mkdir "${freeside_conf}counters.DBI:mysql:demo_$username", 0755;    
     system "cp -p ${freeside_conf}counters.DBI:mysql:demo_template/* ".
            "${freeside_conf}counters.DBI:mysql:demo_$username";
+    chown scalar(getpwnam('freeside')), scalar(getgrnam('freeside')),
+           "${freeside_conf}counters.demo_$username";
 
     system "cp -p ${freeside_conf}dbdef.DBI:mysql:demo_template ".
            "${freeside_conf}dbdef.DBI:mysql:demo_$username";
-- 
cgit v1.2.1


From 84fd99ada2bca1b38ba547fb1125e3a53db1fc55 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Fri, 3 Mar 2000 12:27:54 +0000
Subject: silly typo

---
 fs_webdemo/registerd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
index e5315e52c..6314d0af2 100755
--- a/fs_webdemo/registerd
+++ b/fs_webdemo/registerd
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd,v 1.7 2000-03-03 06:36:49 ivan Exp $
+# $Id: registerd,v 1.8 2000-03-03 12:27:54 ivan Exp $
 
 use strict;
 use vars qw(
@@ -98,7 +98,7 @@ while ( 1 ) {
     system "cp -p ${freeside_conf}counters.DBI:mysql:demo_template/* ".
            "${freeside_conf}counters.DBI:mysql:demo_$username";
     chown scalar(getpwnam('freeside')), scalar(getgrnam('freeside')),
-           "${freeside_conf}counters.demo_$username";
+           "${freeside_conf}counters.DBI:mysql:demo_$username";
 
     system "cp -p ${freeside_conf}dbdef.DBI:mysql:demo_template ".
            "${freeside_conf}dbdef.DBI:mysql:demo_$username";
-- 
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')

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


From f3235d39d083518d47f21cd5585e5f9a13070763 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Mon, 23 Apr 2001 12:40:31 +0000
Subject: documentation and webdemo updates

---
 fs_webdemo/registerd.Pg | 196 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 196 insertions(+)
 create mode 100755 fs_webdemo/registerd.Pg

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
new file mode 100755
index 000000000..a4fd0552c
--- /dev/null
+++ b/fs_webdemo/registerd.Pg
@@ -0,0 +1,196 @@
+#!/usr/bin/perl -w
+#
+# $Id: registerd.Pg,v 1.1 2001-04-23 12:40:30 ivan Exp $
+
+use strict;
+use vars qw(
+             $freeside_conf
+             $mysql_data
+             $datasrc $user $pass $x
+             $dbh $sth
+             @pw_set @saltset
+             $header $msg
+           );
+            # $freeside_bin $freeside_test 
+            # $cgi $username $name $email $user_pw $crypt_pw 
+#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/';
+
+#$mysql_data = "/var/lib/mysql";
+
+$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' , '.' , '/' );
+
+#die "not running as system user freeside"
+#  unless $> == scalar(getpwnam('freeside'));
+die "not running as root user"
+  unless $> == 0;
+
+$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
+
+while ( 1 ) {
+
+  $SIG{HUP} = 'IGNORE';
+  $SIG{INT} = 'IGNORE';
+  $SIG{QUIT} = 'IGNORE';
+  $SIG{TERM} = 'IGNORE';
+  $SIG{TSTP} = 'IGNORE';
+  $SIG{PIPE} = 'IGNORE';
+
+  $sth = $dbh->prepare("LOCK TABLES mysql_auth WRITE");
+  $sth->execute or die $sth->errstr;
+
+  $sth = $dbh->prepare(
+    'SELECT * FROM mysql_auth WHERE status = "unconfigured" OR status = "reconfigure"'
+  );
+  $sth->execute or die $sth->errstr;
+  my $pending = $sth->fetchall_arrayref( {} );
+
+  $sth = $dbh->prepare(
+    'UPDATE mysql_auth SET status = "locked" WHERE status = "unconfigured" OR status = "reconfigure"'
+  );
+  $sth->execute or die $sth->errstr;
+
+  $sth = $dbh->prepare("UNLOCK TABLES");
+  $sth->execute or die $sth->errstr;
+
+  #
+
+  foreach my $row ( @{$pending} ) {
+
+    my $username = $row->{'username'};
+    my $email = $row->{'passwd'};
+    my $status = $row->{'status'};
+
+    system("/usr/bin/createdb --username freeside demo_$username >/dev/null");
+
+    system "psql -U freeside demo_$username ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/invoice_from")
+      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/invoice_from: $!";
+    print INVOICE_FROM "$email\n";
+    close INVOICE_FROM;
+
+    open(LPR, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/lpr")
+      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/lpr: $!";
+    print LPR "mail $email";
+    close LPR;
+
+    open(FROM, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from")
+      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from: $!";
+    print FROM "$email\n";
+    close FROM;
+
+    open(TO, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to")
+      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to: $!";
+    print TO "$email\n";
+    close TO;
+
+    open(SECRETS, ">${freeside_conf}secrets.demo_$username")
+      or die "Can\'t open ${freeside_conf}secrets.demo_$username: $!";
+    chown scalar(getpwnam('freeside')), scalar(getgrnam('freeside')),
+          "${freeside_conf}secrets.demo_$username";
+    chmod 0600, "${freeside_conf}secrets.demo_$username";
+    print SECRETS "DBI:Pg:host=localhost;dbname=demo_$username\nfreeside\nmaelcolm\n";
+    close SECRETS;
+
+    open(MAPSECRETS, ">>${freeside_conf}mapsecrets")
+      or die "Can\'t open ${freeside_conf}mapsecrets: $!";
+    print MAPSECRETS "$username secrets.demo_$username\n";
+    close MAPSECRETS;
+
+    my $user_pw = join('',map($pw_set[ int(rand $#pw_set) ], (0..7) ) );
+    my $crypt_pw =
+      crypt($user_pw,$saltset[int(rand(64))].$saltset[int(rand(64))]);
+
+    $sth = $dbh->prepare(
+      qq(UPDATE mysql_auth SET passwd = "$crypt_pw", status = "done" WHERE username = "$username")
+    );
+    $sth->execute or die $sth->errstr;
+
+    if ( $status eq "unconfigured" ) {
+
+      #$ENV{SMTPHOSTS} = "localhost";
+      $ENV{SMTPHOSTS} = "192.168.1.1";
+      $ENV{MAILADDRESS} = 'ivan-fsreg@sisd.com';
+      $ENV{TZ} = "PST8PDT";
+      $header = Mail::Header->new( [
+        'From: ivan-fsreg@sisd.com',
+        "To: $email",
+        'Bcc: ivan-fsreg_bcc@sisd.com',
+        'Sender: ivan-fsreg@sisd.com',
+        'Reply-To: ivan-fsreg@sisd.com',
+        #'Date: '. time2str("%a, %d %b %Y %X %z", time ),
+        'Date: '. time2str("%a, %d %b %Y %X ", time ). "-0800",
+        'Subject: Freeside demo information',
+      ] );
+      $msg = Mail::Internet->new(
+        'Header' => $header,
+        'Body' => [
+      "Hello,\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",
+      "-- \n",
+      "ivan\n",
+                  ]
+      );
+      $msg->smtpsend or die "Can\'t send registration email!";
+    }
+
+  }
+
+  $SIG{HUP} = 'DEFAULT';
+  $SIG{INT} = 'DEFAULT';
+  $SIG{QUIT} = 'DEFAULT';
+  $SIG{TERM} = 'DEFAULT';
+  $SIG{TSTP} = 'DEFAULT';
+  $SIG{PIPE} = 'DEFAULT';
+
+  sleep 5;
+
+}
+
-- 
cgit v1.2.1


From 37b880826261a0caee14508aeaafa9da28bd043a Mon Sep 17 00:00:00 2001
From: ivan 
Date: Mon, 23 Apr 2001 16:25:05 +0000
Subject: working registerd.Pg

---
 fs_webdemo/registerd.Pg | 74 +++++++++++++++++++++++--------------------------
 1 file changed, 35 insertions(+), 39 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index a4fd0552c..471384137 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.1 2001-04-23 12:40:30 ivan Exp $
+# $Id: registerd.Pg,v 1.2 2001-04-23 16:25:05 ivan Exp $
 
 use strict;
 use vars qw(
@@ -65,13 +65,13 @@ while ( 1 ) {
   $sth->execute or die $sth->errstr;
 
   $sth = $dbh->prepare(
-    'SELECT * FROM mysql_auth WHERE status = "unconfigured" OR status = "reconfigure"'
+    'SELECT * FROM mysql_auth WHERE status = "unconfigured"'
   );
   $sth->execute or die $sth->errstr;
   my $pending = $sth->fetchall_arrayref( {} );
 
   $sth = $dbh->prepare(
-    'UPDATE mysql_auth SET status = "locked" WHERE status = "unconfigured" OR status = "reconfigure"'
+    'UPDATE mysql_auth SET status = "locked" WHERE status = "unconfigured"'
   );
   $sth->execute or die $sth->errstr;
 
@@ -84,7 +84,6 @@ while ( 1 ) {
 
     my $username = $row->{'username'};
     my $email = $row->{'passwd'};
-    my $status = $row->{'status'};
 
     system("/usr/bin/createdb --username freeside demo_$username >/dev/null");
 
@@ -145,41 +144,38 @@ while ( 1 ) {
     );
     $sth->execute or die $sth->errstr;
 
-    if ( $status eq "unconfigured" ) {
-
-      #$ENV{SMTPHOSTS} = "localhost";
-      $ENV{SMTPHOSTS} = "192.168.1.1";
-      $ENV{MAILADDRESS} = 'ivan-fsreg@sisd.com';
-      $ENV{TZ} = "PST8PDT";
-      $header = Mail::Header->new( [
-        'From: ivan-fsreg@sisd.com',
-        "To: $email",
-        'Bcc: ivan-fsreg_bcc@sisd.com',
-        'Sender: ivan-fsreg@sisd.com',
-        'Reply-To: ivan-fsreg@sisd.com',
-        #'Date: '. time2str("%a, %d %b %Y %X %z", time ),
-        'Date: '. time2str("%a, %d %b %Y %X ", time ). "-0800",
-        'Subject: Freeside demo information',
-      ] );
-      $msg = Mail::Internet->new(
-        'Header' => $header,
-        'Body' => [
-      "Hello,\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",
-      "-- \n",
-      "ivan\n",
-                  ]
-      );
-      $msg->smtpsend or die "Can\'t send registration email!";
-    }
+    #$ENV{SMTPHOSTS} = "localhost";
+    $ENV{SMTPHOSTS} = "192.168.1.1";
+    $ENV{MAILADDRESS} = 'ivan-fsreg@sisd.com';
+    $ENV{TZ} = "PST8PDT";
+    $header = Mail::Header->new( [
+      'From: ivan-fsreg@sisd.com',
+      "To: $email",
+      'Bcc: ivan-fsreg_bcc@sisd.com',
+      'Sender: ivan-fsreg@sisd.com',
+      'Reply-To: ivan-fsreg@sisd.com',
+      #'Date: '. time2str("%a, %d %b %Y %X %z", time ),
+      'Date: '. time2str("%a, %d %b %Y %X ", time ). "-0800",
+      'Subject: Freeside demo information',
+    ] );
+    $msg = Mail::Internet->new(
+      'Header' => $header,
+      'Body' => [
+    "Hello,\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",
+    "-- \n",
+    "ivan\n",
+                ]
+    );
+    $msg->smtpsend or die "Can\'t send registration email!";
 
   }
 
-- 
cgit v1.2.1


From 9bdcd4171c17f020420b6d8c8e7b335695b2abb1 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Thu, 26 Apr 2001 00:17:39 +0000
Subject: sigh

---
 fs_webdemo/registerd.Pg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 471384137..702d83d06 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.2 2001-04-23 16:25:05 ivan Exp $
+# $Id: registerd.Pg,v 1.3 2001-04-26 00:17:39 ivan Exp $
 
 use strict;
 use vars qw(
@@ -85,7 +85,7 @@ while ( 1 ) {
     my $username = $row->{'username'};
     my $email = $row->{'passwd'};
 
-    system("/usr/bin/createdb --username freeside demo_$username >/dev/null");
+    system("/usr/bin/createdb --username freeside demo_$username | mail ivan-createdb\@420.am");
 
     system "psql -U freeside demo_$username 
Date: Thu, 26 Apr 2001 00:18:36 +0000
Subject: sigh

---
 fs_webdemo/registerd.Pg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 702d83d06..53a118638 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.3 2001-04-26 00:17:39 ivan Exp $
+# $Id: registerd.Pg,v 1.4 2001-04-26 00:18:36 ivan Exp $
 
 use strict;
 use vars qw(
@@ -87,7 +87,7 @@ while ( 1 ) {
 
     system("/usr/bin/createdb --username freeside demo_$username | mail ivan-createdb\@420.am");
 
-    system "psql -U freeside demo_$username 
Date: Thu, 26 Apr 2001 02:18:15 +0000
Subject: argh

---
 fs_webdemo/registerd.Pg | 34 +++++++++++++++++++++++++++++-----
 1 file changed, 29 insertions(+), 5 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 53a118638..996ac8b23 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.4 2001-04-26 00:18:36 ivan Exp $
+# $Id: registerd.Pg,v 1.5 2001-04-26 02:18:15 ivan Exp $
 
 use strict;
 use vars qw(
@@ -50,7 +50,7 @@ die "not running as root user"
 $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
+#$x = $DBI::errstr; #silly; to avoid "used only once" warning
 
 while ( 1 ) {
 
@@ -85,9 +85,25 @@ while ( 1 ) {
     my $username = $row->{'username'};
     my $email = $row->{'passwd'};
 
-    system("/usr/bin/createdb --username freeside demo_$username | mail ivan-createdb\@420.am");
-
-    system "psql -U freeside demo_$username connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' )
+      or do { &myerr("$username: ". $DBI::errstr); next; };
+
+    $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
+      or do { &myerr("$username: ". $pdbh->errstr;); next; };
+    $psth->execute()
+      or do { &myerr("$username: ". $psth->errstr;); next; };
+
+    open(PSQL,"|psql -U freeside demo_$username")
+      or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
+    open(PSQLDATA, ") {
+      print PSQL $_;
+    }
+    close PSQLDATA
+      or do { &myerr("/usr/local/etc/freeside/demo_template.Pg: $!"); next; };
+    close PSQL
+      or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
 
     mkdir "${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username", 0755;    
     system "cp -pr ${freeside_conf}conf.DBI:Pg:host=localhost\\;dbname=demo_template/* ".
@@ -190,3 +206,11 @@ while ( 1 ) {
 
 }
 
+sub myerr {
+  my $msg = shift;
+  open(MAIL,"|mail ivan-fsdemoerr@420.am");
+  print MAIL $msg, "\n\n";
+  print MAIL $msg, "\n\n";
+  close MAIL;
+};
+
-- 
cgit v1.2.1


From 85c2ddbd1de869de87001bbf16b50dd63ac4b6a1 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Thu, 26 Apr 2001 02:20:41 +0000
Subject: arg

---
 fs_webdemo/registerd.Pg | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 996ac8b23..7fa4c9a3d 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.5 2001-04-26 02:18:15 ivan Exp $
+# $Id: registerd.Pg,v 1.6 2001-04-26 02:20:41 ivan Exp $
 
 use strict;
 use vars qw(
@@ -85,14 +85,17 @@ while ( 1 ) {
     my $username = $row->{'username'};
     my $email = $row->{'passwd'};
 
-    $pdbh = DBI->connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' )
+    my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' )
       or do { &myerr("$username: ". $DBI::errstr); next; };
 
-    $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
+    my $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
       or do { &myerr("$username: ". $pdbh->errstr;); next; };
     $psth->execute()
       or do { &myerr("$username: ". $psth->errstr;); next; };
 
+    $pdbh->disconnect
+      or do { &myerr("fatal: $DBI:errstr"); die; };
+
     open(PSQL,"|psql -U freeside demo_$username")
       or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
     open(PSQLDATA, "
Date: Thu, 26 Apr 2001 02:21:19 +0000
Subject: ARG

---
 fs_webdemo/registerd.Pg | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 7fa4c9a3d..672b892ff 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.6 2001-04-26 02:20:41 ivan Exp $
+# $Id: registerd.Pg,v 1.7 2001-04-26 02:21:19 ivan Exp $
 
 use strict;
 use vars qw(
@@ -89,9 +89,9 @@ while ( 1 ) {
       or do { &myerr("$username: ". $DBI::errstr); next; };
 
     my $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
-      or do { &myerr("$username: ". $pdbh->errstr;); next; };
+      or do { &myerr("$username: ". $pdbh->errstr); next; };
     $psth->execute()
-      or do { &myerr("$username: ". $psth->errstr;); next; };
+      or do { &myerr("$username: ". $psth->errstr); next; };
 
     $pdbh->disconnect
       or do { &myerr("fatal: $DBI:errstr"); die; };
-- 
cgit v1.2.1


From 836e20fbc7e694ac5be5ee067637cae4b855e40a Mon Sep 17 00:00:00 2001
From: ivan 
Date: Thu, 26 Apr 2001 02:23:27 +0000
Subject: arfuckingargh

---
 fs_webdemo/registerd.Pg | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 672b892ff..6f882da77 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.7 2001-04-26 02:21:19 ivan Exp $
+# $Id: registerd.Pg,v 1.8 2001-04-26 02:23:27 ivan Exp $
 
 use strict;
 use vars qw(
@@ -94,7 +94,7 @@ while ( 1 ) {
       or do { &myerr("$username: ". $psth->errstr); next; };
 
     $pdbh->disconnect
-      or do { &myerr("fatal: $DBI:errstr"); die; };
+      or do { &myerr("fatal: $DBI::errstr"); die; };
 
     open(PSQL,"|psql -U freeside demo_$username")
       or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
@@ -211,7 +211,7 @@ while ( 1 ) {
 
 sub myerr {
   my $msg = shift;
-  open(MAIL,"|mail ivan-fsdemoerr@420.am");
+  open(MAIL,"|mail ivan-fsdemoerr\@420.am");
   print MAIL $msg, "\n\n";
   print MAIL $msg, "\n\n";
   close MAIL;
-- 
cgit v1.2.1


From 2ce72aa7adbac1ff4ecafd2e79311b62362d4f68 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Thu, 26 Apr 2001 02:28:40 +0000
Subject: argh

---
 fs_webdemo/registerd.Pg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 6f882da77..b1409a92c 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.8 2001-04-26 02:23:27 ivan Exp $
+# $Id: registerd.Pg,v 1.9 2001-04-26 02:28:40 ivan Exp $
 
 use strict;
 use vars qw(
@@ -85,7 +85,7 @@ while ( 1 ) {
     my $username = $row->{'username'};
     my $email = $row->{'passwd'};
 
-    my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' )
+    my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;dbname=demo_template', 'freeside', 'maelcolm' )
       or do { &myerr("$username: ". $DBI::errstr); next; };
 
     my $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
-- 
cgit v1.2.1


From 3919924e14e1d0fa70e0e194f8da045389f34e8e Mon Sep 17 00:00:00 2001
From: ivan 
Date: Sun, 30 Sep 2001 07:55:52 +0000
Subject: purge message

---
 fs_webdemo/registerd.Pg | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index b1409a92c..8c8b94557 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.9 2001-04-26 02:28:40 ivan Exp $
+# $Id: registerd.Pg,v 1.10 2001-09-30 07:55:52 ivan Exp $
 
 use strict;
 use vars qw(
@@ -184,6 +184,8 @@ while ( 1 ) {
     "\n",
     "Your sample Freeside database has been setup.\n",
     "\n",
+    "Your login and database will be automatically deleted in 1-2 months.\n",
+    "\n",        
     "Point your web browswer at http://freeside.sisd.com/ and use the following\n",
     "authentication information:\n",
     "\n",
-- 
cgit v1.2.1


From e6b57805f6b3e76448ab9b6d280f2c53bc1410f3 Mon Sep 17 00:00:00 2001
From: ivan 
Date: Wed, 24 Oct 2001 15:29:31 +0000
Subject: preliminary web config editor

new config files: username-ampersand, passwordmax

fs-setup updates

get rid of old and crufty and unused registries/ config foo

documentation updates
---
 fs_webdemo/registerd.Pg | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'fs_webdemo')

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 8c8b94557..f166846b7 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.10 2001-09-30 07:55:52 ivan Exp $
+# $Id: registerd.Pg,v 1.11 2001-10-24 15:29:30 ivan Exp $
 
 use strict;
 use vars qw(
@@ -131,15 +131,15 @@ while ( 1 ) {
     print LPR "mail $email";
     close LPR;
 
-    open(FROM, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from")
-      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from: $!";
-    print FROM "$email\n";
-    close FROM;
-
-    open(TO, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to")
-      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to: $!";
-    print TO "$email\n";
-    close TO;
+#    open(FROM, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from")
+#      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from: $!";
+#    print FROM "$email\n";
+#    close FROM;
+#
+#    open(TO, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to")
+#      or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to: $!";
+#    print TO "$email\n";
+#    close TO;
 
     open(SECRETS, ">${freeside_conf}secrets.demo_$username")
       or die "Can\'t open ${freeside_conf}secrets.demo_$username: $!";
-- 
cgit v1.2.1