Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2738 connectés 

  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Réseaux

  Gérer serveur DHCP ?

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Gérer serveur DHCP ?

n°79196
zit11
Posté le 05-04-2011 à 08:56:14  profilanswer
 

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.
mood
Publicité
Posté le 05-04-2011 à 08:56:14  profilanswer
 

n°79244
zit11
Posté le 06-04-2011 à 10:40:51  profilanswer
 

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.
n°79253
bardiel
Debian powa !
Posté le 06-04-2011 à 12:04:14  profilanswer
 

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


---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D
n°79261
Power Nabo​t
Verticalement désavantagé.
Posté le 06-04-2011 à 15:37:24  profilanswer
 

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


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Réseaux

  Gérer serveur DHCP ?

 

Sujets relatifs
Acces serveur web impossible depuis l exterieurserveur de fichiers parfois inaccessible
outil de taxation serveur VOIP (Asterisk)Serveur d'impression 2008
Gestion des virtual machines (clients - serveur)Sous domaine avec nom de serveur
Serveur Applis stuckConseil pour achat d'un serveur
Accès au serveur bridé à 100 Mbps par Cisco 2950 ?Problemen DFS-N sur un serveur, et pas sur les autres
Plus de sujets relatifs à : Gérer serveur DHCP ?

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.078 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR