& /elements/header-popup.html &>
<& /elements/xmlhttp.html,
url => $p.'misc/xmlhttp-mib-browse.html',
subs => [qw( search get_module_list )],
&>
<& /elements/footer.html &>
<%init>
my $callback = 'alert("(no callback defined)" + selected_mib.stringify)';
$cgi->param('callback') =~ /^(\w+)$/;
if ( $1 ) {
# construct the JS function call expresssion
$callback = 'window.parent.' . $1 . '(selected_mib';
foreach ($cgi->param('arg')) {
# pass-through arguments
/^(\w+)$/ or next;
$callback .= ",'$1'";
}
$callback .= ')';
}
%init>