ip address scrambler

1 files changed, 23 insertions, 0 deletions

diff --git a/regress/testmails/.fix_addr.pl b/regress/testmails/.fix_addr.pl
new file mode 100755
index 00000000..4b5dc8ac
--- /dev/null
+++ b/regress/testmails/.fix_addr.pl
@@ -0,0 +1,23 @@
+#!/usr/local/bin/perl
+#-*- perl -*-
+#
+#  Copyright (C) 2001 Ken'ichi Fukamachi
+#   All rights reserved. This program is free software; you can
+#   redistribute it and/or modify it under the same terms as Perl itself. 
+#
+# $FML: __template.pm,v 1.5 2001/04/03 09:45:39 fukachan Exp $
+#
+
+use strict;
+use Carp;
+
+my $base_addr = '10.20.30.';
+my $i         = 1;
+
+while (<>) {
+    my $addr = $base_addr . $i++;
+    s/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/$addr/e;
+    print;
+}
+
+exit 0;