X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_webdemo%2Fregisterd;fp=fs_webdemo%2Fregisterd;h=258d198db720dc691b2b1ef5e31ec0c9f33dd70c;hp=e6127638bae1956c5370c870ed560ae0a58d5852;hb=ab3994ca459732272181e32dad40caaf371f9be7;hpb=859bfa57db033957bdb1778f042e7ee9a1df4e1e

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(