r228@brr: dpavlin | 2007-11-18 13:58:05 +0100

[perl-cwmp.git] / lib / CWMP / Vendor.pm

diff --git a/lib/CWMP/Vendor.pm b/lib/CWMP/Vendor.pm
index f09f120..cc055da 100644 (file)
--- a/lib/CWMP/Vendor.pm
+++ b/lib/CWMP/Vendor.pm
@@ -42,12 +42,19 @@ sub new {
 my $cpe_faulty;
 
 my $serial2ip = {
-       'CP0636JT3SH' => '192.168.1.242',
-       'CP0644JTHJ4' => '192.168.1.253',
+       'CP0636JT3SH' => '10.0.0.1',
+       'CP0644JTHJ4' => '10.0.0.2',
+       'CP0624BH55U' => '10.0.0.3',
 };
 
 my ( $last_ip, $last_serial );
 
+=head2 state2serial
+
+  my $serial = state2serial( $state );
+
+=cut
+
 sub state2serial {
        my $state = shift;
 
@@ -61,6 +68,14 @@ sub state2serial {
        return ( $serial, $ip );
 }
 
+=head2 add_triggers
+
+Install all custom triggers
+
+  CWMP::Vendor->add_triggers;
+
+=cut
+
 sub add_triggers {
 
        warn __PACKAGE__, "->add_triggers\n" if $debug;