diff options
author | ivan <ivan> | 2001-10-24 15:29:31 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-10-24 15:29:31 +0000 |
commit | e6b57805f6b3e76448ab9b6d280f2c53bc1410f3 (patch) | |
tree | e05b4074ba546fa07a0da0587fb048b48ae21e23 /fs_webdemo | |
parent | 40927c9cd9472719a3720270256f4300b81ebc98 (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-x | fs_webdemo/registerd.Pg | 20 |
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: $!"; |