% my $retref= $c->stash("ret"); % my %ret; % unless (length($retref)) {%ret = (ret=>"");} % else {%ret = %$retref;}

% my @vars = split(",",$ret{vars}); % my $var1 = @vars[0]; % my $var2 = @vars[1]; % my $var3 = @vars[2]; % my $var4 = @vars[3]; % my $var5 = @vars[4]; % my $var6 = @vars[5];

%if ($ret{'ret'} eq "") {

%} elsif (index($ret{ret},"SUCCESS") != -1) {

## Operation Status Report

%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
%} else {

## Operation Status Report - Error

%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
%}
% my $btn = l('ADD'); % my $network_db = esmith::NetworksDB->open();

% if (config->{debug} == 1) {

%= dumper $c->current_route %= dumper $c->stash("ret")

% }

%= form_for '/localnetworksb' => (method => 'POST') => begin

## %=l "ln_ADD_TITLE"

%= $c->render_to_string(inline => l('ln_ADD_DESC'));

%=l "NETWORK" %=text_field 'networkAddress'
%=l "ln_SUBNET_MASK" %=text_field 'networkMask'
%=l "ROUTER" %=text_field 'networkRouter'

%= submit_button "$btn", class => ""

%end