summaryrefslogtreecommitdiff
path: root/fs_webdemo
diff options
context:
space:
mode:
authorivan <ivan>2001-10-24 15:29:31 +0000
committerivan <ivan>2001-10-24 15:29:31 +0000
commite6b57805f6b3e76448ab9b6d280f2c53bc1410f3 (patch)
treee05b4074ba546fa07a0da0587fb048b48ae21e23 /fs_webdemo
parent40927c9cd9472719a3720270256f4300b81ebc98 (diff)
preliminary web config editor
new config files: username-ampersand, passwordmax fs-setup updates get rid of old and crufty and unused registries/ config foo documentation updates
Diffstat (limited to 'fs_webdemo')
-rwxr-xr-xfs_webdemo/registerd.Pg20
1 files changed, 10 insertions, 10 deletions
diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 8c8b94557..f166846b7 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
#
-# $Id: registerd.Pg,v 1.10 2001-09-30 07:55:52 ivan Exp $
+# $Id: registerd.Pg,v 1.11 2001-10-24 15:29:30 ivan Exp $
use strict;
use vars qw(
@@ -131,15 +131,15 @@ while ( 1 ) {
print LPR "mail $email";
close LPR;
- open(FROM, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from")
- or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from: $!";
- print FROM "$email\n";
- close FROM;
-
- open(TO, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to")
- or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to: $!";
- print TO "$email\n";
- close TO;
+# open(FROM, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from")
+# or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/from: $!";
+# print FROM "$email\n";
+# close FROM;
+#
+# open(TO, ">${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to")
+# or die "Can\'t open ${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username/registries/internic/to: $!";
+# print TO "$email\n";
+# close TO;
open(SECRETS, ">${freeside_conf}secrets.demo_$username")
or die "Can\'t open ${freeside_conf}secrets.demo_$username: $!";