#!/usr/local/bin/perl

#
# Goes through all the *.html files and removes references to
#   http://www.npac.syr.edu/icons/, changing them to /pcw
#
# Neat, huh?
#

while ($filename = <*.html>)
{
    open(INFILE, "<$filename");
    open(OUTFILE, ">/tmp/$filename");

    while ($line = <INFILE>)
    {
	$line =~ s#http://www.npac.syr.edu/icons//#/pcw/#gi;
	print(OUTFILE "$line");
    }
}