projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
better error message about missing secrets file errors. WTF is going on!
[freeside.git]
/
fs_webdemo
/
registerd
diff --git
a/fs_webdemo/registerd
b/fs_webdemo/registerd
index
e612763
..
6314d0a
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.
5 2000-03-03 06:10:18
ivan Exp $
+# $Id: registerd,v 1.
8 2000-03-03 12:27:54
ivan Exp $
use strict;
use vars qw(
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";
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";
system "cp -p ${freeside_conf}dbdef.DBI:mysql:demo_template ".
"${freeside_conf}dbdef.DBI:mysql:demo_$username";
@@
-123,7
+125,9
@@
while ( 1 ) {
open(SECRETS, ">${freeside_conf}secrets.demo_$username")
or die "Can\'t open ${freeside_conf}secrets.demo_$username: $!";
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;
print SECRETS "DBI:mysql:demo_$username\nfreeside\nmaelcolm\n";
close SECRETS;
@@
-150,7
+154,8
@@
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 ),
+ 'Date: '. time2str("%a, %d %b %Y %X ", time ). "-0800",
'Subject: Freeside demo information',
] );
$msg = Mail::Internet->new(
'Subject: Freeside demo information',
] );
$msg = Mail::Internet->new(