projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[freeside.git]
/
fs_webdemo
/
registerd
diff --git
a/fs_webdemo/registerd
b/fs_webdemo/registerd
index
e6c071d
..
e10acf2
100755
(executable)
--- a/
fs_webdemo/registerd
+++ b/
fs_webdemo/registerd
@@
-1,6
+1,6
@@
#!/usr/bin/perl -w
#
#!/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(
use strict;
use vars qw(
@@
-42,8
+42,10
@@
$pass = "maelcolm";
@pw_set = ( 'a'..'z', '0'..'9' );
@saltset = ( '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 system user freeside"
+# unless $> == scalar(getpwnam('freeside'));
+die "not running as root user"
+ unless $> == 0;
$dbh = DBI->connect( $datasrc, $user, $pass, {
'AutoCommit' => 'true',
$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("/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;
mkdir "${freeside_conf}conf.DBI:mysql:demo_$username", 0755;
- system "cp -r ${freeside_conf}conf.DBI:mysql:demo_template/* ".
+ system "cp -
p
r ${freeside_conf}conf.DBI:mysql:demo_template/* ".
"${freeside_conf}conf.DBI:mysql:demo_$username";
mkdir "${freeside_conf}counters.DBI:mysql:demo_$username", 0755;
"${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";
"${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")
"${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(
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;
);
$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',
'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(
'Subject: Freeside demo information',
] );
$msg = Mail::Internet->new(