LoadHtml

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

These options allow speeding up processing when turned off (not needed).

    -hashes: Allows the <!HASH> tag sto be processed if on, otherwise ignored.

    -CGIScript: Causes s special hidden form variable called "CGIScript" to be added at
the bottom of the first form with the value set to "$ENV{SCRIPT_NAME}" if on, otherwise not added.

    -includes: Allows the <!INCLUDE> tags to be processed if on, otherwise ignored.

    -embeds: Allows the <!EMBED> tags to be processed if on, otherwise ignored.

    -loops: Allows the <!LOOP> tags to be processed if on, otherwise ignored.

    -numbers: Allows the classic numeric parameter (":1", ":2", etc.) tags to be processed if on, otherwise ignored.

    -pocs: Allows the <!POC> tags to be processed if on, otherwise ignored.

    -perls: Allows the <!PERL> tags to be processed if on, otherwise ignored.

&SetListSeperator($separator_string);

README.htm  view on Meta::CPAN

<P>These options allow speeding up processing when turned off (not needed).  </P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-hashes:  Allows the &lt;!HASH> tag sto be processed if on, otherwise ignored.</P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-CGIScript:  Causes s special hidden form variable called "CGIScript" to be added at </P>
the bottom of the first form with the value set to "$ENV{SCRIPT_NAME}" if on, otherwise not added.</P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-includes:  Allows the &lt;!INCLUDE> tags to be processed if on, otherwise ignored.</P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-embeds:  Allows the &lt;!EMBED> tags to be processed if on, otherwise ignored.</P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-loops:  Allows the &lt;!LOOP> tags to be processed if on, otherwise ignored.</P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-numbers:  Allows the classic numeric parameter (":1", ":2", etc.) tags to be processed if on, otherwise ignored.</P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-pocs:  Allows the &lt;!POC> tags to be processed if on, otherwise ignored.</P>

<P>&nbsp;&nbsp;&nbsp;&nbsp;-perls:  Allows the &lt;!PERL> tags to be processed if on, otherwise ignored.</P>

<P><B>&SetListSeperator($separator_string);</B></P>

lib/LoadHtml.pm  view on Meta::CPAN

These options allow speeding up processing when turned off (not needed).

    -hashes: Allows the <!HASH> tag sto be processed if on, otherwise ignored.

    -CGIScript: Causes s special hidden form variable called "CGIScript" to be added at
the bottom of the first form with the value set to "$ENV{SCRIPT_NAME}" if on, otherwise not added.

    -includes: Allows the <!INCLUDE> tags to be processed if on, otherwise ignored.

    -embeds: Allows the <!EMBED> tags to be processed if on, otherwise ignored.

    -loops: Allows the <!LOOP> tags to be processed if on, otherwise ignored.

    -numbers: Allows the classic numeric parameter (":1", ":2", etc.) tags to be processed if on, otherwise ignored.

    -pocs: Allows the <!POC> tags to be processed if on, otherwise ignored.

    -perls: Allows the <!PERL> tags to be processed if on, otherwise ignored.

&SetListSeperator($separator_string);

lib/LoadHtml.pm  view on Meta::CPAN

=over 4

B<-hashes>:  Allows the <!HASH> tag sto be processed if on, otherwise ignored.

B<-CGIScript>:  Causes s special hidden form variable called "CGIScript" to be added at
the bottom of the first form with the value set to "$ENV{SCRIPT_NAME}" if on, otherwise not added.

B<-includes>:  Allows the <!INCLUDE> tags to be processed if on, otherwise ignored.

B<-embeds>:  Allows the <!EMBED> tags to be processed if on, otherwise ignored.

B<-loops>:  Allows the <!LOOP> tags to be processed if on, otherwise ignored.

B<-numbers>:  Allows the classic numeric parameter (":1", ":2", etc.) tags to be processed if on, otherwise ignored.

B<-pocs>:  Allows the <!POC> tags to be processed if on, otherwise ignored.

B<-perls>:  Allows the <!PERL> tags to be processed if on, otherwise ignored.

=back

lib/LoadHtml.pm  view on Meta::CPAN

		{
			$rtn = &html_error(">Could not include html page: \"$fidurl\"!");
			return ($rtn);
		}
	}
	if ($tag)  #ADDED 20060117 TO ALLOW PARTIAL FILE INCLUDES BASED ON TAGS.
	{
		$html =~ s/^.*\<\!\-\-\s+BEGIN\s+$tag\s*\-\-\>//is or $html = '';
		$html =~ s#\<\!\-\-\s+END\s+$tag\s*\-\-\>.*$##is;
	}
	#$rtn = &modhtml(\$html, %parms);  #CHGD. 20010720 TO HANDLE EMBEDS.
	#return ($rtn);
	#return $modhtmlflag ? &modhtml(\$html, %parms) : $html;  #CHD 20030206 TO SUPPORT PARAMETERIZED INCLUDES.
	return $modhtmlflag ? &modhtml(\$html, {%{$parms}, %includeparms}) : $html;
};

sub doeval
{
	my ($expn) = shift;
	my ($fid) = shift;
	if ($fid)

lib/LoadHtml.pm  view on Meta::CPAN

	{
		while ($$html =~ s#<\!LOOP(\S*)\s+(.*?)>\s*(.*?)<\!/LOOP\1>\s*#&makaloop($parms, $2,$3,$1)#eis) {};
	}

	$$html =~ s#<\!HASH\s+(\w*?)\s*>(.*?)<\!\/HASH[^>]*>\s*#&buildahash($1,$2)#eigs
			if ($cfgOps{hashes});

	$$html =~ s#</FORM>#<INPUT NAME="CGIScript" TYPE=HIDDEN VALUE="$ENV{'SCRIPT_NAME'}">\n</FORM>#i 
			if ($cfgOps{CGIScript});

	#$$html =~ s#<\!INCLUDE\s+(.*?)>\s*#&fetchinclude($parms, $1)#eigs  #CHGD. TO NEXT 20010720 TO SUPPORT EMBEDS.
	$$html =~ s!<\!INCLUDE\s+(.*?)>\s*!
		my $one = $1;
		$one =~ s/^\"//o;
		$one =~ s/\"\s*$//o;
		my $tag = 0;
		$tag = $1  if ($one =~ s/\:(\w+)//o);  #ADDED 20060117 TO ALLOW PARTIAL FILE INCLUDES BASED ON TAGS.
		if ($one =~ s/\((.*)\)\s*$//)
		{
			my $includeparms = $1;
			$includeparms =~ s/\=/\=\>/go;

lib/LoadHtml.pm  view on Meta::CPAN

		$$html =~ s#\.\.\/##g;   #REMOVE ANY REMAING "../".

		#NOTE:  SOME JAVASCRIPT RELATIVE LINK VALUES MAY STILL NEED HAND-CONVERTING 
		#VIA BUILDHTML, FOLLOWED BY ADDITIONAL APP-SPECIFIC REGICES, ONE EXAMPLE 
		#WAS THE "JSFPR" SITE, FILLED WITH ASSIGNMENTS OF "'image/file.gif'", 
		#WHICH WERE CONVERTED USING:
		#	$html =~ s#([\'\"])images/#$1$main_htmlsubdir/images/#ig;

	}

	#NEXT LINE ADDED 20010720 TO SUPPORT EMBEDS (NON-PARSED INCLUDES).

#	$$html =~ s#<\!EMBED\s+(.*?)>\s*#&fetchinclude($parms, $1, 0)#eigs  
#			if ($cfgOps{embeds});

	#ABOVE CHANGED TO NEXT REGEX 20060117 TO ALLOW PARTIAL FILE INCLUDES BASED ON TAGS.
	$$html =~ s!<\!EMBED\s+(.*?)>\s*!
		my $one = $1;
		$one =~ s/^\"//o;
		$one =~ s/\"\s*$//o;
		my $tag = 0;
		$tag = $1  if ($one =~ s/\:(\w+)//o);
		&fetchinclude($parms, $one, 0, $tag);
	!eigs  if ($cfgOps{embeds});

	return ($$html);
}