+++ /dev/null
-#!/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 <<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 username, password, and URL
- have been emailed to you.
- </BODY>
-</HTML>
-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 <<END;
-Internet Service Provider, Inc.
-1 Packet Blvd.
-Router, MN 10010
-
-END
-close ADDRESS;
-
-open(DOMAIN, ">${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 <<END;
-10.0.0.1 ns1.this-is-an-example-domain.tld
-10.0.0.2 ns2.this-is-an-example-domain.tld
-10.0.0.3 ns3.this-is-an-example-domain.tld
-END
-close NAMESERVERS;
-open(TECH_CONTACT, ">${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 <<END;
-/bin/sh
-/bin/csh
-/bin/bash
-/bin/tcsh
-/bin/ksh
-/bin/passwd
-/bin/true
-/bin/false
-
-END
-close SHELLS;
-
-open(SMTPMACHINE, ">${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 <ivan\@sisd.com>\n",
-"20 4,16 \* \* \* saytime\n",
- ]
-);
-$msg->smtpsend or die "Can\'t send registration email!";
-
-###
-
-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;
-
-}
projects / freeside.git / blobdiff