#!/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";
    
    $command="convert -border 10x10 -bordercolor \"#6699ff\" $filename $outfile";
    print "$command\n";
    `$command`;

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