Changeset 64

Show
Ignore:
Timestamp:
07/20/05 17:31:15 (3 years ago)
Author:
ludo
Message:

new etherGetMacsFilterName function (from r2344)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/server/admin/perl/lbs-lib.pl

    r52 r64  
    2727 
    2828 
    29 $_lbslibversion = "1.4.3" ; 
     29$_lbslibversion = "1.5.0" ; 
    3030$_lbsdebug      = 0 ; 
    3131$WOL_EXTENSION  = "wol"; 
    …… 
    502502{ 
    503503 return sort( keys %{$_[0]} ) ; 
     504} 
     505 
     506# @list etherGetMacsFilterName(\%einfo, $regexp) 
     507# Retourne la liste des adresses MAC des machines. 
     508# Se base sur la structure retournee par etherLoad(). 
     509# 
     510sub etherGetMacsFilterName 
     511{ 
     512 my $ref = $_[0]; 
     513 my $re = $_[1]; 
     514 return sort( grep ( $ref->{$_}[1] =~ /$re/ , keys(%$ref) ) ) ; 
    504515} 
    505516