%doc> -- HOST tasks -- %doc> % <%attr> title => 'Host Tasks' %attr> % % %####################################################################### %# %# Args section %# %####################################################################### <%args> $action => undef $search => undef $user => $ui->get_current_user($r) $submit => undef $show_tasks => undef $ipblock => undef $ipblock_action => undef $showheader => 1 %args> % % % %####################################################################### %# %# INIT section %# %####################################################################### % <%init> my $DEBUG = 0; print '%ARGS is
', Dumper(%ARGS), '
', Dumper($ao), '' if $DEBUG; if ( exists $ao->{Ipblock} ){ foreach my $id ( keys %{$ao->{Ipblock}} ){ if ( my $ip = Ipblock->retrieve($id) ){ push @ipblocks, $ip; }else{ delete $ao->{Ipblock}->{$id}; } } } if ( exists $ao->{Zone} ){ foreach my $id ( keys %{$ao->{Zone}} ){ if ( my $zone = Zone->retrieve($id) ){ push @zones, $zone; }else{ delete $ao->{Zone}->{$id}; } } } my %ipb_actions = ( 'show_block' => 'Show Subnet', 'browse_records' => 'Browse Records', 'add_host' => 'Add New Host', ); %perl>
% if ( @ipblocks ){ % } % if ( @zones ){ % } |