#!/usr/bin/perl -w

use strict;

my $line=0;
my %alias;
my $alias;
my $value;

die "$0 aliasfile\n" if $#ARGV != 0;

open (ALIASES, $ARGV[0]) or die "Can't open $ARGV[0]: $!";

while ($_=<ALIASES>)
{
    $line++;
    next if (/^#/);
    next if (/^\s+/);

    if (not /^(\S+)\s*:\s*(.+?)\s*$/)
    {
	print "No ':' present at line $line\n";
	next;
    }	
    ($alias,$value) = ($1, $2);
    
    if (defined $alias{$alias})
    {
	print "Warning: overwriting $alias -> $alias{$alias} with $alias -> $value (line $line)\n";
    }
    $alias{$alias}=$value;

}