diff options
| -rw-r--r-- | FS/FS/part_export/router.pm | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/FS/FS/part_export/router.pm b/FS/FS/part_export/router.pm index 07b5b9edb..e2cde53d4 100644 --- a/FS/FS/part_export/router.pm +++ b/FS/FS/part_export/router.pm @@ -31,12 +31,33 @@ The export itself needs the following options: =cut -use vars qw(@ISA @saltset); +use vars qw(@ISA %info @saltset); +use Tie::IxHash; use String::ShellQuote; use FS::part_export; @ISA = qw(FS::part_export); +tie my %options, 'Tie::IxHash', + 'protocol' => { + label=>'Protocol', + type =>'select', + options => [qw(telnet ssh)], + default => 'telnet'}, + 'insert' => {label=>'Insert command', default=>'' }, + 'delete' => {label=>'Delete command', default=>'' }, + 'replace' => {label=>'Replace command', default=>'' }, + 'Timeout' => {label=>'Time to wait for prompt', default=>'20' }, + 'Prompt' => {label=>'Prompt string', default=>'#' } +; + +%info = ( + 'svc' => 'svc_broadband', + 'desc' => 'Send a command to a router.', + 'options' => \%options, + 'notes' => '( more detailed description from Kristian / fire2wire? )', +); + @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' ); sub rebless { shift; } @@ -164,3 +185,5 @@ sub telnet_cmd { #sub router_delete { #subroutine, not method #} +1; + |