Lines Matching refs:Form
47 @Form{'router'} = "router1";
72 print "<OPTION Value=\"$Form{'router'}\">$Form{'router'}\n";
149 @Form{$name} = $value ;
168 if ($Form{'router'} eq 'router1')
178 elsif ($Form{'router'} eq 'router2')
186 elsif ($Form{'router'} eq 'router3')
195 elsif ($Form{'router'} eq 'router4')
211 if ($Form{'query'} eq '1')
216 elsif ($Form{'query'} eq '2')
221 if ($Form{'query'} eq '3')
226 if ($Form{'query'} eq '4')
230 if ($Form{'query'} eq '5')
234 if ($Form{'query'} eq '6')
238 if ($Form{'query'} eq '7')
255 $command = "show $protocol bgp $Form{'arg'}";
256 if ($Form{'arg'} eq '')
309 $command = "show $protocol route $Form{'arg'}";
310 if ($Form{'arg'} eq '')
339 $command = "show interface $Form{'arg'}";