#!/usr/local/bin/perl

$inputdir=$ARGV[0];
$outputdir=$ARGV[1];

if (!($inputdir=~/\/$/)) { $inputdir.="/"; }
if (!($outputdir=~/\/$/)) { $outputdir.="/"; }

if ((!($inputdir=~/\w/))||(!($outputdir=~/\w/))) {
    print "Input and Output directories not specified.\n";
    exit 1;
}

if (!(-e $outputdir)) { mkdir $outputdir; }

$location=`pwd`;
$location=~s/\n/\//;
$inlocation="$location"."$inputdir";
chdir($inlocation);
$outlocation="$location"."$outputdir";

$pattern="*";
@files=glob($pattern);

foreach (@files) {
    $filename=$_;

    print "$filename\n";
    $outfile="$outlocation"."$filename";
    print "$outfile\n";

    `convert -border 10x10 -bordercolor "#6699ff" $filename $outfile`;

    `convert -font helvetica -fill red -pointsize 14 -draw 'text 446,404 "sondak@bu.edu"' $outfile $outfile`;
}