Changeset 46 for trunk

Timestamp:

Jul 23, 2009, 12:13:01 AM (15 years ago)

Author:

g7moreau

Message:

• Before pass test : perlcritic klask
• Now pass : perlcritic -4 klask

File:

• trunk/klask (modified) (21 diffs)

trunk/klask

@@ -114 +114 @@
    die "Configuration file $KLASK_CFG_FILE does not exists. Klask need it !\n" if not -e "$KLASK_CFG_FILE";
    die "Var folder $KLASK_VAR does not exists. Klask need it !\n"              if not -d "$KLASK_VAR";
+   return;
    }
 
 sub test_switchdb_environnement {
    die "Switch database $KLASK_SW_FILE does not exists. Launch updatesw before this command !\n" if not -e "$KLASK_SW_FILE";
+   return;
    }
 
 sub test_maindb_environnement {
    die "Main database $KLASK_DB_FILE does not exists. Launch updatedb before this command !\n" if not -e "$KLASK_DB_FILE";
+   return;
    }
 
@@ -128 +131 @@
 sub fastping {
    system "fping -c 1 @_ >/dev/null 2>&1";
+   return;
    }
 
@@ -277 +281 @@
 
    print "\n" if $verbose;
+   return;
    }
 
@@ -514 +519 @@
  klask status  switch port
 END
+   return;
    }
 
@@ -526 +532 @@
    print ' $Date$'."\n";
    print ' $Id$'."\n";
+   return;
    }
 
@@ -539 +546 @@
          unless $where{switch_description} eq 'unknow' and $resol_arp{hostname_fq} eq 'unknow' and $resol_arp{mac_address} eq 'unknow';
       }
+   return;
    }
 
@@ -567 +575 @@
          $date;
       }
+   return;
    }
 
@@ -745 +754 @@
 #      print  "arping -c 1 -w 1 -rR -i $interface $one_computer 2>/dev/null\n";
       }
+   return;
    }
 
@@ -766 +776 @@
    mkdir "$dirdb", 0755 unless -d "$dirdb";
    YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
+   return;
    }
 
@@ -785 +796 @@
    
    $possible_format{$format}->(@ARGV);
+   return;
    }
 
@@ -819 +831 @@
          $date;
       }
+   return;
    }
 
@@ -1025 +1038 @@
 </table>
 END
+   return;
    }
 
@@ -1047 +1061 @@
       printf "%s: \"%s\"\n", $ip, $sw_location if not $sw_location eq '';
       }
+   return;
    }
 
@@ -1056 +1071 @@
    #snmpset -v 1 -c community X.X.X.X 1.3.6.1.2.1.2.2.1.7.NoPort = 2 (down) 
    system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 1";
+   return;
    }
 
@@ -1063 +1079 @@
    
    system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 2";
+   return;
    }
 
@@ -1070 +1087 @@
    
    system "snmpget -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port";
+   return;
    }
 
@@ -1114 +1132 @@
 
    print "Klask find MAC $mac_address on switch $switch_name port $swport\n";
+   return;
    }
 
@@ -1301 +1320 @@
       
    YAML::Syck::DumpFile("$KLASK_SW_FILE", $switch_connection);
+   return;
    }
 
@@ -1322 +1342 @@
    
    $possible_format{$format}->(@ARGV);
+   return;
    }
 
@@ -1357 +1378 @@
          }
       }
+   return;
    }
 
@@ -1447 +1469 @@
 
 print "}\n";
+   return;
    }