/usr/share/perl5/HTML/Widgets/homepage.pl is in libhtml-widgets-selectlayers-perl 0.07-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | #!/usr/bin/perl -w
use strict;
use Tie::IxHash;
use HTML::Widgets::SelectLayers;
tie my %o, 'Tie::IxHash',
'download' => 'Download',
'installation' => 'Installation',
'compatibility' => 'Compatibility',
'documentation' => 'Documentation',
'cvs' => 'Anonymous CVS access',
;
my %html = (
'download' => '<A HREF="HTML-Widgets-SelectLayers-0.05.tar.gz">Download HTML-Widgets-SelectLayers-0.05.tar.gz</a>',
'installation' => '<PRE>
perl Makefile.PL
make
make test
make install
</PRE>',
'cvs' => '<PRE>
Anonymous CVS access is available:
$ export CVSROOT=":pserver:anonymous@pouncequick.420.am:/home/cvs/cvsroot"
$ cvs login
(Logging in to anonymous@pouncequick.420.am
CVS password: anonymous
$ cvs checkout DBIx-DBSchema
as well as <A HREF="http://www.420.am/cgi-bin/cvsweb/HTML-Widgets-SelectLayers">browsable via cvsweb</A>.
</PRE>',
'documentation' => join('',<DATA>),
'compatibility' => '<PRE>
This HTML generated by this module uses JavaScript, but nevertheless attempts
to be as cross-browser as possible. The 0.05 release drops Navigator 4
compatibility and has been tested under Mozilla Firefox 1.0.6, MSIE 6.0,
Konqueror 3.3.2, and Opera 8.0.2.
</PRE>',
);
close DATA;
my $w = new HTML::Widgets::SelectLayers(
'options' => \%o,
'selected_layer' => 'download',
'layer_callback' => sub {
my $layer = shift;
"<BR>". $html{$layer};
},
#'form_action' => '',
#'form_text' => [],
#'form_checkbox' => [],
);
print <<END, $w->html, "</BODY></HTML>\n";
<HTML>
<HEAD>
<TITLE>HTML::Widgets::SelectLayers - selectable HTML layers</TITLE>
</HEAD>
<BODY>
<PRE>
HTML::Widgets::SelectLayers
Copyright (c) 2002-2005 Ivan Kohler
All rights reserved.
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
This module implements an HTML widget with multiple layers. Only one layer
is visible at any given time, controlled by a <SELECT> box. For an example
see below.
</PRE>
<FORM NAME="dummy">
END
__DATA__
<HR>
<P>
<H1><A NAME="name">NAME</A></H1>
<P>HTML::Widgets::SelectLayers - Perl extension for selectable HTML layers</P>
<P>
<HR>
<H1><A NAME="synopsis">SYNOPSIS</A></H1>
<PRE>
use HTML::Widgets::SelectLayers;</PRE>
<PRE>
use Tie::IxHash;
tie my %options, 'Tie::IxHash',
'value' => 'Select One',
'value2' => 'Select Two',
;</PRE>
<PRE>
$widget = new HTML::Widgets::SelectLayers(
'options' => \%options,
'form_name' => 'dummy',
'form_actoin' => 'process.cgi',
'form_text' => [ qw( textfield1 textfield2 ) ],
'form_checkbox' => [ qw( checkbox1 ) ],
'layer_callback' => sub {
my $layer = shift;
my $html = qq!<INPUT TYPE="hidden" NAME="layer" VALUE="$layer">!;
$html .= $other_stuff;
$html;
},
);</PRE>
<PRE>
print '<FORM NAME=dummy>'.
'<INPUT TYPE="text" NAME="textfield1">'.
'<INPUT TYPE="text" NAME="textfield2">'.
'<INPUT TYPE="checkbox" NAME="checkbox1" VALUE="Y">'.
$widget->html;</PRE>
<P>
<HR>
<H1><A NAME="description">DESCRIPTION</A></H1>
<P>This module implements an HTML widget with multiple layers. Only one layer
is visible at any given time, controlled by a <SELECT> box. For an
example see <A HREF="http://www.420.am/selectlayers/">http://www.420.am/selectlayers/</A></P>
<P>This HTML generated by this module uses JavaScript, but nevertheless attempts
to be as cross-browser as possible. The 0.05 release drops Navigator 4
compatibility and has been tested under Mozilla Firefox 1.0.6, MSIE 6.0,
Konqueror 3.3.2, and Opera 8.0.2.</P>
<P>
<HR>
<H1><A NAME="forms">FORMS</A></H1>
<P>Not all browsers seem happy with forms that span layers. The generated HTML
will have a </FORM> tag before the layers and will generate
<FORM> and </FORM> tags for each layer. To facilitate
<SUBMIT> buttons located within the layers, you can pass a form name
and element names, and the relevant values will be copied to the layer's form.
See the <STRONG>form_</STRONG> options below.</P>
<P>
<HR>
<H1><A NAME="methods">METHODS</A></H1>
<DL>
<DT><STRONG><A NAME="item_new_KEY%2C_VALUE%2C_KEY%2C_VALUE%2E%2E%2E">new KEY, VALUE, KEY, VALUE...</A></STRONG><BR>
<DD>
Options are passed as name/value pairs:
<P>options - Hash reference of layers and labels for the <SELECT>. See
<A HREF="http://search.cpan.org/doc/GSAR/Tie-IxHash-1.21/lib/Tie/IxHash.pm">the Tie::IxHash manpage</A> to control ordering.
In HTML: <OPTION VALUE=``$layer''>$label</OPTION></P>
<P>layer_callback - subroutine reference to create each layer. The layer name
is passed as an option in <EM>@_</EM></P>
<P>selected_layer - (optional) initially selected layer</P>
<P>form_name - (optional) Form name to copy values from. If not supplied, no
values will be copied.</P>
<P>form_action - Form action</P>
<P>form_text - (optional) Array reference of text (or hidden) form fields to copy
from the <STRONG>form_name</STRONG> form.</P>
<P>form_checkbox - (optional) Array reference of checkbox form fields to copy from
the <STRONG>form_name</STRONG> form.</P>
<P>fixup_callback - (optional) subroutine reference, returns supplimentary
JavaScript for the function described above under FORMS.</P>
<P>#form_select</P>
<P>size - (optional) size of the <SELECT>, default 1.</P>
<P>unique_key - (optional) prepended to all JavaScript function/variable/object
names to avoid namespace collisions.</P>
<P>html_beween - (optional) HTML between the <SELECT> and the layers.</P>
<P></P>
<DT><STRONG><A NAME="item_html">html</A></STRONG><BR>
<DD>
Returns HTML for the widget.
<P></P></DL>
<P>
<HR>
<H1><A NAME="author">AUTHOR</A></H1>
<P>Ivan Kohler <<A HREF="mailto:ivan-selectlayers@420.am">ivan-selectlayers@420.am</A>></P>
<P>
<HR>
<H1><A NAME="copyright">COPYRIGHT</A></H1>
<P>Copyright (c) 2002 Ivan Kohler
All rights reserved.
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.</P>
<P>
<HR>
<H1><A NAME="bugs">BUGS</A></H1>
<P>JavaScript</P>
<P>
<HR>
<H1><A NAME="see also">SEE ALSO</A></H1>
<P><EM>perl</EM>. <A HREF="http://search.cpan.org/doc/GSAR/Tie-IxHash-1.21/lib/Tie/IxHash.pm">the Tie::IxHash manpage</A>, <A HREF="http://www.xs4all.nl/~ppk/js/dom.html">http://www.xs4all.nl/~ppk/js/dom.html</A>,
<A HREF="http://javascript.about.com/library/scripts/blsafeonload.htm">http://javascript.about.com/library/scripts/blsafeonload.htm</A></P>
|