projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5358118
)
fixup domain svcpart selection
author
ivan
<ivan>
Thu, 27 May 2004 09:30:14 +0000
(09:30 +0000)
committer
ivan
<ivan>
Thu, 27 May 2004 09:30:14 +0000
(09:30 +0000)
bin/sqlradius.import
patch
|
blob
|
history
diff --git
a/bin/sqlradius.import
b/bin/sqlradius.import
index
9cb518e
..
120cbf3
100644
(file)
--- a/
bin/sqlradius.import
+++ b/
bin/sqlradius.import
@@
-34,7
+34,7
@@
my $sqlradius_svcpart = &getpart;
die "No services with svcdb svc_domain!\n" unless %domain_part_svc;
die "No services with svcdb svc_domain!\n" unless %domain_part_svc;
-print "\n\n", &menu_svc, "\n", <<END;
+print "\n\n", &menu_
domain_
svc, "\n", <<END;
Enter part number for domains.
END
my $domain_svcpart = &getdomainpart;
Enter part number for domains.
END
my $domain_svcpart = &getdomainpart;
@@
-43,6
+43,12
@@
my $datasrc = &getvalue("\n\nEnter the DBI datasource:");
my $db_user = &getvalue("\n\nEnter the database user:");
my $db_pass = &getvalue("\n\nEnter the database password:");
my $db_user = &getvalue("\n\nEnter the database user:");
my $db_pass = &getvalue("\n\nEnter the database password:");
+sub menu_svc {
+ ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %part_svc ). "\n";
+}
+sub menu_domain_svc {
+ ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %domain_part_svc ). "\n";
+}
sub getpart {
$^W=0; # Term::Query isn't -w-safe
my $return = query "Enter part number:", 'irk', [ keys %part_svc ];
sub getpart {
$^W=0; # Term::Query isn't -w-safe
my $return = query "Enter part number:", 'irk', [ keys %part_svc ];