#!/usr/local/bin/perl

require 'fix_hostname.pl';
require 'yagrip.pl';

$usage = "usage: fix_hostname partial_name complete_name\n";
&getopt("v");

if ($#ARGV != 1) {
    print STDERR $usage;
    exit 1;
}

print &fix_hostname($ARGV[0], $ARGV[1]),"\n";
