Parent Directory | Revision Log | Patch
revision 31 by dpavlin, Thu Oct 11 19:28:27 2007 UTC | revision 33 by dpavlin, Tue Oct 16 09:35:59 2007 UTC | |
---|---|---|
# | Line 172 my $note = "# modified by $0\n"; | Line 172 my $note = "# modified by $0\n"; |
172 | sub fix_ip { | sub fix_ip { |
173 | my $ip = shift; | my $ip = shift; |
174 | $ip =~ s/['"]//g; | $ip =~ s/['"]//g; |
175 | $ip =~ s/^\d+\./10./; | # $ip =~ s/^\d+\./10./; |
176 | $ip =~ s/^\d+\.\d+\./192.168./; | |
177 | warn "$CVEID new IP number: $ip\n"; | warn "$CVEID new IP number: $ip\n"; |
178 | return $note . qq{IP_ADDRESS="$ip"}; | return $note . qq{IP_ADDRESS="$ip"}; |
179 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |