X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_webdemo%2Fregisterd;fp=fs_webdemo%2Fregisterd;h=0000000000000000000000000000000000000000;hp=6314d0af2d08c1205a31074b9d7852bf653d6849;hb=596fe22104792b042efff8b2f690a052c177b17a;hpb=8f77501778f91af71be1c1bda19c48ae9669424b

diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd
deleted file mode 100755
index 6314d0af2..000000000
--- a/fs_webdemo/registerd
+++ /dev/null
@@ -1,192 +0,0 @@
-#!/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;
-
-}
-