Changeset 111


Ignore:
Timestamp:
Jul 5, 2012, 10:40:29 PM (12 years ago)
Author:
g7moreau
Message:
  • Small format string
  • Update Copyright
  • Update DNS
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r110 r111  
    11#!/usr/bin/perl -w
    22#
    3 # Copyright (C) 2005-2008 Gabriel Moreau.
     3# Copyright (C) 2005-2012 Gabriel Moreau.
    44#
    55# $Id$
     
    5555   searchdb   => \&cmd_searchdb,
    5656   removedb   => \&cmd_removedb,
    57    cleandb   => \&cmd_cleandb,
     57   cleandb    => \&cmd_cleandb,
    5858   search     => \&cmd_search,
    5959   enable     => \&cmd_enable,
     
    6262   updatesw   => \&cmd_updatesw,
    6363   exportsw   => \&cmd_exportsw,
    64    iplocation => \&cmd_iplocation,
     64   iplocation => \&cmd_ip_location,
    6565   'ip-free'  => \&cmd_ip_free,
    6666   'search-mac-on-switch' => \&cmd_search_mac_on_switch,
     
    144144###
    145145# fast ping dont l'objectif est de remplir la table arp de la machine
    146 sub fastping {
     146sub fast_ping {
    147147   # Launch this command without waiting...
    148148   system "fping -c 1 @_ >/dev/null 2>&1 &";
     
    568568print <<'END';
    569569Klask - ports manager and finder for switch
    570 Copyright (C) 2005-2008 Gabriel Moreau
     570Copyright (C) 2005-2012 Gabriel Moreau
    571571
    572572END
     
    581581
    582582   init_switch_names();    #nomme les switchs
    583    fastping(@computer);
     583   fast_ping(@computer);
    584584   for my $clientname (@computer) {
    585585      my %resol_arp = resolve_ip_arp_host($clientname);          #resolution arp
     
    594594   my @computer = @_;
    595595
    596    fastping(@computer);
     596   fast_ping(@computer);
    597597   my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
    598598
     
    674674      my $current_interface = get_current_interface($net);
    675675
    676       #fastping(@computer);
     676      #fast_ping(@computer);
    677677
    678678      LOOP_ON_COMPUTER:
     
    11861186   }
    11871187
    1188 sub cmd_iplocation {
     1188sub cmd_ip_location {
    11891189   my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
    11901190
     
    17931793Klask has now a web site dedicated for it !
    17941794
    1795  http://servforge.legi.inpg.fr/projects/klask
     1795 http://servforge.legi.grenoble-inp.fr/projects/klask
    17961796
    17971797
     
    19091909GPL version 2 or later and Perl equivalent
    19101910
    1911 Copyright (C) 2005-2009 Gabriel Moreau.
     1911Copyright (C) 2005-2012 Gabriel Moreau.
Note: See TracChangeset for help on using the changeset viewer.