\n";
$filename = "/var/www/mmdigest.com/htdocs/gallery/MMMedia/McElhone/" . "$result" . ".csv";
// print ("filename = $filename");
$fd = fopen ($filename, "r");
// print ("handle = $fd");
print "
\n"; print "\n";
print "\n";
while ($line = fgets ($fd, 9999))
{
$fields = explode (" ", $line);
$fields[0] .= " ";
$fields[1] .= " ";
$fields[2] .= " ";
$fields[3] .= " ";
printf ("
\n";
print "\n";
print "\n";
print "\n";
print "
\n";
print "\n";
print "
\n"; print "
\n"; print "Click here to go back."; print "
\n"; print "
\n"; print "Contents copyright 2005 by Kevin McElhone\n"; print "
\n"; print "Display format copyright 2005,2013 by The Foxtail Group\n"; print "
\n"; print "Content may not be reproduced without permission.\n"; // print "\n"; // // // ------------------- // #!/usr/bin/perl // // $instrument = $ENV{'QUERY_STRING'}; // // print "Content-type: text/html\n\n"; // print "\n"; // print "\n"; // print "\n";
// print "Kevin McElhone's Table of $instrument\n";
// print " \n";
// print "\n";
// print "\n";
// print "
\n"; // print "\n";
// print "\n";
//
// open SOURCES, ")
// {
// chop;
// @fields = split "\t";
// $recno++;
// if ($recno == 1)
// {
// $fields[0] =~ s/,.*//;
// $fields[1] =~ s/,.*//;
// $fields[2] =~ s/,.*//;
// $fields[3] =~ s/,.*//;
// }
// printf ("
\n";
// print "\n";
// print "\n";
// print "
\n";
// print "
\n"; // print "
\n"; // print "Click here to go back."; // print "
\n"; // print "
\n"; // print "\n"; // print "Contents copyright 2005 by Kevin McElhone\n"; // print "
\n"; // print "Display format copyright 2005 by The Foxtail Group\n"; // print "
\n"; // print "Content may not be reproduced without permission.\n"; // print "\n"; // // print "\n"; // ------------------- // ?>
\n"; print "Kevin McElhone's Table of $query\n"; print "
\n"; print "\n"; print "
| %s | %s | %s | %s |
| \n"; print "If you have comments or corrections to the table please use the Contact Form\""; print " |
\n"; print "
\n"; print "Click here to go back."; print "
\n"; print "
\n"; print "Contents copyright 2005 by Kevin McElhone\n"; print "
\n"; print "Display format copyright 2005,2013 by The Foxtail Group\n"; print "
\n"; print "Content may not be reproduced without permission.\n"; // print "\n"; // // // ------------------- // #!/usr/bin/perl // // $instrument = $ENV{'QUERY_STRING'}; // // print "Content-type: text/html\n\n"; // print "\n"; // print "\n"; // print "
\n"; // print "Kevin McElhone's Table of $instrument\n"; // print "
\n"; // print "\n"; // print "
| %s | %s | %s | %s |
| \n"; // print "If you have comments or corrections to the table please send them to the MMD and Kevin McElhone by using this special e-mail address: mcelhone-info\@foxtail.com"; // print " |
\n"; // print "
\n"; // print "Click here to go back."; // print "
\n"; // print "
\n"; // print "\n"; // print "Contents copyright 2005 by Kevin McElhone\n"; // print "
\n"; // print "Display format copyright 2005 by The Foxtail Group\n"; // print "
\n"; // print "Content may not be reproduced without permission.\n"; // print "\n"; // // print "\n"; // ------------------- // ?>