Changeset 111 for trunk

Timestamp:

Jul 5, 2012, 10:40:29 PM (13 years ago)

Author:

g7moreau

Message:

• Small format string
• Update Copyright
• Update DNS

File:

• trunk/klask (modified) (11 diffs)

trunk/klask

@@ -1 +1 @@
 #!/usr/bin/perl -w
 #
-# Copyright (C) 2005-2008 Gabriel Moreau.
+# Copyright (C) 2005-2012 Gabriel Moreau.
 #
 # $Id$
@@ -55 +55 @@
    searchdb   => \&cmd_searchdb,
    removedb   => \&cmd_removedb,
-   cleandb   => \&cmd_cleandb,
+   cleandb    => \&cmd_cleandb,
    search     => \&cmd_search,
    enable     => \&cmd_enable,
@@ -62 +62 @@
    updatesw   => \&cmd_updatesw,
    exportsw   => \&cmd_exportsw,
-   iplocation => \&cmd_iplocation,
+   iplocation => \&cmd_ip_location,
    'ip-free'  => \&cmd_ip_free,
    'search-mac-on-switch' => \&cmd_search_mac_on_switch,
@@ -144 +144 @@
 ###
 # fast ping dont l'objectif est de remplir la table arp de la machine
-sub fastping {
+sub fast_ping {
    # Launch this command without waiting...
    system "fping -c 1 @_ >/dev/null 2>&1 &";
@@ -568 +568 @@
 print <<'END';
 Klask - ports manager and finder for switch
-Copyright (C) 2005-2008 Gabriel Moreau
+Copyright (C) 2005-2012 Gabriel Moreau
 
 END
@@ -581 +581 @@
 
    init_switch_names();    #nomme les switchs
-   fastping(@computer);
+   fast_ping(@computer);
    for my $clientname (@computer) {
       my %resol_arp = resolve_ip_arp_host($clientname);          #resolution arp
@@ -594 +594 @@
    my @computer = @_;
 
-   fastping(@computer);
+   fast_ping(@computer);
    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
 
@@ -674 +674 @@
       my $current_interface = get_current_interface($net);
 
-      #fastping(@computer);
+      #fast_ping(@computer);
 
       LOOP_ON_COMPUTER:
@@ -1186 +1186 @@
    }
 
-sub cmd_iplocation {
+sub cmd_ip_location {
    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
 
@@ -1793 +1793 @@
 Klask has now a web site dedicated for it !
 
- http://servforge.legi.inpg.fr/projects/klask
+ http://servforge.legi.grenoble-inp.fr/projects/klask
 
 
@@ -1909 +1909 @@
 GPL version 2 or later and Perl equivalent
 
-Copyright (C) 2005-2009 Gabriel Moreau.
+Copyright (C) 2005-2012 Gabriel Moreau.