676
edits
Changes
From SME Server
Jump to navigationJump to searchServer Manager2 create panel for contrib (view source)
Revision as of 10:23, 24 January 2022
, 10:23, 24 January 2022no edit summary
#
#
my $c = shift;
my $c = shift;
die("hello world");
#die("hello world");
$dhcp_data{"first"} = 'dhcp_DESCRIPTION';
$dhcp_data{"first"} = 'dhcp_DESCRIPTION';
do_display( $c, %dhcp_data );
do_display( $c, %dhcp_data );
$dhcp_data{trt} = $trt;
$dhcp_data{trt} = $trt;
$dhcp_data{"first"} = '';
$dhcp_data{"first"} = '';
$dhcp_data{"leases") = get_leases_in_array();
$dhcp_data{"leases"} = get_leases_in_array();
$c->stash( title => $title, modul => $modul, dhcp_data => \%dhcp_data );
$c->stash( title => $title, modul => $modul, dhcp_data => \%dhcp_data );
$c->render( template => 'dhcpd' );
$c->render( template => 'dhcpd' );
$dhcp_data{"first"} = '';
$dhcp_data{"first"} = '';
# ..... get scan results into dhcp_data
# ..... get scan results into dhcp_data
dhcp_data{scanresults} = get_scan_results($c);
dhcp_data{"scanresults"} = get_scan_results($c);
$c->stash( title => $title, modul => $modul, dhcp_data => \%dhcp_data );
$c->stash( title => $title, modul => $modul, dhcp_data => \%dhcp_data );
$c->render( template => 'dhcpd' );
$c->render( template => 'dhcpd' );
my $ret = update_config($c);
my $ret = update_config($c);
if ($ret == 'ok') {
if ($ret == 'ok') {
dhcp_data{"success"}=dhcp_CONFIG_SAVED_OK;
dhcp_data{"success"}="dhcp_CONFIG_SAVED_OK";
do_leases($c);
do_leases($c);
}
}
my $ret = delete_all_leases($c);
my $ret = delete_all_leases($c);
if ($ret == 'ok') {
if ($ret == 'ok') {
dhcp_data{"success"}=dhcp_CONFIG_SAVED_OK;
dhcp_data{"success"}="dhcp_CONFIG_SAVED_OK";
do_leases($c);
do_leases($c);
}
}
my $ret = delete_lease($c);
my $ret = delete_lease($c);
if ($ret == 'ok') {
if ($ret == 'ok') {
dhcp_data{"success"}=dhcp_CONFIG_SAVED_OK;
dhcp_data{"success"}="dhcp_CONFIG_SAVED_OK";
do_leases($c);
do_leases($c);
}
}
