diff options
author | ivan <ivan> | 2004-05-27 09:30:14 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-05-27 09:30:14 +0000 |
commit | cf9f008216028a4140208f0b26bba773c01fc5a2 (patch) | |
tree | 88e6b910f61dc44a540774f802e7f1c05e93078d | |
parent | 535811854078c1720ab5250f1a1669306796df95 (diff) |
fixup domain svcpart selection
-rw-r--r-- | bin/sqlradius.import | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/bin/sqlradius.import b/bin/sqlradius.import index 9cb518e7f..120cbf373 100644 --- 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; -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; @@ -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:"); +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 ]; |