<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">
do 'net-lib.pl';

sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_host.cgi') {
	# Link to first host
	my @hosts = &amp;list_hosts();
	return @hosts ? 'idx='.$hosts[0]-&gt;{'index'} : 'new=1';
	}
elsif ($cgi eq 'edit_ipnode.cgi' &amp;&amp; $config{'ipnodes_file'}) {
	# Link to first ipnode
	my @ipnodes = &amp;list_ipnodes();
	return @ipnodes ? 'idx='.$ipnodes[0]-&gt;{'index'} : 'new=1';
	}
elsif ($cgi eq 'list_routes.cgi' || $cgi eq 'list_ifcs.cgi') {
	# Works, even though it calls ReadParse
	return '';
	}
elsif ($cgi eq 'edit_aifc.cgi') {
	my @act = &amp;active_interfaces();
	return @act ? 'idx='.$act[0]-&gt;{'index'} : 'new=1';
	}
elsif ($cgi eq 'edit_bifc.cgi') {
	my @boot = &amp;boot_interfaces();
	return @boot ? 'idx='.$boot[0]-&gt;{'index'} : 'new=1';
	}
return undef;
}
</pre></body></html>