File Coverage

blib/lib/A1z/HTML5/Template.pm

Criterion	Covered	Total	%
statement	53	482	11.0
branch	4	250	1.6
condition	1	126	0.7
subroutine	16	41	39.0
pod	32	36	88.8
total	106	935	11.3

package A1z::HTML5::Template;
use strict;
use warnings;
use vars qw($NAME);

# ABSTRACT: Fast and Easy Web Apps

sub NAME { my $self = shift; $NAME = "Fast and Easy Web Apps"; return $NAME; }

our $VERSION = '0.22';

use parent qw(Exporter);
require Exporter;
our @ISA = ("Exporter");

our @EXPORT_OK = qw(header start_html head_title head_meta head_js_css end_head begin_body body_js_css body_topnavbar
body_accordion end_body end_html head body
);



sub new {
	my $class = shift;
	my $self  = bless { @_ }, $class;
	return $self;
}


sub math1
{
	my $self = shift;

	my ($num1, $num2) = @_;

	if ($num1 eq '') { $num1 = '2'; }
	if ($num2 eq '') { $num2 = '4'; }

	my $out;

	my $m = $num1 * $num2;
	my $a  = $num1 + $num2;
	my $s  = $num1 - $num2;
	my $s1 = $num2 - $num1;
	my $d = $num1 / $num2;
	my $d1 = $num2 / $num1;

	$out .= qq{
	 




49




 





 





 





 





 





 



 	 




50




 





 





 





 





 





 



 		Multiplication 




51




 





 





 





 





 





 



 		  




52




 





 





 





 





 





 



 			 




53




 





 





 





 





 





 



 			$num1  




54




 





 





 





 





 





 



 			x  




55




 





 





 





 





 





 



 			$num2  




56




 





 





 





 





 





 



 			\=  




57




 





 





 





 





 





 



 			$m  




58




 





 





 





 





 





 



 		 




59




 





 





 





 





 





 



 	 




60




 





 





 





 





 





 



 		Addition  




61




 





 





 





 





 





 



 		  $num1  \+  $num2  \=  $a  




62




 





 





 





 





 





 



 		 




63




 





 





 





 





 





 



 		Subtraction 




64




 





 





 





 





 





 



 		  $num1  \-  $num2  \=  $s  




65




 





 





 





 





 





 



 		  $num2  \-  $num1  \=  $s1  




66




 





 





 





 





 





 



 		 




67




 





 





 





 





 





 



 		Division 




68




 





 





 





 





 





 



 		  $num1  \/  $num2  \=  $d  




69




 





 





 





 





 





 



 		  $num2  \/  $num1  \=  $d1  




70




 





 





 





 





 





 



 		 




71
























	};

	return qq{\n$out\n};
}



# begin timestable
sub timestable
{
	my $self = shift;

	my ($num1) = @_;

	if ( $num1 eq '' ) { $num1 = '2'; }

	my $out;

	$out .= qq{}; } if ($_); 




92




 





 





 





 





 





 



 	 




93



  
0
  




 





 





 





 





0



 	for ('1'..'20')  




94




 





 





 





 





 





 



 	{ 




95



  
0
  



  
  0
  




 





 





 





0



 		$out .= qq{ $num1 x $_ = } . $num1 * $_ . qq{




96




 





 





 





 





 





 



 	} 




97



  
0
  




 





 





 





 





0



 	$out .= qq{};

	for ('1'..'20')
	{
		$out .= qq{
	}
	$out .= qq{

	return $out;
}
# end timestable



# begin header
sub header
{
	my $self = shift;

	my @keys;
	if (@_) { @keys = @_; }

	my $args = scalar(@keys);

	my ($key, $key1) = @_;

	my %out;

	if ($ARGV and $ARGV > 0 and scalar(@keys) > 0)
	{
		if ($key eq 'utf8')
		{
			$out{"$key"} = qq{Content-Type: text/html;charset=utf-8\n\n};

		}
		elsif (!defined $key or $key eq '')
		{
			$out{"$key"} = qq{Content-Type: text/html;charset=utf-8\n\n};
		}
		else
		{
			$out{"$key"} = qq{Content-Type: text/html;charset=utf-8\n\n};
		}
	}
	else
	{
		return qq{Content-Type: text/html;charset=utf-8\n\n};
	}

}
# end header



# begin start html 01
sub start_html
{
	my $self = shift;

	my @keys;
	if (@_) { @keys = @_; }

	my $args = scalar @keys;

	my ($key, $key1) = @_;

	my %out;

	if ($args and $args >= 0)
	{
		# have your own custom header, backwards compatibility

		my $out;

		$out .= qq{@_ };

		return $out;

	}
	else
	{
		my $out;

		$out .= qq{\n\n};
		$out .= qq{\n};

		return $out;

	}
}
# end start_html




sub body_js_css
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $args = scalar (@keys);

	my $out;

	$out .= qq^









		 </td>
</tr>

<tr>
<td  class="h" >
<a name="210">210</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		 </td>
</tr>

<tr>
<td  class="h" >
<a name="211">211</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		// for tabs  </td>
</tr>

<tr>
<td  class="h" >
<a name="212">212</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$( function() { </td>
</tr>

<tr>
<td  class="h" >
<a name="213">213</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			var tabs = \$("#tabs").tabs(); </td>
</tr>

<tr>
<td  class="h" >
<a name="214">214</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			tabs.find( ".ui-tabs-nav" ).sortable({ </td>
</tr>

<tr>
<td  class="h" >
<a name="215">215</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				axis: "x", </td>
</tr>

<tr>
<td  class="h" >
<a name="216">216</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				stop: function() { tabs.tabs( "refresh" ); } </td>
</tr>

<tr>
<td  class="h" >
<a name="217">217</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			}); </td>
</tr>

<tr>
<td  class="h" >
<a name="218">218</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		});  </td>
</tr>

<tr>
<td  class="h" >
<a name="219">219</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   </td>
</tr>

<tr>
<td  class="h" >
<a name="220">220</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		// dialog  </td>
</tr>

<tr>
<td  class="h" >
<a name="221">221</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$( function() { </td>
</tr>

<tr>
<td  class="h" >
<a name="222">222</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			\$( "#dialog" ).dialog({ </td>
</tr>

<tr>
<td  class="h" >
<a name="223">223</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  autoOpen: false, </td>
</tr>

<tr>
<td  class="h" >
<a name="224">224</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  show: { </td>
</tr>

<tr>
<td  class="h" >
<a name="225">225</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				effect: "blind", </td>
</tr>

<tr>
<td  class="h" >
<a name="226">226</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				duration: 1000 </td>
</tr>

<tr>
<td  class="h" >
<a name="227">227</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  }, </td>
</tr>

<tr>
<td  class="h" >
<a name="228">228</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  hide: { </td>
</tr>

<tr>
<td  class="h" >
<a name="229">229</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				effect: "explode", </td>
</tr>

<tr>
<td  class="h" >
<a name="230">230</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				duration: 1000 </td>
</tr>

<tr>
<td  class="h" >
<a name="231">231</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  } </td>
</tr>

<tr>
<td  class="h" >
<a name="232">232</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			}); </td>
</tr>

<tr>
<td  class="h" >
<a name="233">233</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		  </td>
</tr>

<tr>
<td  class="h" >
<a name="234">234</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			\$( "#opener" ).click(function() { </td>
</tr>

<tr>
<td  class="h" >
<a name="235">235</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  \$( "#dialog" ).dialog( "open" ); </td>
</tr>

<tr>
<td  class="h" >
<a name="236">236</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			}); </td>
</tr>

<tr>
<td  class="h" >
<a name="237">237</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		}); </td>
</tr>

<tr>
<td  class="h" >
<a name="238">238</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   </td>
</tr>

<tr>
<td  class="h" >
<a name="239">239</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#menu').menu();  </td>
</tr>

<tr>
<td  class="h" >
<a name="240">240</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="241">241</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion1').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="242">242</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion2').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="243">243</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion3').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="244">244</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#tabs').tabs();  </td>
</tr>

<tr>
<td  class="h" >
<a name="245">245</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		 </td>
</tr>

<tr>
<td  class="h" >
<a name="246">246</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">

	^;


	if ( $args )
	{

		if ( $args >= 0)
		{
			my $return;

			for (@keys )
			{
				chomp;
				if ($_ =~ /.js$/)
				{
					$return .= qq{\n};
				}
				elsif ($_ =~ /.css$/)
				{
					$return .= qq{\n};
				}
				else
				{
					# do nothing
				}
			}

			return qq{$return}; 	#
		}
		else
		{
			return qq{$out};
		}

	}
	else
	{
		return qq{$out}; 	#
	}

}





# start end_html
sub end_html
{
	my $self = shift;

	my @keys;
	if (@_) { @keys = @_; }

	my ($key, $key1) = @_;

	my $out;

	$out .= qq{\n\n};

	if ($ARGV and $ARGV > 0 or scalar(@keys) > 0)
	{
		return qq{@_};
	}
	else
	{
		return $out;
	}
}
# end end_html




# start head title 02
sub head_title
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $out;

	$out .= qq{};

	if ($ARGV and $ARGV > 0 or scalar(@keys) > 0)
	{

		if ($key)
		{
			return qq{@_\n};
		}
		else
		{
			return qq{Template\n};
		}

	}
	else
	{
		return qq{Package Html5\n}; 	# this works but does not ask the user
	}

}
# end head title




# begin head meta 03
sub head_meta
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $args = scalar @keys;

	my $out;

	$out .= qq{




};

	if ($args)
	{

		if ($args >= 0)
		{
			my $return;

			for (@keys )
			{
				chomp;

				my ( $meta_name, $meta_cont) = split(/---/, $_, 2);

				$return .= qq{\n};
			}

			return qq{$return};
		}
		else
		{
			$out .= qq{};
			# add default meta if user has not called one of his own
			return qq{$out};
		}

	}
	else
	{
		return qq{$out}; 	# this works but does not ask the user
	}

}
# end head meta 03




# begin body top nav bar
sub body_topnavbar
{
	my $self = shift;

	my %in;

	%in = (
		file => "https://www.a1z.us/js/utils/top-nav-bar.js",
		name => "Menu",
		@_,
	);

	my $out;

	$out .= qq{

 </td>
</tr>

<tr>
<td  class="h" >
<a name="436">436</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	fixed_top_navbar('', '', '$in{name}', '', ''); </td>
</tr>

<tr>
<td  class="h" >
<a name="437">437</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">

};

	return qq{$out\n}; 	# this works but does not ask the user

}
# end body top nav bar




sub head_js_css
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $args = scalar (@keys);

	my $out;

	$out .= qq{











};

	if ($args)
	{

		if ($args >= 0)
		{
			my $return;

			for (@keys)
			{
				chomp;
				if ($_ =~ /.js$/)
				{
					$return .= qq{ \n \n};
				}
				elsif ($_ =~ /.css$/)
				{
					$return .= qq{ \n \n};
				}
				else
				{
					# do nothing
					return qq{@keys\n};
				}
			}

			return qq{$return\n};
		}
		else
		{
			return qq{$out\n};
		}

	}
	else
	{
		return qq{$out\n}; 	# this works but does not ask the user
	}

}
# end head js css




# begin end head
sub end_head
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $out;

	$out .= qq{};

	if ($ARGV and $ARGV > 0 or scalar(@keys) > 0)
	{

		if (@_)
		{
			return qq{@_\n};
		}
		else
		{
			return qq{$out\n};
		}

	}
	else
	{
		return qq{$out\n}; 	# this works but does not ask the user
	}
}
# end end head



# begin begin body
sub begin_body
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $out;

	$out .= qq{};

	if ($ARGV and $ARGV > 0 or scalar(@keys) > 0)
	{

		if (@_)
		{
			return qq{@_\n};
		}
		else
		{
			return qq{$out\n};
		}

	}
	else
	{
		return qq{$out\n}; 	# this works but does not ask the user
	}
}
# end begin body



# begin accordion or rather file content.  Need to change name of this method
sub body_accordion
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $out;

	$out .= qq{

	Who is it for
	For those who know/uderstand Perl/HTML/jQuery
	What about a bigger number?
	Sure.  Use the custom form to get the times table for a number greater than 30?
	How about any number/range?
	Yes, of course!  Once again, use the custom form bearing the heading "Or enter your own"
	Can I customize it for own use?
	In that case, you need to purchase the software and/or order a customization




};

	if ($ARGV and $ARGV > 0 or scalar(@keys) > 0)
	{

		if (@_)
		{
			return qq{\n@_\n};
		}
		else
		{
			return qq{\n$out\n};
		}

	}
	else
	{
		return qq{\n$out\n}; 	#
	}
}
# end accordion




sub body_article
{
	my $self = shift;

	my $out;

	my %in;
	%in =
	(
		content => "",
		type => "article",
		header => "Content Header",
		@_,
	);

	if ( !defined $in{content} or $in{content} eq '' )
	{
		return qq{
			No Content
		};
	}
	else
	{
		return qq{$in{header}
			$in{content}

		};
	}
}




# begin begin body
sub end_body
{
	my $self = shift;

	my $key = "@_";

	my @keys;
	if (@_) { @keys = @_; }

	my $out;

	$out .= qq{\n\n};

	if ($ARGV and $ARGV > 0 or scalar(@keys) > 0)
	{

		if (@_)
		{
			return qq{@_\n};
		}
		else
		{
			return qq{$out\n};
		}

	}
	else
	{
		return qq{$out\n}; 	# this works but does not ask the user
	}
}
# end end body





# begin content folder to select form
sub body_form
{
	my $self = shift;

	my $out;

	my @keys;
	if (@_) { @keys = @_; }

	my ($vars, $vals) = ('');
	for (@keys)
	{
		$vars = $_ if ($_ =~ /^vars/);

		# $vals not used
		$vals = $_ if ($_ =~ /^vals/);
	}

	my @form_vars = split(/\;/, $vars);

	my @form_vals = split(/\;/, $vals);

	# get params for hidden fields if given
	my @hidden;
	if ($form_vars[4] and $form_vars[4] =~ /\,/)
	{
		 @hidden = split(/\,/, $form_vars[4]);
	}
	else
	{
		@hidden = ("No", "Vals");
	}

	# if SELECT ....

	my $select;

	if ($form_vars[3] and $form_vars[3] =~ /^select/)
	{
		# get the params for the form
		#   select,
		my ($sel_key, $sel_name, $sel_default, $folder_or_file, $selectLabelText) = split(/\,/, $form_vars[3], 5);

		$select .= qq{
	$selectLabelText

	\t
	\t\t$sel_default
	};

		#now open file/folder to fill "options"
		if ( -f $folder_or_file )
		{
			# open as file
			#$select .= qq{none};
		}
		elsif (-d $folder_or_file)
		{
			# open as dir and add all files in it to "options"
			opendir(D, "$folder_or_file") or $select .= qq{$!};
			my @DIR = readdir(D);

			while ( my $file =  )
			{
				# only if file contains alphabets, numbers, and dashes
				next unless $file =~ /[a-zA-Z0-9\-]/;

				# comment if you want subfolders also listed
				next unless -f "$folder_or_file/$file";

				# get rid of . and ..
				next if $file =~ /^(\.|\.\.)/;

				# do not add hidden files to the options list
				next if $file =~ /^\./;

				# get the size of th file
				my $size = -s "$folder_or_file/$file";
				my $original = $size;
					$size /= 1024;
					#$size /= 1024;
					$size = sprintf "%.2f", $size;
				$select .= qq{\n\t\t\t$file [$size kb]} if $file;
			}

			close D;
		}

		$select .= qq{\n\t\t\n\t\n};
	}
	else
	{
		# no select
		$select .= qq{};
	}


	$out .= qq{};

		# add hidden fields/values # from $form_vars[4]
		for (@hidden)
		{
			my ($name, $value) = split(/\-\-\-/, $_, 2) if $_;
			$out .= qq{\n\t} if $_;
		}
		# add select
		$out .= qq{$select};
	$out .= qq{\n\tSubmit\n\n};

	return qq{$out};
}

# end body_form



sub defaults_begin
{
	my $self = shift;

	my $out;

	$out .= sprintf header(),
		start_html(),
		head_title("$_[0]"),
		head_meta(),
		head_meta("$_[1]"),
		head_js_css(),
		head_js_css("$_[2]"),
		end_head(),
		begin_body(),
		body_topnavbar()
	;

		return $out;
}



sub defaults_end
{
	my $self = shift;

	my $out;

	$out .= sprintf body_js_css(),
		body_js_css("$_[0]"),
		end_body(),
		end_html()
	;

	return $out;
}



# HTML
my %HTML;

%HTML = (
	-defaultjquery => qq{\n















		 </td>
</tr>

<tr>
<td  class="h" >
<a name="895">895</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		 </td>
</tr>

<tr>
<td  class="h" >
<a name="896">896</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		// for tabs  </td>
</tr>

<tr>
<td  class="h" >
<a name="897">897</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$( function() { </td>
</tr>

<tr>
<td  class="h" >
<a name="898">898</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			var tabs = \$( "#tabs" ).tabs(); </td>
</tr>

<tr>
<td  class="h" >
<a name="899">899</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			 </td>
</tr>

<tr>
<td  class="h" >
<a name="900">900</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			tabs.find( ".ui-tabs-nav" ).sortable({ </td>
</tr>

<tr>
<td  class="h" >
<a name="901">901</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				axis: "x", </td>
</tr>

<tr>
<td  class="h" >
<a name="902">902</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				stop: function() { tabs.tabs( "refresh" ); } </td>
</tr>

<tr>
<td  class="h" >
<a name="903">903</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			}); </td>
</tr>

<tr>
<td  class="h" >
<a name="904">904</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		});  </td>
</tr>

<tr>
<td  class="h" >
<a name="905">905</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   </td>
</tr>

<tr>
<td  class="h" >
<a name="906">906</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		// dialog  </td>
</tr>

<tr>
<td  class="h" >
<a name="907">907</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$(function() { </td>
</tr>

<tr>
<td  class="h" >
<a name="908">908</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			\$( "#dialog" ).dialog({ </td>
</tr>

<tr>
<td  class="h" >
<a name="909">909</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  autoOpen: false, </td>
</tr>

<tr>
<td  class="h" >
<a name="910">910</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  show: { </td>
</tr>

<tr>
<td  class="h" >
<a name="911">911</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				effect: "blind", </td>
</tr>

<tr>
<td  class="h" >
<a name="912">912</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				duration: 1000 </td>
</tr>

<tr>
<td  class="h" >
<a name="913">913</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  }, </td>
</tr>

<tr>
<td  class="h" >
<a name="914">914</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  hide: { </td>
</tr>

<tr>
<td  class="h" >
<a name="915">915</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				effect: "explode", </td>
</tr>

<tr>
<td  class="h" >
<a name="916">916</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				duration: 1000 </td>
</tr>

<tr>
<td  class="h" >
<a name="917">917</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  } </td>
</tr>

<tr>
<td  class="h" >
<a name="918">918</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			}); </td>
</tr>

<tr>
<td  class="h" >
<a name="919">919</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		  </td>
</tr>

<tr>
<td  class="h" >
<a name="920">920</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			\$( "#opener" ).click(function() { </td>
</tr>

<tr>
<td  class="h" >
<a name="921">921</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			  \$( "#dialog" ).dialog( "open" ); </td>
</tr>

<tr>
<td  class="h" >
<a name="922">922</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			}); </td>
</tr>

<tr>
<td  class="h" >
<a name="923">923</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		}); </td>
</tr>

<tr>
<td  class="h" >
<a name="924">924</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   </td>
</tr>

<tr>
<td  class="h" >
<a name="925">925</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#menu').menu();  </td>
</tr>

<tr>
<td  class="h" >
<a name="926">926</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="927">927</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion1').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="928">928</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion2').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="929">929</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#accordion3').accordion();  </td>
</tr>

<tr>
<td  class="h" >
<a name="930">930</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('accordion617').accordion(); </td>
</tr>

<tr>
<td  class="h" >
<a name="931">931</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		\$('#tabs').tabs();  </td>
</tr>

<tr>
<td  class="h" >
<a name="932">932</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="933">933</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		 </td>
</tr>

<tr>
<td  class="h" >
<a name="934">934</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">
	},

	-default_LastItem => qq{},

);


sub html_bootstrap_css
{
	return qq{


};

}




sub html_jqueryui_css
{
	# jquery ui theme jquery-ui.css #1.12.0
	return qq{};
}




sub html_shim_respond
{
	return qq{

};

}



sub html_navbar
{
	#my $self = shift;

	#serverName, pageName, menuName, dropDownLinks

	my %in;
	%in = (
		-nbMenuName 	=>	"",
		-nbPageName 	=> 	"",
		-nbServer    =>  "",
		-nbLinks => "blog-support-help-contact-sale",
		@_,
	);

	return qq{

 </td>
</tr>

<tr>
<td  class="h" >
<a name="994">994</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> //<--  </td>
</tr>

<tr>
<td  class="h" >
<a name="995">995</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> fixed_top_navbar('$in{-nbServer}', '$in{-nbPageName}', '$in{-nbMenuName}', '$in{-nbLinks}'); </td>
</tr>

<tr>
<td  class="h" >
<a name="996">996</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> //--> </td>
</tr>

<tr>
<td  class="h" >
<a name="997">997</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">

};

}




sub html_bootstrap_js
{
	# jquery:3.3.0 ui:1/12/1

	return qq{


};

}

sub html_js_css
{

}

sub html_jquery
{

}



sub html_setTitle
{
	my $out;

	my %in;

	%in = (
		ta => qq{},
		tb => qq{},
		tc => qq{},
		@_,
	);

	$out .= qq{		 </td>
</tr>

<tr>
<td  class="h" >
<a name="1043">1043</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <!-- Begin </td>
</tr>

<tr>
<td  class="h" >
<a name="1044">1044</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	function setTitle()  </td>
</tr>

<tr>
<td  class="h" >
<a name="1045">1045</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="1046">1046</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		var a = "$in{ta}"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1047">1047</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		var b = "$in{tb}"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1048">1048</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		var c = "$in{tc}"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1049">1049</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		var t = new Date(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1050">1050</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		s = t.getSeconds(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1051">1051</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		if (s == 10) { document.title = a;} </td>
</tr>

<tr>
<td  class="h" >
<a name="1052">1052</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		else if (s == 20) { document.title = b;} </td>
</tr>

<tr>
<td  class="h" >
<a name="1053">1053</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		else if (s == 30) { document.title = c;} </td>
</tr>

<tr>
<td  class="h" >
<a name="1054">1054</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		else if (s == 40) { document.title = a;} </td>
</tr>

<tr>
<td  class="h" >
<a name="1055">1055</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		else if (s == 50) { document.title = b;} </td>
</tr>

<tr>
<td  class="h" >
<a name="1056">1056</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		else if (s == 00) { document.title = c;} </td>
</tr>

<tr>
<td  class="h" >
<a name="1057">1057</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		setTimeout("setTitle()", 1000); </td>
</tr>

<tr>
<td  class="h" >
<a name="1058">1058</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="1059">1059</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> //  End --> </td>
</tr>

<tr>
<td  class="h" >
<a name="1060">1060</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">
	};

	return $out;
}




sub html_humanejs_css
{
	return qq{








};

}




sub html_bootstrap_bluimp
{
	return qq{





	    ‹
	    ›
	    ×







	                    ×






	                        Previous


	                        Next







	};
}
# end sub html_bootstrap_bluimp




sub head
{
	my $self = shift;

	my $out;

	my %in = (
		-type 	=> "Content-Type: text/html;charset=utf-8\n\n",
		-bootstrap 	=> html_bootstrap_css,
		-jqueryui 	=> html_jqueryui_css,
		-htmlshim	=> html_shim_respond,
		-humanejs  => html_humanejs_css,
		-title 		=> "A1Z .us",
		-cssLinks => "https://code.jquery.com/ui/1.11.4/themes/ui-lightness/jquery-ui.css,https://blueimp.github.io/Gallery/css/blueimp-gallery.min.css,https://www.a1z.us/A1z/HTML5/Template.css",
		-cssCode => "",
		-mobilemeta => qq{

},
		-charsetmeta => qq{},
		-usermeta => "",
		-titleRotatingText => qq{text1,text2,text3},
		@_,

	);


# rotating title function and text
my $setTitle;
if ( $in{-titleRotatingText} and $in{-titleRotatingText} =~ /\,/ )
{
	my @a;
	@a = split(/\,/, $in{-titleRotatingText}, 3);

	$setTitle = html_setTitle(ta => "$a[0]", tb => "$a[1]", tc => "$a[2]");
}
else
{
	$setTitle = html_setTitle(ta => "Text01", tb => "text02", tc => "text03");
}

# css multiple links/files
my $css; my @css;
if ($in{-cssLinks} )
{
	if  ( $in{-cssLinks} =~ /\,/ )
	{
		@css = split(/\,/, $in{-cssLinks});
		for (@css)
		{
			if ($_ =~ /\.css$/)
			{
				$css .= qq{\n} ;
			}
			else
			{
				$css = '';
			}
		}
	}
}
else
{
	$css = qq{};
}


	return qq{$in{-type}


$in{-title}
$in{-charsetmeta}
$in{-mobilemeta}
$in{-usermeta}
$in{-bootstrap}
$in{-jqueryui}
$in{-htmlshim}
$in{-humanejs}
$css
 </td>
</tr>

<tr>
<td  class="h" >
<a name="1209">1209</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> $in{-cssCode} </td>
</tr>

<tr>
<td  class="h" >
<a name="1210">1210</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">

$setTitle


}; 	# thats orderly

}
# end head



sub body
{
	my $self = shift;

	my $out;

	my %in;

	%in = (
		-h1 => qq{A1Z .us},
		-onload => qq{setTitle();},
		-nbhead => qq{},
		-nbpage => qq{},
		-nbmenu => qq{More},
		-defaultjquery => qq{$HTML{-defaultjquery}},
		-humanejs => qq{}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1238">1238</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		-userjquery => qq{},  </td>
</tr>

<tr>
<td  class="h" >
<a name="1239">1239</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

10

</td>

<td class="s"> 		-navbar => html_navbar( $in{-nbmenu}, $in{-nbpage}, "", ""),  </td>
</tr>

<tr>
<td  class="h" >
<a name="1240">1240</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		-content => qq{<div class="content">Content</div>},  </td>
</tr>

<tr>
<td  class="h" >
<a name="1241">1241</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		-footer => qq{All rights reserved &copy; A1Z .us}, 	 </td>
</tr>

<tr>
<td  class="h" >
<a name="1242">1242</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		-bootstrapbluimp => html_bootstrap_bluimp, </td>
</tr>

<tr>
<td  class="h" >
<a name="1243">1243</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		-nbLinks => qq{contact-help-feedback}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1244">1244</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		@_, 		 </td>
</tr>

<tr>
<td  class="h" >
<a name="1245">1245</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	);  </td>
</tr>

<tr>
<td  class="h" >
<a name="1246">1246</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 </td>
</tr>

<tr>
<td  class="h" >
<a name="1247">1247</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

23

</td>

<td class="s"> 	return qq{<body onload="$in{-onload}"> </td>
</tr>

<tr>
<td  class="h" >
<a name="1248">1248</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> <div id="main" class="container"> </td>
</tr>

<tr>
<td  class="h" >
<a name="1249">1249</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	<!--top nav bar begin--> </td>
</tr>

<tr>
<td  class="h" >
<a name="1250">1250</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	<script  src="https://www.a1z.us/js/utils/top-nav-bar.js">
	 </td>
</tr>

<tr>
<td  class="h" >
<a name="1252">1252</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	//<--  </td>
</tr>

<tr>
<td  class="h" >
<a name="1253">1253</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	fixed_top_navbar('$in{-nbhead}', '$in{-nbpage}', '$in{-nbmenu}', '$in{-nbLinks}'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1254">1254</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	//--> </td>
</tr>

<tr>
<td  class="h" >
<a name="1255">1255</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">

	$in{-bootstrapbluimp}

	$in{-h1}

	$in{-content}

	$in{-footer}



$in{-defaultjquery}

$in{-humanejs}

 </td>
</tr>

<tr>
<td  class="h" >
<a name="1272">1272</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> //<!-- </td>
</tr>

<tr>
<td  class="h" >
<a name="1273">1273</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> $in{-userjquery} </td>
</tr>

<tr>
<td  class="h" >
<a name="1274">1274</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> //-->  </td>
</tr>

<tr>
<td  class="h" >
<a name="1275">1275</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">





};

}
# end body





sub open_file
{
	my $self =shift;



	my %in;
	%in =
	(
		file => "",

		output_header => "",

		output_format => "",

		@_,
	);

	my $file = "$in{file}" || "$_[0]";

	my $output_format = "$in{output_format}" || "$_[1]";

	my $output_header = "$in{output_header}" || "$_[2]";

	my $out;

	my $div4tabs;

	my @data;

	if (-e -f "$file")
	{

		open(FILE, "$file") or die "$!";

		$out .= qq{\n\n\n};

		# Step 1
		# set the header as per format
		if ($output_format eq 'table')
		{
			$out .= qq{\n};  \n 




1332




 





 





 





 





 





 



 				 




1333




 





 





 





 





 





 



 					$output_header 




1334




 





 





 





 





 





 



 				 




1335




 





 





 





 





 





 



 				 




1336




 





 





 





 





 





 



 			};  




1337




 





 





 





 





 





 



 		} 




1338




 





 





 





 





 





 



 		elsif ($output_format eq 'accordion') 




1339




 





 





 





 





 





 



 		{ 




1340



  
0
  




 





 





 





 





 



 			$out .= qq{$output_header\n\n}; 




1341




 





 





 





 





 





 



 		}  




1342




 





 





 





 





 





 



 		elsif ($output_format eq 'menu')  




1343




 





 





 





 





 





 



 		{ 




1344



  
0
  




 





 





 





 





 



 			$out .= qq{\n$output_header\n}; 




1345




 





 





 





 





 





 



 		} 




1346




 





 





 





 





 





 



 		elsif ($output_format eq 'tabs') 




1347




 





 





 





 





 





 



 		{ 




1348




 





 





 





 





 





 



 			# special case for tabs since the data needs to be formatted a little differently  




1349




 





 





 





 





 





 



 			 




1350



  
0
  




 





 





 





 





 



 			$out .= qq{$output_header\n\n\n}; 




1351




 





 





 





 





 





 



 			 




1352



  
0
  




 





 





 





 





 



 			my $sl = '0';  




1353




 





 





 





 





 





 



 			 




1354



  
0
  




 





 





 





 





 



 				while ( my $line = )  




1355




 





 





 





 





 





 



 				{ 




1356



  
0
  



  
  0
  




 





 





 





 



 					$sl++ if $line;  




1357




 





 





 





 





 





 



 					 




1358



  
0
  




 





 





 





 





 



 					my ($h1, $div) = ('');  




1359




 





 





 





 





 





 



 					 




1360



  
0
  



  
  0
  




 





 





 





 



 					if ($line =~ /\|/) 		 




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




1361




 





 





 





 





 





 



 					{  




1362



  
0
  




 





 





 





 





 



 						($h1, $div) = split(/\|/, $line, 2);  




1363




 





 





 





 





 





 



 					} 			# no (\|) # i.e., do not enclose with brackets 




1364




 





 





 





 





 





 



 					elsif ($line =~ /\t+/) {  




1365



  
0
  




 





 





 





 





 



 						($h1, $div) = split(/\t+/, $line, 2);  




1366




 





 





 





 





 





 



 					}  




1367




 





 





 





 





 





 



 					elsif ($line =~ /\s+/)  




1368




 





 





 





 





 





 



 					{  




1369



  
0
  




 





 





 





 





 



 						($h1, $div) = split(/\s+/, $line, 2);  




1370




 





 





 





 





 





 



 					} 




1371




 





 





 





 





 





 



 					 




1372




 





 





 





 





 





 



 					# Keep only those items that have '==' in the beginning   




1373




 





 





 





 





 





 



   




1374



  
0
  



  
  0
  



  
  0
  




 





 





 



 					if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )  




1375




 





 





 





 





 





 



 					{ 




1376



  
0
  



  
  0
  



  
  0
  




 





 





 



 						next unless ($h1 =~ /^\s+==/ or $div =~ /^\s+==/); 




1377



  
0
  




 





 





 





 





 



 						$div =~ s!^\s+==!!g; 




1378



  
0
  




 





 





 





 





 



 						$h1 =~ s!^\s+==!!g; 




1379




 





 





 





 





 





 



 					} 




1380




 





 





 





 





 





 



 					else 




1381




 





 





 





 





 





 



 					{ 




1382



  
0
  



  
  0
  



  
  0
  




 





 





 



 						next unless ($h1 =~ /^==/ or $div =~ /^==/); 




1383



  
0
  




 





 





 





 





 



 						$div =~ s!^==!!g; 




1384



  
0
  




 





 





 





 





 



 						$h1 =~ s!^==!!g; 




1385




 





 





 





 





 





 



 					} 




1386




 





 





 





 





 





 



 				 




1387



  
0
  




 





 





 





 





 



 					$out .= qq{\t$h1\n};  




1388




 





 





 





 





 





 



   




1389



  
0
  




 





 





 





 





 



 					$div4tabs .= qq{$div}; 




1390




 





 





 





 





 





 



 				} 




1391



  
0
  




 





 





 





 





 



 			$out .= qq{\n};  




1392




 





 





 





 





 





 



   




1393



  
0
  




 





 





 





 





 



 			$out .= $div4tabs; 




1394




 





 





 





 





 





 



   




1395



  
0
  




 





 





 





 





 



 			close FILE; 




1396




 





 





 





 





 





 



 		} 




1397




 





 





 





 





 





 



 		elsif ($output_format eq 'dialog') 




1398




 





 





 





 





 





 



 		{ 




1399



  
0
  




 





 





 





 





 



 			$out .= qq{Dialog: $output_header 




1400




 





 





 





 





 





 



 \n};  




1401




 





 





 





 





 





 



 		} 




1402




 





 





 





 





 





 



 		else  




1403




 





 





 





 





 





 



 		{ 




1404



  
0
  




 





 





 





 





 



 			$out .= qq{\n$output_header\n};  




1405




 





 





 





 





 





 



 		} 




1406




 





 





 





 





 





 



 		# End Step 1 




1407




 





 





 





 





 





 



 		 




1408




 





 





 





 





 





 



 		# now work on file  




1409




 





 





 





 





 





 



 		 




1410



  
0
  




 





 





 





 





 



 		my $serial = '0';  




1411




 





 





 





 





 





 



 		 




1412



  
0
  




 





 





 





 





 



 		while ( my $line =  )  




1413




 





 





 





 





 





 



 		{  




1414



  
0
  




 





 





 





 





 



 			chomp $line;  




1415




 





 





 





 





 





 



 			 




1416



  
0
  



  
  0
  




 





 





 





 



 			$serial++ if $line;  




1417




 





 





 





 





 





 



 			 




1418



  
0
  




 





 





 





 





 



 			my ($h1, $div) = ('');  




1419




 





 





 





 





 





 



 			 




1420



  
0
  



  
  0
  




 





 





 





 



 			if ($line) 				# make sure no output if line is empty 




1421




 





 





 





 





 





 



 			{	 




1422



  
0
  




 





 





 





 





 



 				$line =~ s! RN !\r\n!g; 




1423




 





 





 





 





 





 



 				 




1424




 





 





 





 





 





 



 				# split the file's lines into usable data according to separator used. 




1425



  
0
  



  
  0
  




 





 





 





 



 				if ($line =~ /\|/) 		 




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




1426




 





 





 





 





 





 



 				{  




1427



  
0
  




 





 





 





 





 



 					($h1, $div) = split(/\|/, $line, 2);  




1428




 





 





 





 





 





 



 				} 			# no (\|) # i.e., no enclosing with brackets.  was the culprit  




1429




 





 





 





 





 





 



 				elsif ($line =~ /\t+/) {  




1430



  
0
  




 





 





 





 





 



 					($h1, $div) = split(/\t+/, $line, 2);  




1431




 





 





 





 





 





 



 				}  




1432




 





 





 





 





 





 



 				elsif ($line =~ /\s+/)  




1433




 





 





 





 





 





 



 				{  




1434



  
0
  




 





 





 





 





 



 					($h1, $div) = split(/\s+/, $line, 2);  




1435




 





 





 





 





 





 



 				} 




1436




 





 





 





 





 





 



 				# end split the file's line according to match: 3 options: |, \t+, or \s+  




1437




 





 





 





 





 





 



   




1438




 





 





 





 





 





 



 			} 




1439




 





 





 





 





 





 



 			 




1440




 





 





 





 





 





 



 			# Step 2  




1441




 





 





 





 





 





 



 			#Now set the content as per output format  




1442



  
0
  



  
  0
  




 





 





 





 



 			if ($output_format eq 'table')  




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




1443




 





 





 





 





 





 



 			{  




1444




 





 





 





 





 





 



 				# Keep only those items that have a # in the beginning  




1445




 





 





 





 





 





 



 				  




1446



  
0
  



  
  0
  



  
  0
  




 





 





 



 				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )  




1447




 





 





 





 





 





 



 				{ 




1448



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^\s+#/ or $div =~ /^\s+#/); 




1449



  
0
  




 





 





 





 





 



 					$div =~ s!^\s+#!!g; 




1450



  
0
  




 





 





 





 





 



 					$h1 =~ s!^\s+#!!g; 




1451




 





 





 





 





 





 



 				} 




1452




 





 





 





 





 





 



 				else 




1453




 





 





 





 





 





 



 				{ 




1454



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^#/ or $div =~ /^#/); 




1455



  
0
  




 





 





 





 





 



 					$div =~ s!^#!!g; 




1456



  
0
  




 





 





 





 





 



 					$h1 =~ s!^#!!g; 




1457




 





 





 





 





 





 



 				} 




1458



  
0
  




 





 





 





 





 



 				$out .= qq{\t$h1$div




1459




 





 





 





 





 





 



 			} 




1460




 





 





 





 





 





 



 			elsif ($output_format eq 'accordion') 




1461




 





 





 





 





 





 



 			{ 




1462




 





 





 





 





 





 



 				# Keep only those items that have -- in the beginning  




1463




 





 





 





 





 





 



 					 




1464



  
0
  



  
  0
  



  
  0
  




 





 





 



 				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )  




1465




 





 





 





 





 





 



 				{ 




1466



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^\s+--/ or $div =~ /^\s+--/); 




1467



  
0
  




 





 





 





 





 



 					$div =~ s!^\s+--!!g; 




1468



  
0
  




 





 





 





 





 



 					$h1 =~ s!^\s+--!!g; 




1469




 





 





 





 





 





 



 				} 




1470




 





 





 





 





 





 



 				else 




1471




 





 





 





 





 





 



 				{ 




1472



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^--/ or $div =~ /^--/); 




1473



  
0
  




 





 





 





 





 



 					$div =~ s!^--!!g; 




1474



  
0
  




 





 





 





 





 



 					$h1 =~ s!^--!!g; 




1475




 





 





 





 





 





 



 				}  




1476




 





 





 





 





 





 



 				 




1477



  
0
  



  
  0
  




 





 





 





 



 				$out .= qq{\t$h1\n\t$div\n} if $line;  




1478




 





 





 





 





 





 



 			}  




1479




 





 





 





 





 





 



 			elsif ($output_format eq 'menu')  




1480




 





 





 





 





 





 



 			{ 




1481




 





 





 





 





 





 



 				# the first item will be used as link title and name 




1482




 





 





 





 





 





 



 				# the second item will be used as the actual link   




1483




 





 





 





 





 





 



 				# no extensions added automatically by the script  




1484




 





 





 





 





 





 



 				# an id for each link/li is also provided in case, may be it is not needed  




1485




 





 





 





 





 





 



 				 




1486




 





 





 





 





 





 



 				# Remove items with a # in the beginning; Sat Feb 21 18:48:19 2015 




1487



  
0
  



  
  0
  



  
  0
  




 





 





 



 				next if ($h1 =~ /^#http/ or $div =~ /^#http/);  




1488




 





 





 





 





 





 



 				 




1489




 





 





 





 





 





 



 				# Keep only those items that have a 'http' in the beginning  




1490




 





 





 





 





 





 



 				  




1491



  
0
  



  
  0
  



  
  0
  




 





 





 



 				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )  




1492




 





 





 





 





 





 



 				{ 




1493



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^\s+http/ or $div =~ /^\s+http/);					 




1494




 





 





 





 





 





 



 					#$div =~ s!^\s+http!!g; 




1495




 





 





 





 





 





 



 					#$h1 =~ s!^\s+http!!g; 




1496




 





 





 





 





 





 



 				} 




1497




 





 





 





 





 





 



 				else 




1498




 





 





 





 





 





 



 				{ 




1499



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^http/ or $div =~ /^http/); 




1500




 





 





 





 





 





 



 					#$div =~ s!^http!!g; 




1501




 





 





 





 





 





 



 					#$h1 =~ s!^http!!g; 




1502




 





 





 





 





 





 



 				} 




1503



  
0
  




 





 





 





 





 



 				$out .= qq{\t$h1\n}; 




1504




 





 





 





 





 





 



 			} 




1505




 





 





 





 





 





 



 			elsif ($output_format eq 'tabs')  




1506




 





 





 





 





 





 



 			{ 




1507




 





 





 





 





 





 



 				# Keep only those items that have a == in the beginning   




1508




 





 





 





 





 





 



 				 




1509



  
0
  



  
  0
  



  
  0
  




 





 





 



 				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )  




1510




 





 





 





 





 





 



 				{ 




1511



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^\s+==/ or $div =~ /^\s+==/); 




1512



  
0
  




 





 





 





 





 



 					$div =~ s!^\s+==!!g; 




1513



  
0
  




 





 





 





 





 



 					$h1 =~ s!^\s+==!!g; 




1514




 





 





 





 





 





 



 				} 




1515




 





 





 





 





 





 



 				else 




1516




 





 





 





 





 





 



 				{ 




1517



  
0
  



  
  0
  



  
  0
  




 





 





 



 					next unless ($h1 =~ /^==/ or $div =~ /^==/); 




1518



  
0
  




 





 





 





 





 



 					$div =~ s!^==!!g; 




1519



  
0
  




 





 





 





 





 



 					$h1 =~ s!^==!!g; 




1520




 





 





 





 





 





 



 				} 




1521




 





 





 





 





 





 



 				 




1522




 





 





 





 





 





 



 				# Mismatching fragment identifier. See 1797. 




1523




 





 





 





 





 





 



 				# $div not available here as  is not open here. 




1524



  
0
  




 





 





 





 





 



 				$out .= qq{\t$div\n};  




1525




 





 





 





 





 





 



 				 




1526




 





 





 





 





 





 



 			} 




1527




 





 





 





 





 





 



 			elsif ($output_format eq 'dialog') 




1528




 





 





 





 





 





 



 			{ 




1529




 





 





 





 





 





 



 				# includes everything; So, no filtering. 




1530




 





 





 





 





 





 



 				 




1531




 





 





 





 





 





 



 				# But, just remove symbols in both $h1 and $div 




1532



  
0
  




 





 





 





 





 



 				$div =~ s!^(==|\#|--)!!g; 




1533



  
0
  




 





 





 





 





 



 				$h1 =~ s!^(==|\#|--)!!g; 




1534




 





 





 





 





 





 



 					 




1535



  
0
  




 





 





 





 





 



 				$out .= qq{\t\t$h1\n\t\t$div \n};  




1536




 





 





 





 





 





 



 			} 




1537




 





 





 





 





 





 



 			else  




1538




 





 





 





 





 





 



 			{ 




1539



  
0
  




 





 





 





 





 



 				$out .= qq{$h1 $div}; 	# or $line 




1540




 





 





 





 





 





 



 			} 




1541




 





 





 





 





 





 



 		}  




1542




 





 





 





 





 





 



 		 




1543




 





 





 





 





 





 



 		# add an extra item at the end of file output  




1544




 





 





 





 





 





 



 		 




1545




 





 





 





 





 





 



 		# Step 3  




1546




 





 





 





 





 





 



 		# set the output ending as per format   




1547



  
0
  



  
  0
  




 





 





 





 



 		if ($output_format eq 'table')  




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




 




 




  
  0
  




 





 





 





 



   




1548




 





 





 





 





 





 



 		{  




1549



  
0
  




 





 





 





 





 



 			$out .= qq{\n\n\n};




			};
		}
		elsif ($output_format eq 'accordion')
		{
			$out .= qq{$output_header\n\n};
		}
		elsif ($output_format eq 'menu')
		{
			$out .= qq{\n$output_header\n};
		}
		elsif ($output_format eq 'tabs')
		{
			# special case for tabs since the data needs to be formatted a little differently

			$out .= qq{$output_header\n\n\n};

			my $sl = '0';

				while ( my $line = )
				{
					$sl++ if $line;

					my ($h1, $div) = ('');

					if ($line =~ /\|/)
					{
						($h1, $div) = split(/\|/, $line, 2);
					} 			# no (\|) # i.e., do not enclose with brackets
					elsif ($line =~ /\t+/) {
						($h1, $div) = split(/\t+/, $line, 2);
					}
					elsif ($line =~ /\s+/)
					{
						($h1, $div) = split(/\s+/, $line, 2);
					}

					# Keep only those items that have '==' in the beginning

					if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )
					{
						next unless ($h1 =~ /^\s+==/ or $div =~ /^\s+==/);
						$div =~ s!^\s+==!!g;
						$h1 =~ s!^\s+==!!g;
					}
					else
					{
						next unless ($h1 =~ /^==/ or $div =~ /^==/);
						$div =~ s!^==!!g;
						$h1 =~ s!^==!!g;
					}

					$out .= qq{\t$h1\n};

					$div4tabs .= qq{$div};
				}
			$out .= qq{\n};

			$out .= $div4tabs;

			close FILE;
		}
		elsif ($output_format eq 'dialog')
		{
			$out .= qq{Dialog: $output_header
\n};
		}
		else
		{
			$out .= qq{\n$output_header\n};
		}
		# End Step 1

		# now work on file

		my $serial = '0';

		while ( my $line =  )
		{
			chomp $line;

			$serial++ if $line;

			my ($h1, $div) = ('');

			if ($line) 				# make sure no output if line is empty
			{
				$line =~ s! RN !\r\n!g;

				# split the file's lines into usable data according to separator used.
				if ($line =~ /\|/)
				{
					($h1, $div) = split(/\|/, $line, 2);
				} 			# no (\|) # i.e., no enclosing with brackets.  was the culprit
				elsif ($line =~ /\t+/) {
					($h1, $div) = split(/\t+/, $line, 2);
				}
				elsif ($line =~ /\s+/)
				{
					($h1, $div) = split(/\s+/, $line, 2);
				}
				# end split the file's line according to match: 3 options: |, \t+, or \s+

			}

			# Step 2
			#Now set the content as per output format
			if ($output_format eq 'table')
			{
				# Keep only those items that have a # in the beginning

				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )
				{
					next unless ($h1 =~ /^\s+#/ or $div =~ /^\s+#/);
					$div =~ s!^\s+#!!g;
					$h1 =~ s!^\s+#!!g;
				}
				else
				{
					next unless ($h1 =~ /^#/ or $div =~ /^#/);
					$div =~ s!^#!!g;
					$h1 =~ s!^#!!g;
				}
				$out .= qq{\t
			}
			elsif ($output_format eq 'accordion')
			{
				# Keep only those items that have -- in the beginning

				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )
				{
					next unless ($h1 =~ /^\s+--/ or $div =~ /^\s+--/);
					$div =~ s!^\s+--!!g;
					$h1 =~ s!^\s+--!!g;
				}
				else
				{
					next unless ($h1 =~ /^--/ or $div =~ /^--/);
					$div =~ s!^--!!g;
					$h1 =~ s!^--!!g;
				}

				$out .= qq{\t$h1\n\t$div\n} if $line;
			}
			elsif ($output_format eq 'menu')
			{
				# the first item will be used as link title and name
				# the second item will be used as the actual link
				# no extensions added automatically by the script
				# an id for each link/li is also provided in case, may be it is not needed

				# Remove items with a # in the beginning; Sat Feb 21 18:48:19 2015
				next if ($h1 =~ /^#http/ or $div =~ /^#http/);

				# Keep only those items that have a 'http' in the beginning

				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )
				{
					next unless ($h1 =~ /^\s+http/ or $div =~ /^\s+http/);
					#$div =~ s!^\s+http!!g;
					#$h1 =~ s!^\s+http!!g;
				}
				else
				{
					next unless ($h1 =~ /^http/ or $div =~ /^http/);
					#$div =~ s!^http!!g;
					#$h1 =~ s!^http!!g;
				}
				$out .= qq{\t$h1\n};
			}
			elsif ($output_format eq 'tabs')
			{
				# Keep only those items that have a == in the beginning

				if ( $h1 =~ /^\s+/ or $div =~ /^\s+/ )
				{
					next unless ($h1 =~ /^\s+==/ or $div =~ /^\s+==/);
					$div =~ s!^\s+==!!g;
					$h1 =~ s!^\s+==!!g;
				}
				else
				{
					next unless ($h1 =~ /^==/ or $div =~ /^==/);
					$div =~ s!^==!!g;
					$h1 =~ s!^==!!g;
				}

				# Mismatching fragment identifier. See 1797.
				# $div not available here as  is not open here.
				$out .= qq{\t$div\n};

			}
			elsif ($output_format eq 'dialog')
			{
				# includes everything; So, no filtering.

				# But, just remove symbols in both $h1 and $div
				$div =~ s!^(==|\#|--)!!g;
				$h1 =~ s!^(==|\#|--)!!g;

				$out .= qq{\t\t$h1\n\t\t$div \n};
			}
			else
			{
				$out .= qq{$h1 $div}; 	# or $line
			}
		}

		# add an extra item at the end of file output

		# Step 3
		# set the output ending as per format
		if ($output_format eq 'table')
		{
			$out .= qq{\n
		}
		elsif ($output_format eq 'accordion')
		{
			$out .= qq{\n\n\n};
		}
		elsif ($output_format eq 'menu')
		{
			$out .= qq{};
		}
		elsif ($output_format eq 'tabs')
		{
			$out .= qq{\n};
		}
		elsif ($output_format eq 'dialog')
		{
			$out .= qq{\n};
		}
		else
		{
			$out .= qq{\n\n};
		}

		# end file output wrapper
		$out .= qq{\n};

		return $out;
	}
	else
	{
		my $out;



		$out .= qq{\n\n\n};
		while ( my $line =  )
		{
			chomp $line;

			my ($h1, $div) = ('');

			($h1, $div) = split(/\t+/, $line, 2) if $line;

			$out .= qq{\t$h1\n\t$div\n} if $line;
		}
		$out .= qq{\tPowered by\n\tPerl/CPAN\n};

		$out .= qq{\n\n};

		return $out;
	}

	close FILE;

}
# end open_file




sub edit_file
{
	my $self = shift;

	my $out;

	my %in;

	%in = (
		file => "",
		error => "",
		action => "TemplateAdmin.cgi",
		serial => '',
		output_type => '',
		@_,
	);

	if (-e -f "$in{file}")
	{
		open(FILE, "$in{file}") or $in{error} = "unable to open $in{file}";
		my @file = ;
		close FILE;

		$out .= qq{




		};

		for (@file)
		{
			chomp;

			next if $_ =~ /^$/;

			$in{serial}++ if $_;

			my ( $type, $content ) = split(/\|/, $_, 2);

			$type =~ s!\s+$!!g;

			my $identifiers = substr "$content", 0, 4;	# has to be 4 to cover 'http.'  Also, assuming no spaces in the beginning (removed by write_file)

			# determine output type
			if ( $identifiers =~ /^\#/ ) { $in{output_type} = 'Table'; }
			elsif ( $identifiers =~ /^\-/ ) { $in{output_type} = 'Accordion'; }
			elsif ( $identifiers =~ /^\=/ ) { $in{output_type} = 'Tabs'; }
			elsif ( $identifiers =~ /^http/ ) { $in{output_type} = 'Menu'; }
			else { $in{output_type} = 'None'; }

			# remove all nonmeta characters for web page display
			$identifiers =~ s!(\s+|[a-zA-z0-9])!!g;	# removes http also.

			$content =~ s!\
			$content =~ s!\>!>\;!g;

			$content =~ s! RN !\r\n!g; #

			$out .= qq`
				$in{serial}
				$type
				$identifiers
				Type:$in{output_type}


				$type , $content


			`;
		}

		$out .= qq{};


		return $out;

	}
}



sub write_file
{
	my $self = shift;

	my $out;

	my %in;
	%in =
	(
		file => "",
		error => "",
		powershell => "C:/WINDOWS/system32/WindowsPowerShell/v1.0/powershell.exe ",
		@_,
	);

	my %vars;

	use CGI;
	my $q = new CGI;
	%vars = $q->Vars();

	my $action = $q->param('action');

	if ( $action eq 'write')
	{

		if (-e -f "$in{file}")
		{

			# First, get file content to backup to another file
			open(F, "$in{file}") or $in{error} .= "#1565 Unable to open file for reading. '$!' ";
			my @f = ;

			# save original file content to backup file
			open(BAK, ">$in{file},bak.txt") or $in{error} .= "#1570 Unable to create backup file '$in{file},bak.txt' '$!' ";
			for (@f)
			{
				print BAK qq{$_};
			}
			close BAK;

			close F;

			# recreate file, thereby deleting original content
			open(DEL, ">$in{file}") or $in{error} .= "#1579 Unable to recreate file '$in{file}' '$!' ";
			print DEL "File ReCreated";
			close DEL;

			my %out;
			for (keys %vars)
			{
				chomp $_;
				chomp $vars{$_};

				next if $_ eq 'action';
				my ( $name, $value ) = split(/\,/, $vars{"$_"}, 2);

				$name =~ s!(\r\n+|\n+)! RN !g;
				$value =~ s!(\r\n+|\n+)! RN !g;

				$value =~ s!^\s+!!g;

				$out{"$name"} = "$value";
			}

			# Insert/Add new content
			open(FILE, ">$in{file}") or $in{error} .= "#1582 Error writing to file '$in{file}' '$!' ";
			for (keys %out)
			{
				print FILE qq{$_\|$out{$_}\n};
			}
			close FILE;


			if (-e -f "$in{file},bak.txt" and -e -f "$in{file}")
			{
				return "Saved $in{error}";
			}
			else
			{
				return "#1605 Error saving file '$in{file}' $in{error}";
			}
		}
		else
		{
			return "File not found";
		}
	}
	elsif ( $action eq 'newItem' )
	{
		return "$action";
	}
	else
	{
		return '* ' x 10;
	}

}

# end write_file




sub display_gallery_thumbnails
{
	my $self = shift;

	my $out;

	my %in;

	%in = (

		error => "",

		images_dir => "/images/a1z-html5-template/",
		thumbs_dir => "/images/a1z-html5-template/thumbs",

		images_url => "/images/a1z-html5-template",
		thumbs_url => "/thumbs/a1z-html5-template/thumbs",

		width => "100",
		height => "100",

		@_,
	);

	if (-e -d "$in{images_dir}" and "$in{thumbs_dir}" )
	{
		opendir(TH, "$in{thumbs_dir}") or $in{error} .= qq{$!};
		my @thumbs = readdir(TH);
		close TH;

		foreach ( @thumbs )
		{
			if ( $_ and $_ =~ /(.jpg|.gif|.jpeg|.png|.tiff)$/ )
			{
				$out .= qq{\n   \n};
			}
		}
	}
	else
	{
		$in{error} .= qq{Image directory does not exist or is inaccessible. Make sure you provided the correct path.};

		$out = $in{error};
	}

	return $out;
}
# end display gallery thumbnails









1;

__END__