Gérer serveur DHCP ?

Gérer serveur DHCP ? - Réseaux - Systèmes & Réseaux Pro

Marsh Posté le 05-04-2011 à 08:56:14    

Hello,
 
Avez vous des solutions pour gérer/voir les logs plus facilement d'un serveur dhcp sous Ubuntu server ? Un outils de monitoring, voir les la durée des baux, voir quelles adresses sont prises et celles non...Avoir une vu globale du serveur quoi.
 
J'ai cherché mais je n'ai pas vu grand chose d'intéressant...à part un petit script qui permet de d'être alerter par mail dès que quelqu'un obtient une adresses (en surveillant la taille du fichier dhclient.lease) mais bon...
 
Merci d'avance :)


Message édité par zit11 le 05-04-2011 à 08:57:48

---------------
Je suis pas Superman, je suis Super-vagabond, mais toi t’es Super-pomme. Tu es très gouteuse, tu es très... biologique, très naturelle ! Tu es la pomme de ma vie.
Reply

Marsh Posté le 05-04-2011 à 08:56:14   

Reply

Marsh Posté le 06-04-2011 à 10:40:51    

Je me réponds :o
 
En gros, y a pas de gestion rapide...Mais avec 2/3 scripts on peut s'en sortir.
Voici ce que j'ai trouvé :
 
Ce petit script en perl permet de récuperer les infos de dhcpd.leases et d'avoir un ptit récapitulatif du bail, du constructeur (suivant l'adresse mac) avec le fichier oui.txt qui contient la liste des constructeurs.
 
script perl :

Code :
  1. #!/usr/bin/perl
  2. #
  3. # Shows current leases.
  4. #
  5. # THIS SCRIPT IS PUBLIC DOMAIN, NO RIGHTS RESERVED!
  6. # 2008-07-13, Christian Hammers <ch@lathspell.de>
  7. #
  8. use strict;
  9. use warnings;
  10. use POSIX qw(strftime);
  12. my $LEASES = '/var/lib/dhcp3/dhcpd.leases';
  13. my @all_leases;
  14. my @leases;
  16. my @OUIS = ('/usr/share/misc/oui.txt', '/usr/local/etc/oui.txt');
  17. my $OUI_URL = 'http://standards.ieee.org/regauth/oui/oui.txt';
  18. my $oui;
  20. my %data;
  22. my $opt_format = 'human';
  23. my $opt_keep = 'active';
  25. ## Return manufactorer name for specified MAC address (aa:bb:cc:dd:ee:ff).
  26. sub get_manufactorer_for_mac($) {
  27.     my $manu = "";
  29.     if (defined $oui) {
  30.         $manu = join('-', ($_[0] =~ /^(..):(..):(..):/));
  31.         $manu = `grep -i '^$manu' $oui | cut -f3`;
  32.         chomp($manu);
  33.     }
  35.     return $manu;
  36. }
  38. ## Read oui.txt or print warning.
  39. sub check_oui_file() {
  40.     for my $oui_cand (@OUIS) {
  41.         if ( -r $oui_cand) {
  42.         $oui = $oui_cand;
  43.         last;
  44.         }
  45.     }
  46.     print(STDERR "Please download $OUI_URL to /usr/local/etc/oui.txt\n" ) if not defined $oui;
  47. }
  49. ## Read current leases file into array.
  50. sub read_dhcpd_leases() {
  51.     open(F, $LEASES) or die("Cannot open $LEASES: $!" );
  52.     my $content = join('', <F> );
  53.     close(F);
  54.     @all_leases = split(/lease/, $content);
  55. }
  57. ## Add manufactor name and sort out obsolet assignements.
  58. sub process_leases() {
  59.     my $gm_now = strftime("%Y/%m/%d %H:%M:%S", gmtime());
  60.     my %tmp_leases; # for sorting and filtering
  62.     # parse entries
  63.     foreach my $lease (@all_leases) {
  64.         # skip invalid lines
  65.         next if not ($lease =~ /^\s+([\.\d]+)\s+{.*starts \d+ ([\/\d\ \:]+);.*ends \d+ ([\/\d\ \:]+);.*ethernet ([a-f0-9:]+);/s);
  66.         # skip outdated lines
  67.         next if ($opt_keep eq 'active'  and  $3 lt $gm_now);
  69.         my $mac = $4;
  70.         my $date_end = $3;
  71.         my %entry = (
  72.             'ip' => $1,
  73.             'date_begin' => $2,
  74.             'date_end' => $date_end,
  75.             'mac' => $mac,
  76.             'manu' => get_manufactorer_for_mac($mac),
  77.         );
  78.         $entry{'date_begin'} =~ s#\/#-#g; # long live ISO 8601
  79.         $entry{'date_end'}   =~ s#\/#-#g;
  81.         if ($opt_keep eq 'all') {
  82.             push(@leases, \%entry);
  83.         } elsif (not defined $tmp_leases{$mac}  or  $tmp_leases{$mac}{'date_end'} gt $date_end) {
  84.             $tmp_leases{$mac} = \%entry;
  85.         }
  86.     }
  88.     # In case we used the hash to filtered
  89.     if (%tmp_leases) {
  90.         foreach (sort keys %tmp_leases) {
  91.             my $h = $tmp_leases{$_};
  92.             push(@leases, $h);
  93.         }
  94.     }
  95. }
  97. # Output all valid leases.
  98. sub output_leases() {
  99.     if ($opt_format eq 'human') {
  100.         print("#      MAC            IP             valid until           manufactorer\n" );
  101.     }
  102.     foreach (@leases) {
  103.         if ($opt_format eq 'human') {
  104.             printf("%s  %s  %s  %s\n",
  105.                 $_->{'mac'},                 # MAC
  106.                 $_->{'ip'},        # IP address
  107.                 $_->{'date_end'},  # Date
  108.                 $_->{'manu'});     # manufactor name
  109.         } else {
  110.             printf("MAC %s IP %s BEGIN %s END %s MANUFACTORER %s\n",
  111.                 $_->{'mac'},
  112.                 $_->{'ip'},
  113.                 $_->{'date_begin'},
  114.                 $_->{'date_end'},
  115.                 $_->{'manu'});
  116.         }
  117.     }
  118. }
  120. # Commandline Processing.
  121. sub cli_processing() {
  122.     while (my $arg = shift(@ARGV)) {
  123.         if ($arg eq '--help') {
  124.             print(
  125.                   "Prints active DHCP leases.\n\n".
  126.                   "Usage: $0 [options]\n".
  127.                   " --help      shows this help\n".
  128.                   " --parsable  machine readable output with full dates\n".
  129.                   " --last      prints the last (even if end<now) entry for every MAC\n".
  130.                   " --all       prints all entries i.e. more than one per MAC\n".
  131.                   "\n" );
  132.             exit(0);                 
  133.         } elsif ($arg eq '--parsable') {
  134.             $opt_format = 'parsable';
  135.         } elsif ($arg eq '--last') {
  136.             $opt_keep = 'last';
  137.         } elsif ($arg eq '--all') {
  138.             $opt_keep = 'all';
  139.         } else {
  140.             die("Unknown option $arg" );
  141.         }
  142.     }
  143. }
  145. #
  146. # main()
  147. #
  148. cli_processing();
  149. check_oui_file();
  150. read_dhcpd_leases();
  151. process_leases();
  152. output_leases();


 
- Après un autre petit script qui exécute ce script et qui envoie la sortie de celui ci en mail:
 

Code :
  1. #!/bin/sh
  2. perl dhcp.perl > out.txt
  3. sleep 10
  4. mail -s "Baux DHCP" monadresse@mail.com < out.txt


 
Voila, c'est du bidouillage mais ça fonctionne bien :o si ça peut servir à quelqu'un  :hello:


---------------
Je suis pas Superman, je suis Super-vagabond, mais toi t’es Super-pomme. Tu es très gouteuse, tu es très... biologique, très naturelle ! Tu es la pomme de ma vie.
Reply

Marsh Posté le 06-04-2011 à 12:04:14    

perl [:suri_2002]  
 
Je le garde sous la main pour mon futur perso, merci :jap:


---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D
Reply

Marsh Posté le 06-04-2011 à 15:37:24    

Je garde ça sous le coude aussi pour un problème dans ma boîte :)


---------------
Encore une victoire de canard !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed