smeserver-dhcpmanager/root/etc/e-smith/web/functions/dhcpd

957 lines
36 KiB
Plaintext
Raw Normal View History

#!/usr/bin/perl -wU
#----------------------------------------------------------------------
# heading : Configuration
# description : DHCP manager
# navigation : 2000 2500
#
# Copyright (c) 2003 Thierry Quaak thierry@quaak.net
# 2014 Stephane de Labrusse stephdl@de-labrusse.fr
#----------------------------------------------------------------------
my $fm = esmith::FormMagick->new();
$fm->parse_xml();
###Call Modules
use strict;
use CGI ':all';
use CGI::Carp qw(fatalsToBrowser);
use esmith::cgi;
use esmith::util;
use esmith::templates;
use esmith::ConfigDB;
use esmith::AccountsDB;
use esmith::FormMagick;
use Net::Ping;
use esmith::util::network qw(:all);
use Socket qw( inet_aton );
###Declare function prototypes
sub Main_Display ($$);
sub Load_leases ($);
sub Main_Save ($);
sub Del_Lease ($);
sub Perform_Del_Lease ($);
sub Wake_Up ($);
sub Perform_Wake_Up ($);
sub Message ($$);
sub Global_WinPopup ($);
sub Perform_Message ($);
sub Table_IP ($$);
sub Scan_Local_Network ($);
sub Del_all_Lease ($);
sub Perform_del_all_Lease ($);
sub Save_checkip ($);
### Clear PATH and related environment variables so that calls to
### external programs do not cause results to be tainted. See
### "perlsec" manual page for details.
BEGIN {
$ENV {'PATH'} = '';
$ENV {'SHELL'} = '/bin/bash';
delete $ENV {'ENV'};
}
###Define package global to SME configuration paramters using "old" method.
###We are using this method, over esmith::ConfigDB, to satisfy syntax in
###esmith::cgi
our %conf = ();
tie %conf, 'esmith::config';
our @liste_computer ;
our @liste_connected ;
###Change UID -- not sure what we are doing this, but all panels seem to
###call this function.
esmith::util::setRealToEffective ();
our %status = ('enabled' => $fm->localise('ENABLED'),
'disabled' => $fm->localise('DISABLED')
);
our %check = ('enabled' => $fm->localise('ENABLED'),
'disabled' => $fm->localise('DISABLED')
);
###Restrict uploads to form submittals only
$CGI::POST_MAX=1024 * 100; # max 100K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads
###Examine state parameter and display the appropriate form
my $q = new CGI;
if (! grep (/^state$/, $q->param)){ Main_Display($q, '');}
elsif ($q->param ('state') eq "main_display"){Main_Display ($q,'');}
elsif ($q->param ('state') eq $fm->localise('REFRESH')){Table_IP ($q, '');}
elsif ($q->param ('state') eq "main_save"){Main_Save ($q);}
elsif ($q->param ('state') eq "del_lease"){Del_Lease ($q);}
elsif ($q->param ('state') eq "perform_del_lease"){Perform_Del_Lease ($q);}
elsif ($q->param ('state') eq "wake_up"){Wake_Up ($q);}
elsif ($q->param ('state') eq "perform_wake_up"){Perform_Wake_Up ($q);}
elsif ($q->param ('state') eq $fm->localise('GLOBAL_WINPOPUP')){Global_WinPopup ($q);}
elsif ($q->param ('state') eq "message"){Message ($q,'');}
elsif ($q->param ('state') eq "perform_message"){Perform_Message ($q);}
elsif ($q->param ('state') eq $fm->localise('CONNECTED_IP')){Table_IP ($q,'');}
elsif ($q->param ('state') eq $fm->localise('SCAN_YOUR_NETWORK')){Scan_Local_Network ($q);}
elsif ($q->param ('state') eq $fm->localise('REMOVE_ALL_LEASES')){Del_all_Lease ($q);}
elsif ($q->param ('state') eq $fm->localise('REMOVE_ALL_LEASES_ACTION')){Perform_del_all_Lease ($q);}
elsif ($q->param ('state') eq 'Save_checkIP'){Save_checkip ($q);}
else{esmith::cgi::genStateError ($q, \%conf);}
exit (0);
#===============================================================================
#SUBROUTINE TO SHOW MAIN PANEL
#===============================================================================
sub Main_Display ($$){
###Pull cgi object from parameters array
my $q = shift;
my @computer;
my $status ;
###Pull action message, if any, from parameters array
my $action_message = shift;
###Retrieve SME configuration entry for dhcpd
my $dbh_sme = esmith::ConfigDB->open('/home/e-smith/db/configuration');
my %sme_conf = $dbh_sme->get('dhcpd')->props;
###Display Main Panel Title
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('DHCPD_TITLE'));
###Check to see if we just processed a panel action. If so, display
###action message and bail.
if ($action_message) {
print $q->h3 ($fm->localise('STATUS_REPORT') . " $action_message");
}
#------------------------------------------------------------
# Start DHCP client Panel
#------------------------------------------------------------
print $q->p ('');
print $q->startform (-method => 'POST',
-action => $q->url (-absolute => 1));
print $q->Tr (esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('CONNECTED_IP'))));
print $q->Tr (esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('SCAN_YOUR_NETWORK'))));
print $q->Tr (esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('GLOBAL_WINPOPUP'))));
print $q->hidden (-name => 'liste_connected', -override => 1, -default => "@liste_connected");
#------------------------------------------------------------
# Start DHCP daemon Panel
#------------------------------------------------------------
print $q->hr;
print $q->h3 ($fm->localise('DHCPD_SETTINGS_TITLE'));
if (! $sme_conf{'winscustom'} ) {
$sme_conf{'winscustom'} = 'disabled' ;
}
if (! $sme_conf{'dnscustom'} ) {
$sme_conf{'dnscustom'} = 'disabled' ;
}
if ( ! $sme_conf{'leasetime'} )
{ $sme_conf{'leasetime'} = "86400" ;
}
if (! $sme_conf{'gatewaycustom'} ) {
$sme_conf{'gatewaycustom'} = 'disabled' ;
}
#check the status (up or down) of dhcp client
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
esmith::cgi::genWidgetRow ($q, $fm->localise('CHECK_CLIENT_STATUS'),
$q->popup_menu (-name => 'dhcp_check',
-values => ['disabled', 'enabled'],
-default => $sme_conf{'check'},
-labels => \%check)) );
# - modofication des plage DHCP
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
esmith::cgi::genWidgetRow ($q, $fm->localise('STATUS_DHCP_SERVER'),
$q->popup_menu (-name => 'dhcp_enable',
-values => ['enabled', 'disabled'],
-default => $sme_conf{'status'},
-labels => \%status)) ,
esmith::cgi::genNameValueRow ($q,
$fm->localise('DHCP_START'),
'dhcp_start',
$sme_conf{'start'}) ,
esmith::cgi::genNameValueRow ($q,
$fm->localise('DHCP_END') ,
'dhcp_end',
$sme_conf{'end'}),
esmith::cgi::genTextRow ($q,
$q->p ($fm->localise('CUSTOM_WINSERVER_TITLE'))),
esmith::cgi::genWidgetRow ($q, $fm->localise('CUSTOM_WINSERVER_STATUS'),
$q->popup_menu (-name => 'dhcp_winscustom',
-values => ['enabled', 'disabled'],
-default => $sme_conf{'winscustom'},
-labels => \%status)),
esmith::cgi::genNameValueRow ($q,
$fm->localise('CUSTOM_WINSERVER_ADDRESS'),
'dhcp_winsserver',
$dbh_sme->get_prop('smb','WINSServer')),
#### Custom DNS
esmith::cgi::genTextRow ($q,
$q->p ($fm->localise('CUSTOM_DNS_TITLE'))),
esmith::cgi::genWidgetRow ($q, $fm->localise('CUSTOM_DNS_STATUS'),
$q->popup_menu (-name => 'dhcp_dnscustom',
-values => ['enabled', 'disabled'],
-default => $sme_conf{'dnscustom'},
-labels => \%status)),
esmith::cgi::genNameValueRow ($q,
$fm->localise('PRIMARY_DNS_ADDRESS'),
'dhcp_dns1server',
$sme_conf{'dns1server'}),
esmith::cgi::genNameValueRow ($q,
$fm->localise('SECONDARY_DNS_ADDRESS'),
'dhcp_dns2server',
$sme_conf{'dns2server'}),
esmith::cgi::genNameValueRow ($q,
$fm->localise('TERTIARY_DNS_ADDRESS'),
'dhcp_dns3server',
$sme_conf{'dns3server'}),
#### Custom default Gateway
esmith::cgi::genTextRow ($q,
$q->p ($fm->localise('CUSTOM_GATEWAY_TITLE'))),
esmith::cgi::genWidgetRow ($q, $fm->localise('CUSTOM_GATEWAY_STATUS'),
$q->popup_menu (-name => 'dhcp_gatewaycustom',
-values => ['enabled', 'disabled'],
-default => $sme_conf{'gatewaycustom'},
-labels => \%status)),
esmith::cgi::genNameValueRow ($q,
$fm->localise('CUSTOM_GATEWAY_ADDRESS'),
'dhcp_gateway',
$sme_conf{'gateway'}),
#dhcp LEASE SET UP
esmith::cgi::genTextRow ($q,
$q->p ($fm->localise('CUSTOM_LEASETIME_TITLE'))),
esmith::cgi::genNameValueRow ($q,
$fm->localise('CUSTOM_LEASETIME'),
'dhcp_leasetime',
$sme_conf{'leasetime'})
);
print '</table>';
print $q->start_table ({width => "100%", -class => "sme-noborders"}),
"\n";
print esmith::cgi::genButtonRow ($q,
$q->submit (-name => 'action', -value => $fm->localise('SAVE/RESTART')));
print $q->end_table,"\n";
print $q->hidden (
-name => 'state',
-override => 1,
-default => 'main_save'
),"\n";
print $q->endform;
esmith::cgi::genFooter ($q);
}
#
#===============================================================================
#SUBROUTINE: Process Save From Main Panel
#===============================================================================
sub Main_Save ($){
##Pull CGI object from parameters array
my $q = shift;
###Build Hash of config parameters to update from cgi submit
my $dhcpd_status = $q->param ('dhcp_enable');
my $dhcpd_winscustom = $q->param ('dhcp_winscustom');
my $dhcpd_check = $q->param ('dhcp_check');
my $dhcpd_start = $q->param ('dhcp_start');
my $dhcpd_end = $q->param ('dhcp_end');
my $dhcpd_winsserver = $q->param ('dhcp_winsserver');
my $dhcpd_leasetime = $q->param ('dhcp_leasetime');
my $dhcpd_dnscustom = $q->param ('dhcp_dnscustom');
my $dhcpd_dns1server = $q->param ('dhcp_dns1server');
my $dhcpd_dns2server = $q->param ('dhcp_dns2server');
my $dhcpd_dns3server = $q->param ('dhcp_dns3server');
my $dhcpd_gatewaycustom = $q->param ('dhcp_gatewaycustom');
my $dhcpd_gateway = $q->param ('dhcp_gateway');
###Update SME configuration dbase
my $dbh_sme = esmith::ConfigDB->open('/home/e-smith/db/configuration');
##Initiate get method --> create record object
my $sme_record = $dbh_sme->get('dhcpd');
#get localip of server
my $local_ip = $dbh_sme->get_value('LocalIP');
##Set status of service
$sme_record->set_prop('status', $dhcpd_status);
$sme_record->set_prop('check' , $dhcpd_check);
$sme_record->set_prop('winscustom', $dhcpd_winscustom);
$sme_record->set_prop('leasetime' , $dhcpd_leasetime);
$sme_record->set_prop('dnscustom' , $dhcpd_dnscustom);
$sme_record->set_prop('gatewaycustom' , $dhcpd_gatewaycustom);
#checkip to the dhcpserver, perform the save in DB configuration or display an error if value != of a valid ip or if dhcp_start is greater than dhcp_end
if ($dhcpd_status eq "enabled")
{
if ( isValidIP ($dhcpd_start) && isValidIP ($dhcpd_end))
{
#check if $dhcpd_start is greater than $dhcpd_end and if yes, display an error message.
if (inet_aton($dhcpd_start) ge inet_aton($dhcpd_end))
{
Main_Display($q, $fm->localise('DHCP_START_GREATER_DHCP_END_ERRORS') . ' (' . $dhcpd_start . '/' . $dhcpd_end .')');
}
elsif ( ( (inet_aton($dhcpd_start) le inet_aton($local_ip) ) && ( inet_aton($dhcpd_end)) ge inet_aton($local_ip) ) )
{
#display an error if the range of dhcp server include the ip of the server address
Main_Display($q, $fm->localise('DHCP_RANGE_MUST_NOT_INCLUDE_SERVER_IP') . ' (' . $local_ip . ')');
}
else
{
#set value
my $dhcpd_start = cleanIP($dhcpd_start);
my $dhcpd_end = cleanIP($dhcpd_end);
$sme_record->set_prop('end', $dhcpd_end);
$sme_record->set_prop('start', $dhcpd_start);
}
}
#if $dhcpd_start or $dhcpd_end are not valid ip then display an error
else
{
Main_Display($q, $fm->localise('DHCP_RANGE_WITH_BAD_IP') . ' (' . $dhcpd_start . '/' . $dhcpd_end .')');
}
}
#checkip to the winserver perform the save in DB configuration or display an error if value != of a valid ip
if ($dhcpd_winscustom eq "enabled")
{
if ( isValidIP ($dhcpd_winsserver) )
{
#set value
my $dhcpd_winsserver = cleanIP($dhcpd_winsserver);
$dbh_sme->set_prop('smb','WINSServer', $dhcpd_winsserver);
}
else
{
#if $dhcpd_winsserver is not valid ip then display an error
Main_Display($q, $fm->localise('WINSSERVER_BAD_IP') . ' (' . $dhcpd_winsserver .')');
}
}
elsif ($dhcpd_winscustom eq "disabled")
{
my $delws = $dbh_sme->get('smb');
$delws->delete_prop('WINSServer');
}
#checkip to the dnsserver custom, perform the save in DB configuration or display an error if value != of a valid ip
if ($dhcpd_dnscustom eq "enabled")
{
#check if $dhcpd_dns1server and ( $dhcpd_dns2server are valid ip or $dhcpd_dns2server = null )
if ( isValidIP ($dhcpd_dns1server) && (isValidIP($dhcpd_dns2server) || ( $dhcpd_dns2server eq "") ) && (isValidIP($dhcpd_dns3server) || ( $dhcpd_dns3server eq "") ) )
{
#set value
my $dhcpd_dns1server = cleanIP($dhcpd_dns1server);
$sme_record->set_prop('dns1server' , $dhcpd_dns1server);
my $dhcpd_dns2server = cleanIP($dhcpd_dns2server);
$sme_record->set_prop('dns2server' , $dhcpd_dns2server);
my $dhcpd_dns3server = cleanIP($dhcpd_dns3server);
$sme_record->set_prop('dns3server' , $dhcpd_dns3server);
}
else
{
##if $dhcpd_dns1server or $dhcpd_dns2server or $dhcpd_dns3server are not valid ip then display an error
Main_Display($q, $fm->localise('DNS_SERVER_WITH_BAD_IP') . ' (' . $dhcpd_dns1server . '/' . $dhcpd_dns2server . '/' . $dhcpd_dns3server .')');
}
}
#checkip to the gateway_custom perform the save in DB configuration or display an error if value != of a valid ip
if ($dhcpd_gatewaycustom eq "enabled")
{
if ( isValidIP ($dhcpd_gateway) )
{
#set value
my $dhcpd_gateway = cleanIP($dhcpd_gateway);
$sme_record->set_prop('gateway' , $dhcpd_gateway);
}
else
{
#if $dhcpd_gateway is not valid ip then display an error
Main_Display($q, $fm->localise('GATEWAY_BAD_IP') . ' (' . $dhcpd_gateway .')');
}
}
# - 4 expand templates
# changed to new sme standard signal-event
system ("/sbin/e-smith/signal-event","workgroup-update") == 0
or die "Error while saving settings: $!";
Main_Display($q, $fm->localise('SUCCESSFULLY_SAVED_SETTINGS') );
exit;
}
#
#===============================================================================
#SUBROUTINE: procedure qui supprime un bail dans le dhcpd.leases
#===============================================================================
sub Del_Lease ($){
###Pull CGI object from parameters array
$q = shift;
###Start Panel.
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('REMOVE_A_DHCP_LEASE_TITLE'));
print $q->h3($fm->localise('REMOVE_A_DHCP_LEASE'));
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
my $ip = $q->param ('host');
my $name = $q->param ('name');
print $q->p ($fm->localise('REMOVE_A_DHCP_LEASE_ACTION') . ' (' . $name .'/' . $ip .')');
print $q->p ($q->b ($fm->localise('ARE_YOU_SURE')));
print $q->submit (-name => 'action', -value => $fm->localise('REMOVE'));
print $q->hidden (-name => 'host',
-override => 1,
-default => $ip
);
print $q->hidden (-name => 'name',
-override => 1,
-default => $name
);
print $q->hidden (-name => 'state',
-override => 1,
-default => 'perform_del_lease');
print $q->endform;
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q);
return;
}
#===============================================================================
#SUBROUTINE: Perform delete lease
#===============================================================================
sub Perform_Del_Lease($){
###Pull CGI object from parameters array
$q = shift;
###Pull entry to delete
my $ip = $q->param('host');
my $name = $q->param('name');
my $name_in_file = '/var/lib/dhcpd/dhcpd.leases' ;
my $name_tmp_file = '/var/lib/dhcpd/dhcpd.leases.tmp' ;
my $name_out_file = '/var/lib/dhcpd/dhcpd.leases~' ;
my $del_current = "0" ;
open(INFILE,"<$name_in_file") || die "Read Error $name_in_file, Read: $!";
open(OUTFILE,">$name_tmp_file") || die "Write error $name_in_file, Write: $!";
while (<INFILE>) {
if ( "$_" =~ /lease $ip/ ) {
$del_current = "1" ;
}
if ( $del_current == "0" ) { print OUTFILE "$_" ; }
if ( "$_" =~ /}/ ) {
$del_current = "0" ;
}
}
rename ($name_tmp_file,$name_in_file) ;
system ("/bin/cp","-f","$name_in_file","$name_out_file") ;
close(INFILE);
close(OUTFILE);
# changed to new sme standard signal-event
system ("/sbin/e-smith/signal-event","workgroup-update") == 0
or die "Error while saving settings: $!";
###Return action message
Table_IP($q, $fm->localise('SUCCESSFULLY_DELETED_THE_CLIENT') . ' (' . $name . '/' . $ip .')');
exit;
}
#===============================================================================
#SUBROUTINE: procedure qui valide les parametres de l'host eteint
#===============================================================================
sub Wake_Up ($){
###Pull CGI object from parameters array
$q = shift;
###Start Panel.
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('WAKING_A_REMOTE_COMPUTER_TITLE'));
print $q->h3($fm->localise('WAKING_A_REMOTE_COMPUTER'));
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
my $mac = uc($q->param ('MAC'));
my $name = uc($q->param ('name'));
print $q->p ($q->b ($fm->localise('WAKING_A_REMOTE_COMPUTER_ACTION') . ' (' . $name . '/' . $mac . ')'));
print $q->submit (-name => 'action', -value => $fm->localise('WAKE_UP') . " $name");
print $q->hidden (-name => 'mac',
-override => 1,
-default => $mac
);
print $q->hidden (-name => 'name',
-override => 1,
-default => $name
);
print $q->hidden (-name => 'state',
-override => 1,
-default => 'perform_wake_up');
print $q->endform;
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q);
return;
}
#===============================================================================
#SUBROUTINE: Perform wake UP
#===============================================================================
sub Perform_Wake_Up($){
###Pull CGI object from parameters array
$q = shift;
###Get Mac Adress
my $mac = uc($q->param('mac'));
my $name = uc($q->param('name'));
#Send Wake Up to the station
#Old version obsolete since 1.5.0 - system ("/usr/bin/wol","$mac") ;
system ("/sbin/ether-wake","$mac") ;
###Return action message
Table_IP($q, $fm->localise('SUCCESSFULLY_CLIENT_WOL_REQUEST') . ' (' . $name . '/' . $mac . ')');
exit;
}
#=========================================================================
# Procedure qui charge le dhcpd.conf
# retourne un tableau contenant les informations
#=========================================================================
sub Load_leases ($){
#Definition de variable
use vars qw/
@detail $work_line $header /;
my $name_file = '/var/lib/dhcpd/dhcpd.leases' ;
@liste_computer = '' ;
#Ouverture du fichier en lecture seule
open(FILE,"<$name_file") || die "Read error $name_file, Error: $!" ;
#Parcours du fichier dhcpd.leases
while (<FILE>) {
# suppression des commentaires
if ($_ =~ /^#/) { next; }
#spurresion des lignes vides
if ($_ =~ /^$/) { next; }
#supression de la ligne uid de windows
if ($_ =~ /uid/) { next; }
#supression de la ligne tstp de XP
if ($_ =~ /tstp/) { next; }
#supression de la ligne "binding state active"
if ($_ =~ /binding/) { next; }
#supression de la ligne "next binding state"
if ($_ =~ /next/) { next; }
#suprresion des commentaire et des ;
$_ =~ s/\s#.*$//;
$_ =~ s/(;|{) *$//;
#supression des espace en debut de lignes
$_ =~ s/^ *\s//;
#Suppression des retours chariot en fin de lignes.
chomp $_ ;
#Chargement d'un tableau avec le contenu de la ligne.
(@detail) = split(/ /, $_) ;
#initialisation d'un nouveau poste connect<63>
if ($_ =~ /lease/) {
$work_line = "" ;
}
$header = shift(@detail);
$work_line = $work_line . ";" . join(" ",@detail) ;
if ($header =~ /}/) {
$work_line =~ s/ /;/g;
$work_line =~ s/^;//;
$work_line =~ s/"//g;
$work_line =~ s/;$//;
#we want the last entry is the first element of the array
unshift(@liste_computer,$work_line) ;
}
}
close(FILE);
}
#===============================================================================
#SUBROUTINE: Message
#===============================================================================
sub Message($$){
###Pull CGI object from parameters array
$q = shift;
###Pull entry to delete
my $name = $q->param('name');
my @liste_connected = $q->param('liste_connected');
my $message2send ;
if ( $name ) {
@liste_connected = () ;
push(@liste_connected,$name) ; }
else {$name = $fm->localise('ALL_OF_THEM')}
esmith::cgi::genHeaderNonCacheable ($q, \%conf,$fm->localise('SENDING_A_WINPOPUP'));
print $q->h3($fm->localise('SENDING_A_WINPOPUP_TO') . " @liste_connected.");
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
esmith::cgi::genNameValueRow ($q,$fm->localise('YOUR_MESSAGE'), 'message2send',
$fm->localise('WRITE_YOUR_MESSAGE')) );
print '</table>';
print $q->hr;
print $q->p ($q->p ($fm->localise('DO_YOU_WANT_TO_SENT') . " $name"));
print $q->submit (-name => 'action', -value => $fm->localise('SEND_WINPOPUP_TO') . " $name");
print $q->hidden (-name => 'liste_connected', -override => 1,
-default => @liste_connected);
print $q->hidden (-name => 'message2send', -override => 1, -default => $message2send);
print $q->hidden (-name => 'state', -override => 1, -default => 'perform_message');
print $q->endform;
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q);
return;
}
#===============================================================================
#SUBROUTINE: Perform message
#===============================================================================
sub Perform_Message($){
###Pull CGI object from parameters array
$q = shift;
###Get Mac Adress
my @liste_connected = split(' ',$q->param('liste_connected'));
my $message2send = $q->param('message2send');
foreach (@liste_connected){
system ("/etc/e-smith/events/actions/send-message","$_","$message2send") ;
}
Table_IP($q, $fm->localise('SUCCESSFULLY_SENT_MESSAGE') . " @liste_connected." . $fm->localise('WARNING_NO_WINPOPUP_GARANTY'));
exit;
}
#===============================================================================
#SUBROUTINE: Win Popup for all connected hosts
#===============================================================================
sub Global_WinPopup($){
my $q = shift;
my @liste_connected = $q->param('liste_connected');
Message($q,@liste_connected);
exit;
}
#===============================================================================
#SUBROUTINE: Create Table_IP of dhcp server
#===============================================================================
sub Table_IP ($$) {
###Pull cgi object from parameters array
my $q = shift;
my @computer;
my $status ;
###Pull action message, if any, from parameters array
my $action_message = shift;
###Retrieve SME configuration entry for dhcpd
my $dbh_sme = esmith::ConfigDB->open('/home/e-smith/db/configuration');
my %sme_conf = $dbh_sme->get('dhcpd')->props;
###Display Main Panel Title
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('MANAGING_DHCP_CLIENT'));
###Check to see if we just processed a panel action. If so, display
###action message and bail.
if ($action_message) {
print $q->h3 ($fm->localise('STATUS_REPORT') . " $action_message");
}
#------------------------------------------------------------
# Start DHCP client Panel
#------------------------------------------------------------
print $q->p ('');
print $q->startform (-method => 'POST',
-action => $q->url (-absolute => 1));
#refresh the list
print esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('REFRESH')));
#Remove all dhcpd lease
print esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('REMOVE_ALL_LEASES')));
print $q->hr;
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
esmith::cgi::genWidgetRow ($q, $fm->localise('CHECK_CLIENT_STATUS'),
$q->popup_menu (-name => 'dhcp_check',
-values => ['disabled', 'enabled'],
-default => $sme_conf{'check'},
-labels => \%check)) );
##save checkip ('Saving modification and restart the daemon...') and go to sub Save_checkip :)
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
esmith::cgi::genTextRow ($q,
$q->p ($fm->localise('SAVE_TITLE'))));
print $q->start_table ({width => "100%", -class => "sme-noborders"}),
"\n";
print esmith::cgi::genButtonRow ($q,
$q->submit (-name => 'action', -value => $fm->localise('SAVE/RESTART')));
print $q->end_table,"\n";
print $q->hidden (
-name => 'state',
-override => 1,
-default => 'Save_checkIP'
),"\n";
print $q->endform;
# Refresh Liste
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
&Load_leases ($q) ;
if ( 2 > 1 ) {
print $q->p ($q->b (''));
print $q->table ({border => 1, cellspacing => 1, cellpadding => 4,nowarp => 1});
print $q->Tr (esmith::cgi::genSmallCell ($q, $q->p ( '<center>' . 'IP')),
esmith::cgi::genSmallCell ($q, $q->p ( '<center>' . $fm->localise('NETWORK_NAME'))),
esmith::cgi::genSmallCell ($q, $q->p ( '<center>' . $fm->localise('STATUS_CLICK_FOR_WOL'))),
esmith::cgi::genSmallCell ($q, $q->p ( '<center>' . $fm->localise('START_DATE'))),
esmith::cgi::genSmallCell ($q, $q->p ( '<center>' . $fm->localise('END_DATE'))),
esmith::cgi::genSmallCell ($q, $q->p ( '<center>' . $fm->localise('MAC_ADDRESS') .
'</CENTER>')),
);
##9(sme8)12(sme9)->netbios (ancien10)::8(sme8)11(sme9)->mac address (ancien8)::0->ip::
##it is possible you may adapt array number if more options/lines are added to the dhcpd.leases
##symptoms are a blank or wrong line in Table_IP
my @mac = ();
my @count = ();
foreach (@liste_computer){
@computer = split(/;/, $_) ;
#we want to sort elements the array by mac address
$computer[11] = uc($computer[11]) ;
push @mac, ($computer[11]);
my @count;
push @count , (grep /$computer[11]/ , @mac);
next if (scalar @count > 1);
#we start the table if it is a valid IP
if ( $computer[0] ) {
$computer[12] = uc($computer[12]) ;
my $datedeb = $computer[2] . "-" . $computer[3] ;
my $datefin = $computer[5] . "-" . $computer[6] ;
$status = $q->a ({href => $q->url (-absolute => 1) .
"?state=wake_up&MAC=" . $computer[11] . "&name=" .
$computer[12]}, $fm->localise('NOT_CHECKED')) ;
if ( $sme_conf{'check'} =~ /enabled/ ) {
use Net::Ping;
my($ping_obj) = Net::Ping->new("icmp");
# formatage des dates
$computer[3] = substr($computer[3],0,5);
$computer[6] = substr($computer[6],0,5);
if ($ping_obj->ping("$computer[0]")) {
push(@liste_connected,$computer[12]) ;
$status = $fm->localise('ACTIVE_DEVICE');
#alimentation de la liste des connect<63>
}
else { $status = $q->a ({href => $q->url (-absolute => 1) .
"?state=wake_up&MAC=" . $computer[11] . "&name=" .
$computer[12]}, $fm->localise('WAKE_UP_ACTION'));
}
}
else {
push(@liste_connected,$computer[12]) ;
}
print $q->Tr (esmith::cgi::genSmallCell ($q, "$computer[0]"),
esmith::cgi::genSmallCell ($q, "$computer[12]"),
esmith::cgi::genSmallCell ($q, "<CENTER>" ."$status" ),
esmith::cgi::genSmallCell ($q, "<CENTER>" . "$datedeb" . "</CENTER>"),
esmith::cgi::genSmallCell ($q, "<CENTER>" . "$datefin" . "</CENTER>"),
esmith::cgi::genSmallCell ($q, "$computer[11]"),
esmith::cgi::genSmallCell ($q,
$q->a ({href => $q->url (-absolute => 1)
. "?state=del_lease&host=" . $computer[0] . "&name=" .
$computer[12]}, $fm->localise('REMOVE_ACTION'))),
esmith::cgi::genSmallCell ($q,
$q->a ({href => $q->url (-absolute => 1)
. "?state=message&name=" . $computer[12]}, $fm->localise('WINPOPUP_ACTION')))
);
}
}
print '</table>';
}
else{
print $q->p ($q->b ($fm->localise('NO_CONNECTED_COMPUTERS')));
}
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q);
exit;
}
#
#===============================================================================
#SUBROUTINE: procedure qui sauve le checkip de la subroutine Table_ip
#===============================================================================
sub Save_checkip ($){
##Pull CGI object from parameters array
my $q = shift;
###Build Hash of config parameters to update from cgi submit
my $dhcpd_check = $q->param ('dhcp_check');
##Initiate get method --> create record object
my $dbh_sme = esmith::ConfigDB->open('/home/e-smith/db/configuration');
my $sme_record = $dbh_sme->get('dhcpd');
$sme_record->set_prop('check' , $dhcpd_check);
system ("/sbin/e-smith/signal-event","workgroup-update") == 0
or die "Error while saving settings: $!";
Table_IP($q, $fm->localise('SUCCESSFULLY_SAVED_SETTINGS'));
exit;
}
#
#===============================================================================
#SUBROUTINE: procedure qui supprime tous les bail dans le dhcpd.leases
#===============================================================================
sub Del_all_Lease ($){
###Pull CGI object from parameters array
$q = shift;
###Start Panel.
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('REMOVE_DHCP_LEASE_TITLE'));
print $q->h3($fm->localise('REMOVE_DHCP_LEASE_WARNING'));
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->p ( $fm->localise('REMOVE_DHCP_LEASE_WARNING2'));
print $q->p ($q->b ($fm->localise('ARE_YOU_SURE')));
print $q->submit (-name => 'state', -value => $fm->localise('REMOVE_ALL_LEASES_ACTION'));
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
print $q->endform;
esmith::cgi::genFooter ($q);
return;
}
#
#===============================================================================
#SUBROUTINE: supprime tous les bail dans le dhcpd.leases
#===============================================================================
sub Perform_del_all_Lease ($){
system ('/bin/echo "" > /var/lib/dhcpd/dhcpd.leases') ==0
or die "Error while removing all leases: $!";
system ("/sbin/e-smith/signal-event","workgroup-update") == 0
or die "Error while saving settings: $!";
Table_IP($q, $fm->localise('SUCCESSFULLY_REMOVED_ALL_LEASES'));
exit;
}
#===============================================================================
#SUBROUTINE: Scan The Local Network
#===============================================================================
sub Scan_Local_Network ($) {
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('SCANNING_NETWORK_TITLE'));
my $nmap_sme = esmith::ConfigDB->open('/home/e-smith/db/configuration');
my $mask = $nmap_sme->get_value('LocalNetmask');
my $network = $nmap_sme->get_prop('InternalInterface','Network');
#we start to calculate the method to find the cidr (we want to use network/cidr with nmap)
sub dec2bin {
my $str = unpack("B32", pack("N", shift));
return $str;
}
sub netmask2cidr {
my ($mask, $network) = @_;
my @octet = split (/\./, $mask);
my @bits;
my $binmask;
my $binoct;
my $bitcount=0;
foreach (@octet) {
$binoct = dec2bin($_);
$binmask = $binmask . substr $binoct, -8;
}
# let's count the 1s
@bits = split (//,$binmask);
foreach (@bits) {
if ($_ eq "1") {
$bitcount++;
}
}
my $cidr = $network . "/" . $bitcount;
return $cidr;
}
#Then lets go to calculate the cidr
my $cidr = netmask2cidr($mask, $network);
#ok go to use nmap with nmap -T4 -sP network/cidr
print $q->p ;
print $q->h3($fm->localise('NETWORK_VALUES_FOUND') . " $cidr \($mask\)");
print $q->p ;
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
foreach (`/usr/bin/nmap --script smb-os-discovery.nse -p U:137,T:139 $cidr|
/bin/grep -Ev "MAC|NetBIOS|OS CPE"| /bin/grep -E "scan|done|Computer|OS"|
/bin/sed -e 's/Nmap scan/-- Scan/g'|/bin/sed -e 's/done/Done/g'|
/bin/sed -e 's/Nmap//g'|/bin/sed -e 's/|/ /g'`) {
print $q->br($_);}
print $q->p ;
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q);
exit;
}
__DATA__
<form>
</form>