- if ( $status eq "unconfigured" ) {
-
- #$ENV{SMTPHOSTS} = "localhost";
- $ENV{SMTPHOSTS} = "192.168.1.1";
- $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!";
- }
+ #$ENV{SMTPHOSTS} = "localhost";
+ $ENV{SMTPHOSTS} = "192.168.1.1";
+ $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",
+ "Your login and database will be automatically deleted in 1-2 months.\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!";