diff options
author | ivan <ivan> | 2008-06-27 08:53:13 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-06-27 08:53:13 +0000 |
commit | 7588be4eb948426b972d0238dcdbb1537dc6a72a (patch) | |
tree | 75a04f7ce1efbc51847c1aa0b6cc82c9d1d2633e /fs_selfservice/FS-SelfService/SelfService.pm | |
parent | cda9905b36efab4cb3f4a325f86747d5dc0cbb51 (diff) |
adding signup_server-service config
Diffstat (limited to 'fs_selfservice/FS-SelfService/SelfService.pm')
-rw-r--r-- | fs_selfservice/FS-SelfService/SelfService.pm | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/fs_selfservice/FS-SelfService/SelfService.pm b/fs_selfservice/FS-SelfService/SelfService.pm index ec4668f..cbe7b72 100644 --- a/fs_selfservice/FS-SelfService/SelfService.pm +++ b/fs_selfservice/FS-SelfService/SelfService.pm @@ -58,7 +58,7 @@ $socket .= '.'.$tag if defined $tag && length($tag); 'agent_info' => 'Agent/agent_info', 'agent_list_customers' => 'Agent/agent_list_customers', ); -@EXPORT_OK = ( keys(%autoload), qw( regionselector expselect popselector domainselector) ); +@EXPORT_OK = ( keys(%autoload), qw( regionselector expselect popselector domainselector didselector) ); $ENV{'PATH'} ='/usr/bin:/usr/ucb:/bin'; $ENV{'SHELL'} = '/bin/sh'; @@ -1437,6 +1437,30 @@ sub domainselector { } +=item didselector HASHREF | LIST + +Takes as input a hashref or list of key/value pairs with the following keys: + +=over 4 + +=back + +Returns an HTML fragment for DID selection. + +=cut + +sub didselector { + my $param; + if ( ref($_[0]) ) { + $param = shift; + } else { + $param = { @_ }; + } + + return "choose your DID XXX"; + +} + =back =head1 RESELLER FUNCTIONS |