+++ /dev/null
-#!/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 <<END;
-<HTML>
- <HEAD>
- <TITLE>Freeside demo registration successful</TITLE>
- </HEAD>
- <BODY BGCOLOR="#FFFFFF">
- <table>
- <tr><td>
- <p align=center>
- <img border=0 alt="Silicon Interactive Software Design" src="http://www.sisd.com/freeside/small-logo.gif">
- </td><td>
- <center><font color="#ff0000" size=7>freeside demo registration successful</font></center>
- </td></tr>
- </table>
- <P>Your sample database has been setup. Your password and the URL for the
- Freeside demo have been emailed to you.
- </BODY>
-</HTML>
-END
-
-###
-
-sub idiot {
- my($error)=@_;
- print $cgi->header, <<END;
-<HTML>
- <HEAD>
- <TITLE>Registration error</TITLE>
- </HEAD>
- <BODY BGCOLOR="#FFFFFF">
- <CENTER>
- <H4>Registration error</H4>
- </CENTER>
- <P><B>$error</B>
- <P>Hit the <I>Back</I> button in your web browser, correct this mistake,
- and submit the form again.
- </BODY>
-</HTML>
-END
-
- exit;
-
-}
+++ /dev/null
-<HTML>
- <HEAD>
- <TITLE>
- Freeside - Billing and account administration software for ISPs
- </TITLE>
- </HEAD>
- <BODY BGCOLOR="#ffffff">
- <table>
- <tr><td>
- <A HREF="http://www.sisd.com/">
- <IMG BORDER=0 SRC="small-logo.gif" ALIGN=LEFT>
- </A>
- </td><td>
- <center><font color="#ff0000" size=7 size=+4>freeside demo registration</font></center>
- </td></tr>
- </table>
-<P>You will need to choose a username for access to the Freeside web demo.
-
-<P><FONT SIZE=+1 COLOR="#ff0000">A password
- and the URL for your demo will be emailed to you, so don't waste your
- time with non-deliverable addresses.</FONT>
-We will <B>not</B> give your email address to any third party,
- nor will we send you any unsolicited email (or in fact any email after the automatic registration).
- <FORM ACTION="register.cgi" METHOD="POST">
- <PRE>
-Freeside username: <INPUT TYPE="text" NAME="username" MAXLENGTH=16>
-
-Email address: <INPUT TYPE="text" NAME="email">
-</PRE>
-<BR><INPUT TYPE="Submit" VALUE="Register">
- </FORM>
- </BODY>
-</HTML>
+++ /dev/null
-#!/usr/bin/perl -w
-#
-# $Id: registerd,v 1.8 2000-03-03 12:27:54 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"'
- );
- $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 $email = $row->{'passwd'};
-
- system("/usr/bin/mysqladmin --user=$user --password=$pass ".
- "create demo_$username >/dev/null");
-
- system "cp -p $mysql_data/demo_template/* $mysql_data/demo_$username";
-
- mkdir "${freeside_conf}conf.DBI:mysql:demo_$username", 0755;
- 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 -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.DBI:mysql:demo_$username";
-
- 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")
- 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(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: $!";
- 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;
-
- 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;
-
- $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 ),
- '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;
-
-}
-
+++ /dev/null
-#!/usr/bin/perl -w
-#
-# $Id: registerd.Pg,v 1.11 2001-10-24 15:29: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"'
- );
- $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 $email = $row->{'passwd'};
-
- 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")
- 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, "</usr/local/etc/freeside/demo_template.Pg")
- or do { &myerr("/usr/local/etc/freeside/demo_template.Pg: $!"); next; };
- while(<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/* ".
- "${freeside_conf}conf.DBI:Pg:host=localhost\\;dbname=demo_$username";
-
- mkdir "${freeside_conf}counters.DBI:Pg:host=localhost;dbname=demo_$username", 0755;
- system "cp -p ${freeside_conf}counters.DBI:Pg:host=localhost\\;dbname=demo_template/* ".
- "${freeside_conf}counters.DBI:Pg:host=localhost\\;dbname=demo_$username";
- chown scalar(getpwnam('freeside')), scalar(getgrnam('freeside')),
- "${freeside_conf}counters.DBI:Pg:host=localhost;dbname=demo_$username";
-
- system "cp -p ${freeside_conf}dbdef.DBI:Pg:host=localhost\\;dbname=demo_template ".
- "${freeside_conf}dbdef.DBI:Pg:host=localhost\\;dbname=demo_$username";
-
- open(INVOICE_FROM, ">${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;
-
- #$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",
- "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",
- "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;
-
-}
-
-sub myerr {
- my $msg = shift;
- open(MAIL,"|mail ivan-fsdemoerr\@420.am");
- print MAIL $msg, "\n\n";
- print MAIL $msg, "\n\n";
- close MAIL;
-};
-
projects / freeside.git / commitdiff