#!/usr/bin/perl
#
# This script file has been customized for Unix/Linux
#
# This perl script modifies a Visio generated htm file
#  for the FIU-SCS Course syllabi html custom format
#
#  Usage: perl modifyHtml.pl [input_htm_filename]
#
# Author: Prabakar 4/3/08
#

use strict;

$| = 1;

my $filename = "png_1.htm";
#print "Usage: perl $0 [input_htm_filename]\n";

if ($#ARGV >= 0) { # in Perl, argcnt is zero for one argument
    $filename = $ARGV[0];
}

my @line = `cat $filename`;
open( FILEOUT, ">$filename" ) || die "cannot open output $filename: $!";

# strings for replacements
my $hrefprefix = " onClick=\"w=window.open('";
my $hrefpostfix = "', 'mywindow','location=0,menubar=0,scrollbars=1,status=0,titlebar=0,width=300,height=300'); w.focus(); return false;";

for (my $idx = 0; $idx <= $#line; $idx++) {
    $line[$idx] =~ s/href="#"//g;
    $line[$idx] =~ s/\s+$//; # strip trailing whitespace
    if (($line[$idx] =~ /^\s+<area/i )) { # && ($line[$idx] =~ / onfocus/i)) {
	$line[$idx] =~ s/\xe2\x80\xa8/ /g; # replaces special UTF characters with a blank
	$line[$idx] =~ s/ onfocus.*$/>/;
    $line[$idx] =~ s/ HREF="/$hrefprefix/i;
    $line[$idx] =~ s/" target="_top/$hrefpostfix/;
    $line[$idx] =~ s/ onClick/ href="#" onClick/;
    $line[$idx] =~ s/courses.php/course.php/;
    }
    print FILEOUT @line[$idx]."\n";
}
close(FILEOUT);

exit(0);