#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Changes braindead .htm-endings into beautiful .html-endings
#

die "Usage: $0 htmlfiles\n" unless($ARGV[0]);

foreach $file_name (@ARGV)
    {
	print STDERR "Processing '$file_name'\n";
	$new_file = $file_name;
	$new_file =~ s/.htm\b/.html/i;
        system ("mv $file_name $new_file");
    }