#!/usr/arch/bin/perl
use CGI qw(:standard);
$image = param('image');
$lakedir = param('lakedir');
$view = param('view');
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "
Viewing image: $image
\n";
print "
\n";
$baseImage = $lakedir . $image . "/" . $image;
if ($view eq 1)
{
print "Viewing with option: Regular \n";
$viewMe = $baseImage . ".jpg";
print "
![](\"$viewMe\")
\n";
}
elsif ($view eq 2)
{
print "Viewing with option: Gamma 2
\n";
$viewMe = $baseImage . "_GAMMA2.jpg";
print "
\n";
}
elsif ($view eq 3)
{
print "Viewing with option: Convolution Filter: Sobel 3x3
\n";
$viewMe = $baseImage . "_Conv_0_3.jpg";
print "
\n";
}
elsif ($view eq 4)
{
print "Viewing with option: Convolution Filter: Roberts 3x3
\n";
$viewMe = $baseImage . "_Conv_1_3.jpg";
print "
\n";
}
elsif ($view > 4 && $view < 11)
{
print "Will view with Convolution Filter: \n";
if ($view eq 5)
{
$filter = "Median";
}
elsif ($view eq 6)
{
$filter = "Low Pass";
}
elsif ($view eq 7)
{
$filter = "High Pass";
}
elsif ($view eq 8)
{
$filter = "Laplacian";
}
elsif ($view eq 9)
{
$filter = "Directional";
}
elsif ($view eq 10)
{
$filter = "Gaussian";
}
print " $filter \n";
print "
\n";
}
elsif ($view > 10 && $view < 17)
{
print "Will view with Adaptive Filter: \n";
if ($view eq 11)
{
$filter = "Lee";
}
elsif ($view eq 12)
{
$filter = "Bit Error Removal";
}
elsif ($view eq 13)
{
$filter = "Localized Sigma";
}
elsif ($view eq 14)
{
$filter = "Frost";
}
elsif ($view eq 15)
{
$filter = "Gamma";
}
elsif ($view eq 16)
{
$filter = "Kuan";
}
print " $filter \n";
print " \n";
}
else
{
print "Still Working on this stuff... gimme time... :> \n";
print "
\n";
}
print "
\n";
print "
\n";
print "
\n";
print "View image again with: \n";
print " \n";
print "\n";
print "\n";