#!/usr/bin/perl
# machinotero-clean	Clean private data from machinotero output
# (c) 2007 Tero Karvinen www.iki.fi/karvinen
# tero.karvinen at iki.fi

$r = "xxx"; # replacement string for cencored values
while (<>)
{
	chomp;
	$s = $_;
	$s =~ s/(^\s*serial: ).*$/$1 $r/;
	$s =~ s/(^\s*Serial Number: ).*$/$1 $r/;
	$s =~ s/(Serial#: ).*$/$1 $r/;
	$s =~ s/( HWaddr ).*$/$1 $r/;
	$s =~ s/( inet6 ).*$/$1 $r/;
	$s =~ s/( link\/ether ).*$/$1 $r/;
	$s =~ s/( uuid=).*$/$1 $r/;
	$s =~ s/(UUID\W) .*$/$1 $r/i;
	$s =~ s/(^\s*monitorserial: ).*/$1 $r/;
	print "$s\n";
}