update_adium_eids_to_firstname_lastinital.pl

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
use XML::XPath;

# reset all display names, otherwise server held roster won't be changed
my $reset_contacts = q{tell application "Adium" to set the display name of every contact}
                   . q{ of account id (id of the first account of service "Jabber" whose host}
                   . q{ is "ksu.edu") to ID};
my $reset_results = `echo '$reset_contacts' | osascript`;

my $get_contacts = q{tell application "Adium" to return name of every}
                 . q{ contact of account id (id of the first account of}
                 . q{ service "Jabber" whose host is "ksu.edu")};
my $contact_names = `echo '$get_contacts' | osascript`;
chomp $contact_names;
my @contact_names = split(/,\ ?/,$contact_names);

for my $id (@contact_names) {
	$id =~ s{\@ksu\.edu}{};
    if ($id =~ /^[a-z][a-z0-9]+$/) {
        print "Processing eID $id...\n";
        my $eid_xml = get('http://search.k-state.edu/People/eid/' . $id);
        my $xp = XML::XPath->new( xml => $eid_xml );
        
        my ($first, $last, $lastinitial);
        $first = $xp->getNodeText('/results/result[@order="0"]/pref/fn')->value();
        $first = $xp->getNodeText('/results/result[@order="0"]/fn')->value() unless $first;
        $last = $xp->getNodeText('/results/result[@order="0"]/pref/ln')->value();
        $last = $xp->getNodeText('/results/result[@order="0"]/ln')->value() unless $last;
        if ($first eq '' and $last eq '') {
            print "Didn't find any names, aborting.\n";
            next;
        }
        $lastinitial = substr $last, 0, 1;
        print "$id = $first $lastinitial\n";
        $id = $id . '@ksu.edu';
        my $script = q{tell application "Adium" to set the display name of every contact }
                . qq{whose name is "$id" to "$first $lastinitial" };
        print $script, "\n";
        open my $fh, "|-", "osascript";
        print $fh "$script\n";
        close $fh
    }
}