Line 226: |
Line 226: |
| # | | # |
| 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 ); |
Line 257: |
Line 257: |
| $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' ); |
Line 289: |
Line 289: |
| $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' ); |
Line 306: |
Line 306: |
| 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); |
| } | | } |
Line 321: |
Line 321: |
| 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); |
| } | | } |
Line 341: |
Line 341: |
| 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); |
| } | | } |