diff options
| author | ivan <ivan> | 2000-03-03 06:28:50 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-03-03 06:28:50 +0000 |
| commit | ab3994ca459732272181e32dad40caaf371f9be7 (patch) | |
| tree | e59b12ec4a0cbd356960d637ba259ee82a44bb9f /fs_webdemo | |
| parent | 859bfa57db033957bdb1778f042e7ee9a1df4e1e (diff) | |
kludge but effective
Diffstat (limited to 'fs_webdemo')
| -rwxr-xr-x | fs_webdemo/registerd | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/fs_webdemo/registerd b/fs_webdemo/registerd index e6127638b..258d198db 100755 --- a/fs_webdemo/registerd +++ b/fs_webdemo/registerd @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: registerd,v 1.5 2000-03-03 06:10:18 ivan Exp $ +# $Id: registerd,v 1.6 2000-03-03 06:28:50 ivan Exp $ use strict; use vars qw( @@ -123,7 +123,9 @@ while ( 1 ) { 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; @@ -150,7 +152,8 @@ while ( 1 ) { '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( |