From 7de51deb0e3e3fe1b0a9e06be6498256d5511bd0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 24 Mar 2004 14:23:26 +0000
Subject: [PATCH] move export info to the modules themselves

---
 FS/FS/part_export/router.pm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

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;
+
-- 
2.11.0