view release on metacpan or  search on metacpan

www/cgi-bin/cpm_workflow.cgi  view on Meta::CPAN

        $p = $1;
      }else{
        next;
      }
    }

    my %ipExpanded;
    if(!$covered && $elligible){
      %ipExpanded = BGPmon::CPM::Prefix::Finder::expandIP($p);
      if(defined($ipExpanded{'orghandle'})){
        $ipExpanded{'orgid'} = $ipExpanded{'orghandle'};
        my @nets = BGPmon::CPM::Prefix::Finder::orghandle2nets($ipExpanded{'orghandle'});
        my @new_prefixes;
        foreach my $net (@nets){
          push @new_prefixes,BGPmon::CPM::Prefix::Finder::inetnum2prefixes($net);
        }
        $ipExpanded{'nets'} = \@new_prefixes;
      }
      my @new_ranges = BGPmon::CPM::Prefix::Finder::inetnum2prefixes($ipExpanded{'inetnum'});
      push @ranges,@new_ranges;
      $ipExpanded{'range'} = \@new_ranges;

www/tmpl/whoisExpansion.tt  view on Meta::CPAN

  [% ELSE %]
    [% FOREACH range IN prefix.range %]
    <input type="checkbox" name="prefix" value="[% range %]" checked/>[% range %]   
    <input type="hidden" name="[% range %]IP" value="[% prefix.ip %]" />
    [% END %]
    covers [% prefix.ip %] 
 
    <br>
    &nbsp;&nbsp;netname: [% prefix.netname %]<br>
    &nbsp;&nbsp;inetnum: [% prefix.inetnum %]<br>
    &nbsp;&nbsp;Owned by: [% prefix.orgid %]<br>
    &nbsp;&nbsp;Source: [% prefix.source %]<br>
    [% IF prefix.nets %]
      &nbsp;&nbsp;Also owned by [% prefix.orgid %]:<br>
    [% END %]
    [% FOREACH net IN prefix.nets %]
    &nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="prefix" value="[% net %]" checked/>[% net %]<br> 
    <input type="hidden" name="[% net %]IP" value="[% prefix.ip %]" />
    [% END %]  

    </p>
  [% END %]
<hr>
[% END %]