adium / Utilities / anonymize-adium-debug-log.pl

#!/usr/bin/env perl
#
# Trivial script to anonymize Adium debug logs.  It's a hack, and was
# put together with little time or effort.  I'm sure that it could be
# made better, if someone cared enough to do so.

# 29 Dec 2007: Minor updates / fixes (e.g., add libpurple into search
# strings instead of libgaim).

# 29 Apr 2007: This script works for all the data in the log that I
# need to submit; I'm quite sure that it is *not* comprehensive.  I
# only anonymized AIM, Jabber, and Sametime data that I found in my
# log; there is no support for the other protocols, and I'm guessing
# that this script won't anonymize *all* data from AIM/Jabber/Sametime
# -- just the stuff that I found in my log.

use strict;

# Get the filename
my $filename = $ARGV[0];
if (! $filename) {
    print "Usage: $0 <filename>\n";
    exit(1);
}

# Do the work
print "Anonymizing...\n";
my $temp = "ANONYMIZE_TEMP_REPLACE_SENTINEL_STRING";
my $contents = read_file($filename);
replace_aim_names($contents);
replace_sametime_names($contents);
replace_jabber_names($contents);
replace_group_names($contents);
replace_accounts($contents);
replace_uids($contents);
replace_dns($contents);
replace_email($contents);
write_file("$filename.anonymous", $contents);

# All done
exit(0);

###########################################################################

sub read_file {
    my $filename = shift;
    my $contents;
    open (F, $filename) || die "Cannot open $filename";
    $contents .= $_
        while (<F>);
    close(F);
    \$contents;
}

###########################################################################

sub replace_accounts {
    my $contents = shift;
    my $account_index = 1;
    while ($$contents =~ m/connecting to account (.+)$/im) {
        my $account_name = $1;
        my $replace_str = "ACCOUNT_#$account_index";
        print "Found account: $account_name -> $replace_str\n";
        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/connecting to account $account_name$/$temp $replace_str/igm;
        # Replace with the anonymized string everywhere else, too
        $$contents =~ s/$account_name/$replace_str/gm;
        ++$account_index;
    }

    # Put the original string back
    $$contents =~ s/$temp/connecting to account/gm;
}

###########################################################################

sub replace_uids {
    my $contents = shift;
    my $uid_index = 1;
    while ($$contents =~ m/created PurpleAccount 0x[0-9a-f]+ with uid (.+),/im) {
        my $uid = $1;
        if ($uid !~ /^ACCOUNT_#/) {
            my $replace_str = "UID_#$uid_index";
            print "Found UID: $uid -> $replace_str\n";
            # Put in a sentinel string so that we don't find it again
            $$contents =~ s/with uid $uid/$temp $replace_str/igm;
            # Replace with the anonymized string everywhere else, too
            $$contents =~ s/$uid/$replace_str/gm;
            ++$uid_index;
        } else {
            $$contents =~ s/with uid $uid/$temp $uid/igm;
        }
    }

    # Put the original string back
    $$contents =~ s/$temp/with UID/gm;
}

###########################################################################

sub replace_dns {
    my $contents = shift;
    my $dns_index = 1;
    while ($$contents =~ m/dns query for '(.+)' queued$/im) {
        my $ip_name = $1;
        my $name_replace_str = "IP_NAME_#$dns_index";
        my $addr_replace_str = "IP_ADDRESS_#$dns_index";
        print "Found DNS name: $ip_name -> $name_replace_str\n";

        # Is the name an IP address already?
        my $ip_address;
        if ($ip_name =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
            $ip_address = $ip_name;
            print "DNS name already resolved: $ip_address\n";
        }

        # Nope, not already resolved.  Find the corresponding resolved
        # IP address
        else {
            if ($$contents =~ m/ip resolved for $ip_name\n\d\d:\d\d:\d\d: \(libpurple: proxy\) attempting connection to (\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/i ||
                $$contents =~ m/ip resolved for $ip_name\n\d\d:\d\d:\d\d: \(lbigaim: proxy\) attempting connection to (\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/i) {
                $ip_address = $1;
                print "Found corresponding IP address: $ip_name -> $ip_address -> $addr_replace_str\n";
            }
        }

        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/dns query for '$ip_name' queued$/$temp '$name_replace_str' queued/igm;
        # Replace with the anonymized strings everywhere else, too
        $$contents =~ s/$ip_name/$name_replace_str/gm;
        $$contents =~ s/$ip_address/$addr_replace_str/gm
            if ($ip_address);
        ++$dns_index;
    }

    # Put the original string back
    $$contents =~ s/$temp/DNS query for/gm;
}

###########################################################################

sub replace_email {
    my $contents = shift;
    my $email_index = 1;
    while ($$contents =~ m/ E-mail: (.+)$/im) {
        my $email = $1;
        my $replace_str = "EMAIL_#$email_index";
        print "Found Email: $email -> $replace_str\n";
        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/ E-mail: $email$/ $temp $replace_str/gm;
        ++$email_index;
    }
    while ($$contents =~ m/ Email: (.+)$/im) {
        my $email = $1;
        my $replace_str = "EMAIL_#$email_index";
        print "Found Email: $email -> $replace_str\n";
        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/ Email: $email$/ $temp $replace_str/gm;
        ++$email_index;
    }

    # Put the original string back
    $$contents =~ s/$temp/E-mail:/gm;
}

###########################################################################

sub replace_aim_names {
    my $contents = shift;
    my $aim_name_index = 1;
    while ($$contents =~ m/ AIM\.(\w+)/im) {
        my $aim_name = $1;
        my $replace_str = "AIM_ID_#$aim_name_index";
        print "Found AIM ID: $aim_name -> $replace_str\n";
        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/ AIM\.$aim_name/ $temp.$replace_str/igm;
        # Replace with the anonymized strings everywhere else, too
        $$contents =~ s/(\W)$aim_name(\W)/\1$replace_str\2/igm;
        ++$aim_name_index;
    }

    # Put the original string back
    $$contents =~ s/$temp/AIM/gm;
}

###########################################################################

sub replace_sametime_names {
    my $contents = shift;
    my $st_index = 1;
    while ($$contents =~ m/ Sametime\.uid=(.+?)>/im) {
        my $st_name = $1;
        my $replace_str = "SAMETIME_ID_#$st_index";
        print "Found Sametime ID: $st_name -> $replace_str\n";
        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/ Sametime\.uid=$st_name/ $temp$replace_str/igm;
        # Replace with the anonymized strings everywhere else, too
        $$contents =~ s/(\W)uid=$st_name(\W)/\1$replace_str\2/igm;
        ++$st_index;
    }

    # Put the original string back
    $$contents =~ s/ $temp/ Sametime.uid=/gm;
}

###########################################################################

sub replace_jabber_names {
    my $contents = shift;
    my $jabber_index = 1;
    while ($$contents =~ m/ jabber\.(.+?)>/im) {
        my $jabber_name = $1;
        my $replace_str = "JABBER_ID_#$jabber_index";
        print "Found Jabber ID: $jabber_name -> $replace_str\n";
        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/ Jabber\.$jabber_name/ $temp$replace_str/igm;
        # Replace with the anonymized strings everywhere else, too
        $$contents =~ s/(\W)$jabber_name(\W)/\1$replace_str\2/igm;
        ++$jabber_index;
    }

    # Put the original string back
    $$contents =~ s/ $temp/ Jabber./gm;
}

###########################################################################

sub replace_group_names {
    my $contents = shift;
    my $group_index = 1;
    while ($$contents =~ m/ Group\.(.+?)>/im) {
        my $group_name = $1;
        my $replace_str = "GROUP_ID_#$group_index";
        print "Found Group ID: $group_name -> $replace_str\n";
        # Put in a sentinel string so that we don't find it again
        $$contents =~ s/ Group\.$group_name/ $temp$replace_str/igm;
        # Replace with the anonymized strings everywhere else, too
        $$contents =~ s/(\W)$group_name(\W)/\1$replace_str\2/igm;
        ++$group_index;
    }

    # Put the original string back
    $$contents =~ s/ $temp/ Group./gm;
}

###########################################################################

sub write_file {
    my ($filename, $contents) = @_;

    open (F, ">$filename") || die("Cannot open output file $filename");
    print F $$contents;
    close(F);
}