ASP to Perl Script 

  -: use strict;;;use vars qw($Application $Session $Response $Server $Request);;
  -: #line 1 /usr/local/proj/asp/eg/xml_subs_strict.asp
: ;;
: 
: ;  &my::include({ 'src' => 'header.inc', 'title' => 'XMLSubsMatch Demo' }, ''); ; &Apache::ASP::WriteRef($main::Response, \('
: 
: This is a demonstration of the XMLSubsMatch extension which
: allows for the developer to construct a set of custom XML style
: tags for use in ASP scripts.  These tags could be used 
: to render entire XML documents, or even simply give some nice
: short cuts for use when site building.
: <p>
: 
: ')); if($Server->Config('XMLSubsStrict')) { ; &Apache::ASP::WriteRef($main::Response, \('
:   Further, the <b>XMLSubsStrict</b> setting has been set.
:   <p>
: ')); } ; &Apache::ASP::WriteRef($main::Response, \('
: 
: Currently, XMLSubsMatch is set to:
: ')); &my::ttb({  },  &{sub{ my $out = ""; local $Response->{out} =  local $Response->{BinaryRef} = \$out; local *Apache::ASP::Response::Flush = *Apache::ASP::Response::Null; &Apache::ASP::WriteRef($main::Response, \(' 
:   ')); $Response->Write('['); ; &Apache::ASP::WriteRef($main::Response, \('
:   '.($Server->Config('XMLSubsMatch')).' 
:   ')); $Response->Write(']'); ; &Apache::ASP::WriteRef($main::Response, \('
: ')); ; ${$Response->{out}}; }} ); ; &Apache::ASP::WriteRef($main::Response, \('
: 
: <p>
: Whatever tags XMLSubsMatch matches of the form
: <pre>'.(
: $Server->HTMLEncode('
:  <matchtag param1="value1" param2="value2">
:    text
:  </matchtag>
:   -- or --
:  <matchtag param1="value1" param2="value2"/>
: ')).'</pre>
: 
: will be parsed into perl subroutines of matchtag name with
: arguments and text passed in, so these subs would be called
: respectively for the above XMLMatchSubs:
: 
: <pre>'.($Server->HTMLEncode('
: &matchtag( { param1 =>"value1", param2=>"value2" }, \'text\' );
:   -- and --
: &matchtag( { param1 =>"value1", param2=>"value2" }, \'\');
: ')
: ).'</pre>
: 
: Note that XMLSubs tags of the form ')); &my::ttb({  }, 'foo:bar'); ; &Apache::ASP::WriteRef($main::Response, \(' will be changed into a
: call to ')); &my::ttb({  }, '&foo::bar()'); ; &Apache::ASP::WriteRef($main::Response, \(', so that the XML concept of tag prefix
: namespaces is translated to the concept of perl packages.
: <p>
: 
: ')); &my::table({ 'width' => '400', 'title' => 'Title Box', 'border' => '3' }, '
:   <h3>XML Subs Demo</h3>
:   The bgcolor=red param should have been skipped because it was
:   not surrounded with quotes like bgcolor="red" or bgcolor=\'red\'
: '); ; &Apache::ASP::WriteRef($main::Response, \('
: <p>
: ')); &my::table({ 'width' => '400', 'bgcolor' => 'red', 'title' => 'Title Box', 'border' => '3' }, '
:   The color=\'red\' param is OK here as it had the correct syntax.  
: '); ; &Apache::ASP::WriteRef($main::Response, \('
: 
: <p>
: The my::* perl subs defining the XMLSubs are located in the 
: global.asa.
: <p>
: 
: ')); &my::include({ 'src' => 'footer.inc' }, ''); ;