source: trunk/cgi-bin/snCalc.cgi @ 371

Last change on this file since 371 was 371, checked in by Kris Deugau, 15 years ago

/trunk

Merge bugfixes and enhancements from /branches/stable r360 through r369

  • Property svn:executable set to *
File size: 2.5 KB
Line 
1#!/usr/bin/perl
2
3use strict;             
4use warnings;   
5use CGI::Carp qw(fatalsToBrowser);
6use NetAddr::IP;
7use CommonWeb qw(:ALL);;
8
9#file snCalc.cgi        little subnet calculator app
10
11my %webvar = parse_post();
12my $input;
13
14print "Content-Type: text/html\n\n";
15
16open(HTML, "../startsn.html")|| die "Could not open startsn.html :$!";
17my $start = join('', <HTML>);
18close(HTML);
19print $start;
20
21# Clean up input so we don't divide by zero or something equally silly
22if ($webvar{input} =~ m/(\d+)/) {
23  $input = 1*$1;
24  $input = 3 if $input < 3;
25  $input = 29 if $input > 29;   # Not doing IPv6 yet...
26} else {
27  $input = 29;
28}
29
30my $ltinput = $input - 1;
31my $gtinput = $input + 1;
32
33my $prenet = new NetAddr::IP "0.0.0.0/$ltinput";
34my $net = new NetAddr::IP "0.0.0.0/$input";
35my $postnet = new NetAddr::IP "0.0.0.0/$gtinput";
36
37print qq(<div class="center">
38<table align="center" cellspacing="3" cellpadding="3">
39<tr>
40        <td class="heading" align="center">Results for /$ltinput</td>
41        <td class="heading" align="center">Results for /$input</td>
42        <td class="heading" align="center">Results for /$gtinput</td>
43</tr>
44);
45
46print qq(<tr><td valign="top">\n).
47        qq(     <div class="mask">).$prenet->mask."</div>\n".
48        qq(     <div class="wildcard">).$prenet->wildcard."</div>\n".
49        getranges($ltinput).
50        qq(</td>\n<td valign="top" bgcolor="#d0e0e0">\n).
51        qq(     <div class="mask">).$net->mask."</div>\n".
52        qq(     <div class="wildcard">).$net->wildcard."</div>\n".
53        getranges($input).
54        qq(</td>\n<td valign="top">).
55        qq(     <div class="mask">).$postnet->mask."</div>\n".
56        qq(     <div class="wildcard">).$postnet->wildcard."</div>\n".
57        getranges($gtinput);
58
59print "</td></tr>\n</table>\n";
60
61print qq(<input type="button" value="Back" onclick="history.go(-1)" class="heading">
62</div>
63</body>
64</html>
65);
66       
67# Just In Case
68exit 0;
69
70# subs
71sub xrange {
72  my $block = shift;
73  my $masklen = shift;
74  my $data = $block->range;
75  if ($masklen >= 24) {
76    $data =~ s/\b0\.0\.0\./x.x.x./g;
77  } elsif ($masklen >=16) {
78    $data =~ s/\b0\.0\.(\d+\.\d+)/x.x.$1/g;
79  } elsif ($masklen >=8) {
80    $data =~ s/\b0\.(\d+\.\d+\.\d+)/x.$1/g;
81  }
82  return $data;
83} # xrange()
84
85
86sub getranges {
87  my $masklen = shift;
88  my $ret = '';
89  my $super;
90  if ($masklen < 8) {
91    $super = new NetAddr::IP "0.0.0.0/0";
92  } elsif ($masklen < 16) {
93    $super = new NetAddr::IP "0.0.0.0/8";
94  } elsif ($masklen < 24) {
95    $super = new NetAddr::IP "0.0.0.0/16";
96  } else {
97    $super = new NetAddr::IP "0.0.0.0/24";
98  }
99  foreach my $net ($super->split($masklen)) {
100    $ret .= "\t".xrange($net,$masklen)."<br />\n";
101  }
102  return $ret;
103} # getranges()
Note: See TracBrowser for help on using the repository browser.