Help for this page

Select Code to Download

Select or download this

open(FILE, "<$template") or die "Template : Couldn't open $template : 
+$!\n";
  while (<FILE>) { $HTML .= $_ }
...
  $HTML =~ s/<!-- fillin\(.+?\) -->/$command_output/;
}

Select or download this

while ($HTML =~ /<!-- fillin\((.+?)\) -->/) {
  my $command_output = &{$templateCall->{$1}}; # a subroutine call
  ($HTML, $cookie, $refresh) =~ s/<!-- fillin\(.+?\) -->/$command_outp
+ut/;
}