[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] unix CGI



Title: unix CGI
Can you all help me with this? I just don't get it.

#!/usr/bin/perl

require "parsehtm.pl";

sub formHandler
{
    local($tagString,$argString,$endString,%tagDict)
 = @_;

    local($retVal);

    $tagDict{"METHOD"} = "POST";
    $tagDict{"ACTION"} = "form.pl";

    $retVal = &stringForTagDict(%tagDict);

    return $retVal
}

$handlerDict{"FORM"} = "formHandler";

# UNIX #
# Authors original statement for output to same folder CGI-BIN #
$output = &parseHtml("f2_pl.htm");

# My statements to the folder TEST one level up in the main directory #
$htmdir = "/test";
$htmdir = "../test";
$htmdir = "/cust/home/a/acc5005/public_html/test";

$output = &parseHtml("$htmdir/f2_pl.htm");

print "Content-type: text/html\n\n";
print $output;

1;

When I ececute the script it's supposed to open f2_htm with the parsed data, but all I get is a blank page, form.pl. Can anyone tell me what I am doing wronG?

Thank You.
Ken Towry
Austin, TX
ktowry@austin.rr.com