projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ea3a48e
)
use FS::Conf
author
ivan
<ivan>
Wed, 16 Dec 1998 05:19:15 +0000
(
05:19
+0000)
committer
ivan
<ivan>
Wed, 16 Dec 1998 05:19:15 +0000
(
05:19
+0000)
htdocs/edit/svc_acct.cgi
patch
|
blob
|
history
htdocs/edit/svc_acct_sm.cgi
patch
|
blob
|
history
diff --git
a/htdocs/edit/svc_acct.cgi
b/htdocs/edit/svc_acct.cgi
index
61d0fdc
..
93af2eb
100755
(executable)
--- a/
htdocs/edit/svc_acct.cgi
+++ b/
htdocs/edit/svc_acct.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-#
svc_acct.cgi: Add/edit account (output form)
+#
$Id: svc_acct.cgi,v 1.2 1998-12-16 05:17:28 ivan Exp $
#
# Usage: svc_acct.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
#
# Usage: svc_acct.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
@@
-18,17
+18,15
@@
# use conf/shells and dbdef username length ivan@sisd.com 98-jul-13
use strict;
# use conf/shells and dbdef username length ivan@sisd.com 98-jul-13
use strict;
+use vars qw($conf);
use CGI::Base qw(:DEFAULT :CGI);
use FS::UID qw(cgisuidsetup getotaker);
use FS::Record qw(qsearch qsearchs);
use FS::svc_acct qw(fields);
use CGI::Base qw(:DEFAULT :CGI);
use FS::UID qw(cgisuidsetup getotaker);
use FS::Record qw(qsearch qsearchs);
use FS::svc_acct qw(fields);
+use FS::Conf;
-my($shells)="/var/spool/freeside/conf/shells";
-open(SHELLS,$shells) or die "Can't open $shells: $!";
-my(@shells)=map {
- /^([\/\w]*)$/ or die "Illegal shell in conf/shells!";
- $1;
-} grep $_ !~ /^#/, <SHELLS>;
+$conf = new FS::Conf;
+my @shells = $conf->config('shells');
my($cgi) = new CGI::Base;
$cgi->get;
my($cgi) = new CGI::Base;
$cgi->get;
diff --git
a/htdocs/edit/svc_acct_sm.cgi
b/htdocs/edit/svc_acct_sm.cgi
index
45a8eb8
..
5493215
100755
(executable)
--- a/
htdocs/edit/svc_acct_sm.cgi
+++ b/
htdocs/edit/svc_acct_sm.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-#
svc_acct_sm.cgi: Add/edit a mail alias (output form)
+#
$Id: svc_acct_sm.cgi,v 1.2 1998-12-16 05:19:15 ivan Exp $
#
# Usage: svc_acct_sm.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct_sm.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
#
# Usage: svc_acct_sm.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct_sm.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
@@
-33,20
+33,22
@@
# rewrite ivan@sisd.com 98-mar-15
#
# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-26
# rewrite ivan@sisd.com 98-mar-15
#
# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-26
+#
+# $Log: svc_acct_sm.cgi,v $
+# Revision 1.2 1998-12-16 05:19:15 ivan
+# use FS::Conf
+#
use strict;
use strict;
+use vars qw($conf);
use CGI::Base qw(:DEFAULT :CGI);
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::svc_acct_sm qw(fields);
use CGI::Base qw(:DEFAULT :CGI);
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::svc_acct_sm qw(fields);
+use FS::Conf;
-my($conf_domain)="/var/spool/freeside/conf/domain";
-open(DOMAIN,$conf_domain) or die "Can't open $conf_domain: $!";
-my($mydomain)=map {
- /^(.*)$/ or die "Illegal line in $conf_domain!"; #yes, we trust the file
- $1
-} grep $_ !~ /^(#|$)/, <DOMAIN>;
-close DOMAIN;
+$conf = new FS::Conf;
+my $mydomain = $conf->config('domain');
my($cgi) = new CGI::Base;
$cgi->get;
my($cgi) = new CGI::Base;
$cgi->get;