File Coverage

lib/CGI/Minimal/Misc.pm

Criterion	Covered	Total	%
statement	70	70	100.0
branch	13	14	92.8
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	89	90	98.8

package CGI::Minimal;

use strict;

####

sub _internal_calling_parms_table {
	my $self = shift;
	my $pkg = __PACKAGE__;
	my $vars = $self->{$pkg};

	my $outs = <<"EOF";
\n  \n  \n\n";  




14




 





 





 





 





 





 



  Form Fields  




15




 





 





 





 





 





 



  Field Value mime Type File Name  




16




 





 





 





 





 





 



 EOF 




17




3





 





 





 





 





5



 	foreach my $fname (sort @{$vars->{'field_names'}}) { 




 




3





 





 





 





 





15



   




18




6





 





 





 





 





13



 		my $f_data = $vars->{'field'}->{$fname}; 




19




6





 





 





 





 





9



 		my $sub_field_counter = $#{$f_data->{'value'}}; 




 




6





 





 





 





 





11



   




20




6





 





 





 





 





18



 		for (my $fn=0;$fn <= $sub_field_counter;$fn++) { 




21




7





 





 





 





 





12



 			my $fmime  = $f_data->{'mime_type'}->[$fn]; 




22




7





 





 





 





 





10



 			my $ffile  = $f_data->{'filename'}->[$fn]; 




23




7





 





 





 





 





10



 			my $fvalue = '[non-text value]'; 




24




7




  
100
  




 





 





 





26



 			if ($fmime =~ m#^text/#oi) { 




25




6





 





 





 





 





21



 				$fvalue = $self->htmlize($f_data->{'value'}->[$fn]); 




26




 





 





 





 





 





 



 			} 




27




7





 





 





 





 





43



 		$outs .= <<"EOF"; 




28




 





 





 





 





 





 



 	 




29




 





 





 





 





 





 



 	 $fname (#$fn) 




30




 





 





 





 





 





 



 	  $fvalue  




31




 





 





 





 





 





 



 	 $fmime 




32




 





 





 





 





 





 



 	 $ffile 




33




 





 





 





 





 





 



 	 




34




 





 





 





 





 





 



 EOF 




35




 





 





 





 





 





 



 		} 




36




 





 





 





 





 





 



 	} 




37




3





 





 





 





 





9



 	$outs .= <<"EOF"; 




38




 





 





 





 





 





 



  




39




 





 





 





 





 





 



   Environment Variables 




40




 





 





 





 





 





 



  




41




 





 





 





 





 





 



   




42




 





 





 





 





 





 



  




43




 





 





 





 





 





 



   Variable 




44




 





 





 





 





 





 



   Value 




45




 





 





 





 





 





 



  




46




 





 





 





 





 





 



 EOF 




47




 





 





 





 





 





 



   




48




3





 





 





 





 





41



 	foreach my $fname (sort keys (%ENV)) { 




49




63





 





 





 





 





195



 		$outs .= "$fname" . 




50




 





 





 





 





 





 



 			$self->htmlize($ENV{$fname}) . "




51




 





 





 





 





 





 



 	} 




52




 





 





 





 





 





 



   




53




3





 





 





 





 





9



 	$outs .= "\n";


EOF
	foreach my $fname (sort @{$vars->{'field_names'}}) {
		my $f_data = $vars->{'field'}->{$fname};
		my $sub_field_counter = $#{$f_data->{'value'}};
		for (my $fn=0;$fn <= $sub_field_counter;$fn++) {
			my $fmime  = $f_data->{'mime_type'}->[$fn];
			my $ffile  = $f_data->{'filename'}->[$fn];
			my $fvalue = '[non-text value]';
			if ($fmime =~ m#^text/#oi) {
				$fvalue = $self->htmlize($f_data->{'value'}->[$fn]);
			}
		$outs .= <<"EOF";






EOF
		}
	}
	$outs .= <<"EOF";








EOF

	foreach my $fname (sort keys (%ENV)) {
		$outs .= "
			$self->htmlize($ENV{$fname}) . "
	}

	$outs .= "

	return $outs;
}

####

sub _internal_date_rfc1123 {
	my $self = shift;
	my ($tick) = @_;
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime($tick);
	my $wkday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];
	my $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon];
	$year += 1900;
	my $date = sprintf('%s, %02d %s %s %02d:%02d:%02d GMT',$wkday,$mday,$month,$year,$hour,$min,$sec);
	return $date;
}

####

sub _internal_url_decode {
	my $self = shift;
	my ($s) = @_;
	return '' if (! defined($s));
	$s =~ s/\+/ /gs;
	$s =~ s/%(?:([0-9a-fA-F]{2})|u([0-9a-fA-F]{4}))/
		defined($1)? chr hex($1) : _utf8_chr(hex($2))/ge;
	return $s;
}

####

sub _internal_dehtmlize {
	my $self = shift;

	my($s)=@_;;

	return ('') if (! defined($s));

	$s=~s/\>/>/gs;
	$s=~s/\</
	$s=~s/\"/\"/gs;
	$s=~s/\&/\&/gs;

	return $s;
}

sub _internal_set {
	my $pkg = __PACKAGE__;
	my $vars = shift->{$pkg};

	my ($parms) =  @_;
	foreach my $name (keys %$parms) {
		my $value = $parms->{$name};
		my $data  = [];
		my $data_type = ref $value;
		if (! $data_type) {
			$data = [ $value ];

		} elsif ($data_type eq 'ARRAY') {
			@$data = @$value; # Shallow copy

		} else {
			require Carp;
			Carp::croak ("${pkg}::_internal_set() - Parameter '$name' has illegal data type of '$data_type'");
		}

		if (! defined ($vars->{'field'}->{$name}->{'count'})) {
			push (@{$vars->{'field_names'}},$name);
		}
		my $record = {};
		$vars->{'field'}->{$name} = $record;
		$record->{'count'} = @$data;
		$record->{'value'} = $data;
		my $data_entries = @$data;
		for (my $f_count=0;$f_count < $data_entries;$f_count++) {
			$record->{'filename'}->[$f_count]  = '';
			$record->{'mime_type'}->[$f_count] = 'text/plain';
		}
	}
}

1;