Changeset 97

Timestamp:

Mar 30, 2011, 11:17:56 PM (13 years ago)

Author:

g7moreau

Message:

• Add verbose on method ip-free

File:

• trunk/klask (modified) (4 diffs)

trunk/klask

@@ -1186 +1186 @@
    my $days_to_dead = 365 * 2;
    my $format = 'txt';
+   my $verbose;
 
    my $ret = GetOptionsFromArray(\@vlan_name,
       'day|d=i'      => \$days_to_dead,
       'format|f=s'   => \$format,
+      'verbose|v'    => \$verbose,
       );
 
@@ -1195 +1197 @@
       txt  => \&cmd_ip_free_txt,
       html => \&cmd_ip_free_html,
+      none => sub {},
       );
    $format = 'txt' if not defined $possible_format{$format};
@@ -1212 +1215 @@
 
       my @ip_list = get_list_ip($vlan);
-#      my $current_interface = get_current_interface($vlan);
-      
+
       LOOP_ON_IP_ADDRESS:
       for my $ip (@ip_list) {
@@ -1236 +1238 @@
             $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET) || 'unknown' if defined $packed_ip;
          $result_ip{$ip}->{hostname_fq} = $hostname_fq;
-         
+
          $result_ip{$ip}->{vlan} = $vlan;
+
+         printf "VERBOSE_1: %-15s %-12s %s\n", $ip, $vlan, $hostname_fq if $verbose;
          }
       }