view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/Apache/SdnFw/tt/map_import.tt
lib/Apache/SdnFw/tt/menu.tt
lib/Apache/SdnFw/tt/noaccess.tt
lib/Apache/SdnFw/tt/noaccess.tt.xml
lib/Apache/SdnFw/tt/note.tt
lib/Apache/SdnFw/tt/notify.tt
lib/Apache/SdnFw/tt/objectlink.tt
lib/Apache/SdnFw/tt/permission.tt
lib/Apache/SdnFw/tt/search.tt
lib/Apache/SdnFw/tt/system.tt
lib/Apache/SdnFw/tt/uploadfile.tt
Makefile.PL
MANIFEST			This list of files
README
t/Apache-SdnFw.t
META.yml                                 Module meta-data (added by MakeMaker)

lib/Apache/SdnFw/lib/Core.pm  view on Meta::CPAN

	$key = "$s->{acfb}::$key" if ($s->{acfb});

	my $str = qq(<input type="password" name="$key" value="$value" autocomplete="off");
	$str .= qq( size="$size") if ($size);
	$str .= '>';

	return $str;
}

sub html_upload {

=head2 html_upload

 my $html = $s->html_upload($key,[$size],[$class],[$id]);

=cut

	my $s = shift;
	my $key = $s->escape(shift);
	my $size = shift;
	my $class = shift;
	my $id = shift;

	$key = "$s->{acfb}::$key" if ($s->{acfb});

lib/Apache/SdnFw/tt/uploadfile.tt  view on Meta::CPAN

<form method="POST" action="[% s.uof %]" enctype="multipart/form-data">
<div class="floatleft">
<table>
	<caption>Upload File</caption>
	<tbody>
		<tr>
			<th>File to Import</th>
			<td>[% s.html_upload('file',50) %]</td>
		</tr>
	</tbody>
</table>
[% s.html_submit('Upload File') %]
</div>
</form>