Parent Directory | Revision Log | Patch
revision 63 by dpavlin, Fri Feb 27 18:38:19 2009 UTC | revision 77 by dpavlin, Mon Apr 27 12:08:07 2009 UTC | |
---|---|---|
# | Line 73 $hostname ||= prompt('Enter hostname: ') | Line 73 $hostname ||= prompt('Enter hostname: ') |
73 | ||
74 | my @ip_split = split(/\./,$ip); | my @ip_split = split(/\./,$ip); |
75 | ||
76 | my $ve_id = sprintf('%d%03d', $ip_split[2], $ip_split[3]); | # 192.168.42.1 -> 42 001 |
77 | # 10.60.0.3 -> 60 003 | |
78 | # 10.60.1.42 -> 1 042 | |
79 | ||
80 | my $ve_id = sprintf('%d%03d', $ip_split[2] || $ip_split[1], $ip_split[3]); | |
81 | ||
82 | if ( $ve_id < 101 ) { | if ( $ve_id < 101 ) { |
83 | $ve_id += 100; | $ve_id += 100; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |