Parent Directory
| 
Revision Log
| 
Patch
| revision 76 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 |