Download A System to Generate A Simple and Reusable Web

if ($5 eq "yes")
{
$$tablename .= $2 . " ";
}
$tablein .= "\n";
} #for attri
} #for table .. @
if (/query/i .. /\@/)
# recognize query definition part
{
if ($_ =~ /\#\s*(\S+)/) # recognize description sentence
{
$querydeso = $_;
@queryde = split (/\s+/, $querydeso);
$querydess = join ("`^", @queryde);
$querydes .= $querydess;
}
if ($_ =~ /\&\s*(\S*)/) # recognize variable definition sentence
{
$bindingvar .= $_;
}
}
if (/select/i .. /\@/) # recognize query statement
{
$stmts .= $_;
$stmts .= "\n";
}
} # while
@statment = split (/\@/, $stmts);
$s=1;
foreach $statment (@statment)
{
chmop;
s/ [\cM\cJ]//;
if ($statment =~ /\S+/)
{
$querystmt = "\$" . "querystmt";
$querystmt .=$s;
$querystmt .= " = \" ";
$querystmt .=$statment;
$querystmt .=" \" ";
$querystmt .=";";
$querystmt .="\n";
$s++;
print OUT $querystmt; # each query statement
}
} # foreach
@bindingvars = split (/\&/, $bindingvar);
$index = 0;
foreach $bindingvars (@bindingvars)
{
chmop;
s/ [\cM\cJ]//;
if ($bindingvars =~ /\S+/)
{
$queryvars = "%queryname";
35