#!/usr/bin/perl -w

# Copyright 2000 Ry4an Brase (ry4an at ry4an dot org)


use strict;

my $currentName = "BUG";
my @added = ();

print "\%retval = (\n";

foreach (<>) {
    chomp;
    if (/^name=(.*)/) {
        $currentName = $1;
        next;
    }
    if (/^mobile=(.*)/) {
        &printEntry ("${currentName}'s Cell", $1);
        next;
    }
    if (/^workphone=(.*)/) {
        &printEntry ("${currentName}'s Work", $1);
        next;
    }
    if (/^phone=([\d-]*)/) {
        &printEntry ($currentName, $1);
        next;
    }
}

print ");\n";

sub printEntry {
    my ($name, $number) = @_;
    if (grep /$number/, @added) {
        print STDERR "Skipping $number = $name. duplicate.\n";
        return;
    }
    push @added, $number;
    $name =~ s/'/\\'/g;
    print "    '$number' => {
        'name' => '$name',
        'classes' => ['known'],
    },\n";
}