#-*-perl-*-
# imagesubs
#
# Subroutines to do things to images at various times.
#
# Paul Oct 23
#


sub makeicon {
# Makes the icon from $mimefile into $iconfile
    $inattatch = "$hthome/$theproject/$themessfolder/$name";
    $iconname = "$inattatch.icon.gif";
    $xgraphicon = "$icondir/Xgraph.gif";
    $psicon     = "$icondir/PS.gif";
    $idlicon    = "$icondir/IDL.gif";
    $mpegicon   = "$icondir/Mpeg.gif";
    $qticon     = "$icondir/QT.gif";
    $unknownicon= "$icondir/Unknown.gif";
    if ($contenttype =~ /application\/postscript/) {
	open (PSTEST,$inattatch) || 
	    die "PS Error.  Contact $maintainer";
	$isanxgraph = 0;
	$isidl = 0;
	while (<PSTEST>) {
	    if (/Xgraph postscript output/) {
		$isanxgraph = 1;
	    }
	    if (/Creator: IDL Version/) {
		$isidl = 1;
	    }
	}
	if ($isanxgraph==1) {
	    symlink($xgraphicon,$iconname);
	} elsif($isidl==1) {
	    symlink($idlicon,$iconname);
	} else {
	    symlink($psicon,$iconname);
	}
    } elsif ($contenttype =~ /video\/mpeg/) {
	symlink($mpegicon,$iconname);
    } elsif ($contenttype =~ /video\/qt/) {
	symlink($qticon,$iconname);
    } elsif ($contenttype =~ /^image/ ) {
	system("$convert -geometry 64x48 $inattatch $iconname");
	if ($? != 0) {
	    symlink($unknownicon,$iconname);
	}
    } else {
	symlink($unknownicon,$iconname);
    }

}

# return true or we die!
1;
