Result:
found more than 557 distributions - search limited to the first 2001 files matching your query
( run in 2.673 )
Bio-BioStudio
view release on metacpan or search on metacpan
gbrowse_plugins/BS_ChromosomeAnalyzer.pm view on Meta::CPAN
push @choices, TR(
{-class => 'searchbody'},
th('Enzyme set'),
td(
popup_menu(
-name => $self->config_name('RESET'),
-values => \@enzlists,
-default => 'standard_and_IIB'
)
)
Bio-DB-BioFetch
view release on metacpan or search on metacpan
'Random' Medline entry examples are: 20063307, 98276153.
PDB entry examples are: 100D, 1FOS. Try NM_006732 for RefSeq.
Only one copy of the latest version of the entry is returned."),
$q->hr,
$q->startform,
$q->popup_menu(-name => 'db',
-values => ['EMBL',
'SWALL',
'PDB',
'Medline',
'Ensembl',
'RefSeq'
]),
$q->textfield(-name => 'id',
-size => 40,
-maxlength => 1000),
$q->popup_menu(-name => 'format',
-values => ['default','Fasta','bsml','agave']),
$q->popup_menu(-name => 'style',
-values => ['html','raw']),
$q->submit('Retrieve'),
$q->endform,
$q->hr,
$q->h2('Direct access'),
Bio-Graphics
view release on metacpan or search on metacpan
lib/Bio/Graphics/Panel.pm view on Meta::CPAN
-link A string pattern or coderef that will be used to
generate the outgoing hypertext links for the imagemap.
-title A string pattern or coderef that will be used to
generate the "title" tags of each element in the imagemap
(these appear as popup hint boxes in certain browsers).
-target A string pattern or coderef that will be used to
generate the window target for each element. This can
be used to pop up a new window when the user clicks on
an element.
lib/Bio/Graphics/Panel.pm view on Meta::CPAN
/tmpimages/e7457643f12d413f20843d4030c197c6.png, and its physical path
will be /var/www/html/tmpimages/e7457643f12d413f20843d4030c197c6.png
In addition to providing directory information, you must also tell
image_and_map() how to create outgoing links for each graphical
feature, and, optionally, how to create the "hover title" (the popup
yellow box displayed by most modern browsers), and the name of the
window or frame to link to when the user clicks on it.
There are three ways to specify the link destination:
lib/Bio/Graphics/Panel.pm view on Meta::CPAN
in either location, then image_and_map() will use the value of -link
passed in its argument list, if any.
The -title and -target options behave in a similar manner to -link.
-title is used to assign each feature "title" and "alt" attributes.
The "title" attribute is used by many browsers to create a popup hints
box when the mouse hovers over the feature's glyph for a preset length
of time, while the "alt" attribute is used to create navigable menu
items for the visually impaired. As with -link, you can set the title
by passing either a substitution pattern or a code ref, and the -title
option can be set in the track, the panel, or the method call itself
lib/Bio/Graphics/Panel.pm view on Meta::CPAN
The -target option can be used to specify the window or frame that
clicked features will link to. By default, when the user clicks on a
feature, the loaded URL will replace the current page. You can modify
this by providing -target with the name of a preexisting or new window
name in order to create effects like popup windows, multiple frames,
popunders and the like. The value of -target follows the same rules
as -title and -link, including variable substitution and the use of
code refs.
NOTE: Each time you call image_and_map() it will generate a new image
Bio-MCPrimers
view release on metacpan or search on metacpan
mcprimers_gui.pl view on Meta::CPAN
$text_message->configure(-text=>"Select vector file");
$vector_loaded = 0;
my $status;
# popup get file name
my $old_name = $vector_name;
$vector_name = $filedialog->Show;
if (defined $vector_name and $vector_name ne '') {
# details of the plasmid used as a vector
mcprimers_gui.pl view on Meta::CPAN
my $line;
my $seq_fh;
@seq = ();
&clear_text();
# popup get file name
my $old_name = $seq_name;
$seq_name = $filedialog->Show;
if (defined $seq_name and $seq_name ne '') {
# read sequence file
Bio-ViennaNGS
view release on metacpan or search on metacpan
scripts/Tutorial_pipeline03.pl view on Meta::CPAN
print "1. Point your browser to: http://genome.ucsc.edu/index.html\n\n";
print "2. Select Genome Browser from the left menu\n\n";
print "3. You are now redirected to nearest mirror of the genome browser.\n Select \"My Data\" from the top menu and then \"Track Hubs\" in the popup list.\n\n";
print "4. The \"Track Data Hubs\" page is displayed. In the register \"My Hubs\" it is possible to add the newly created track hub. Paste the URL to hub.txt into the URL field and click \"Add Hub\" (e.g. http://nibiru.tbi.univie.ac.at/ViennaNGS/tut...
print "5. The track hub now loads into the hg19 public hub. \n\n";
scripts/Tutorial_pipeline03.pl view on Meta::CPAN
print "1. Point your browser to: http://genome.ucsc.edu/index.html\n\n";
print "2. Select Genome Browser from the left menu\n\n";
print "3. You are now redirected to nearest mirror of the genome browser.\n Select \"My Data\" from the top menu and then \"Track Hubs\" in the popup list.\n\n";
print "4. The \"Track Data Hubs\" page is displayed. In the register \"My Hubs\" it is possible to add the newly created track hub. Paste the URL to hub.txt into the URL field and click \"Add Hub\" (e.g. http://nibiru.tbi.univie.ac.at/ViennaNGS/tutor...
print "5. The track hub now loads into the hg19 public hub. \n\n";
BioPerl
view release on metacpan or search on metacpan
examples/db/dbfetch view on Meta::CPAN
'Random' Medline entry examples are: 20063307, 98276153.
PDB entry examples are: 100D, 1FOS. Try NM_006732 for RefSeq.
Only one copy of the latest version of the entry is returned."),
$q->hr,
$q->startform,
$q->popup_menu(-name => 'db',
-values => ['EMBL',
'SWALL',
'PDB',
'Medline',
'Ensembl',
'RefSeq'
]),
$q->textfield(-name => 'id',
-size => 40,
-maxlength => 1000),
$q->popup_menu(-name => 'format',
-values => ['default','Fasta','bsml','agave']),
$q->popup_menu(-name => 'style',
-values => ['html','raw']),
$q->submit('Retrieve'),
$q->endform,
$q->hr,
$q->h2('Direct access'),
Blog-Simple-HTMLOnly
view release on metacpan or search on metacpan
"</td></tr><tr><td>Content:</small></td><td>",
"<textarea name='content' rows='15' cols='50' wrap='soft'>",
$CGI->param("content")?$CGI->param("content"):"",
"</textarea>",
"</td></tr><tr><td>",
"Author: </td><td>",$CGI->popup_menu(
-name=>'author',
-values=>[qw/Lee/],
-default=>'Lee'
),
"</td></tr><tr><td>",
BmltClient-ApiClient
view release on metacpan or search on metacpan
.idea/dbnavigator.xml view on Meta::CPAN
<visible value="true" />
<editable value="false" />
</tracking-columns>
</dataset-grid-settings>
<dataset-editor-settings>
<text-editor-popup>
<active value="false" />
<active-if-empty value="false" />
<data-length-threshold value="100" />
<popup-delay value="1000" />
</text-editor-popup>
<values-actions-popup>
<show-popup-button value="true" />
<element-count-threshold value="1000" />
<data-length-threshold value="250" />
</values-actions-popup>
<general>
<fetch-block-size value="100" />
<fetch-timeout value="30" />
<trim-whitespaces value="true" />
<convert-empty-strings-to-null value="true" />
Bundle-PBib
view release on metacpan or search on metacpan
lib/PBibTk/Main.pm view on Meta::CPAN
$cmd = [ $self, 'queryAuthor' ];
# $bf1->Button(-text => "Query Author", -command => $cmd )->pack(qw/-side left/);
$list = $bf1->BrowseEntry(-label => "Author",
-variable => \$queryAuthorItem,
-choices => \@queryAuthorHistory,
# -listcmd => sub { print "popup list"; },
-browsecmd => $cmd,
)->pack(qw/-side top/);
$list->bind('<Return>' => $cmd);
$self->{'queryAuthorList'} = $list;
lib/PBibTk/Main.pm view on Meta::CPAN
$cmd = [ $self, 'queryKeyword' ];
# $bf1->Button(-text => "Query Keyword", -command => $cmd )->pack(qw/-side left/);
$list = $bf1->BrowseEntry(-label => "Keyword",
-variable => \$queryKeywordItem,
-choices => \@queryKeywordHistory,
# -listcmd => sub { print "popup list"; },
-browsecmd => $cmd,
)->pack(qw/-side top/);
$list->bind('<Return>' => $cmd);
$self->{'queryKeywordList'} = $list;
Business-AuthorizeNet-CIM
view release on metacpan or search on metacpan
lib/Business/AuthorizeNet/CIM.pm view on Meta::CPAN
$cim->getCustomerShippingAddressRequest($customerProfileId, $customerAddressId);
=head3 getHostedProfilePageRequest
Get a token for use in a CIM hosted popup.
my $result = $cim->getHostedProfilePageRequest(
customerProfileID,
{
hostedProfileReturnUrl => 'http://example.com/foo',
Business-Billing-TMobile-UK
view release on metacpan or search on metacpan
t/test.html view on Meta::CPAN
</div>
</div>
</div></div><div class="tempTemplateBackground"><div id="layoutmainbody" style="width: 779px;"><div id="TemplatePageHeader"><img alt="Welcome to My T-Mobile It's all about" src="Dispatcher_files/welcomemytmobile.gif" align="absbottom" border="0" heig...
<td class="myphonerow"><img src="/images/my_tmobile/mtm_my_phone.gif" width="107" height="20"><BR>
</td>
</tr--><tr id="phoneManualRow"><td class="myphonerow"><a href="https://www.t-mobile.co.uk/Dispatcher?menuid=help_pm" id="phoneManualLink">Phone manual ></a></td></tr><tr><td> </td></tr></tbody></table></form></div><div class="leftColBox" id="...
<div class="footerNav">
<div class="footerRightCorner"> </div>
<div class="breakspacethin"> </div>
<ul>
<li class="footerFirstLink"><a href="https://www.t-mobile.co.uk/Dispatcher?menuid=ctl_change_state&name=searchResults&value=off&nextpageid=help_dc" title="Disabled Customers">Disabled Customers</a></li>
Business-Tax-VAT-Validation
view release on metacpan or search on metacpan
examples/vat.cgi view on Meta::CPAN
}
print hr, start_form,
"VAT Number", p,
popup_menu(-name=>'MS',
-values=>[$hvatn->member_states]),
textfield('VAT'),p,
submit,
end_form,
hr,
Business-UTV
view release on metacpan or search on metacpan
bin/utv_usage_tray.pl view on Meta::CPAN
my $main = Win32::GUI::Window->new( -name => 'Main', -text => 'UTV Usage',-width => 100, -height => 100);
my $icon = new Win32::GUI::Icon('GUIPERL.ICO');
my $ni = $main->AddNotifyIcon(-name => "NI", -id => 1,-icon => $icon, -tip => "retrieving data" );
my $popupMenu = Win32::GUI::Menu->new("Options" => "Options",
">Quit" => {-name => "Quit" , -onClick => sub { return -1; } } );
updateUsageText_Timer();
$main->AddTimer( "updateUsageText" , 60000 );
bin/utv_usage_tray.pl view on Meta::CPAN
sub NI_RightClick
{
my ($x, $y) = Win32::GUI::GetCursorPos;
Win32::GUI::TrackPopupMenu($main->{-handle}, $popupMenu->{Options}, $x, $y);
}
sub getUsageText
{
Business-eWAY-RapidAPI
view release on metacpan or search on metacpan
examples/web/Scripts/jquery-ui-1.8.11.custom.min.js view on Meta::CPAN
* Depends:
* jquery.ui.core.js
* jquery.ui.widget.js
* jquery.ui.position.js
*/
(function(d){var e=0;d.widget("ui.autocomplete",{options:{appendTo:"body",autoFocus:false,delay:300,minLength:1,position:{my:"left top",at:"left bottom",collision:"none"},source:null},pending:0,_create:function(){var a=this,b=this.element[0].ownerDoc...
false;var f=d.ui.keyCode;switch(c.keyCode){case f.PAGE_UP:a._move("previousPage",c);break;case f.PAGE_DOWN:a._move("nextPage",c);break;case f.UP:a._move("previous",c);c.preventDefault();break;case f.DOWN:a._move("next",c);c.preventDefault();break;cas...
a.element.val()){a.selectedItem=null;a.search(null,c)}},a.options.delay);break}}}).bind("keypress.autocomplete",function(c){if(g){g=false;c.preventDefault()}}).bind("focus.autocomplete",function(){if(!a.options.disabled){a.selectedItem=null;a.previou...
this.menu=d("<ul></ul>").addClass("ui-autocomplete").appendTo(d(this.options.appendTo||"body",b)[0]).mousedown(function(c){var f=a.menu.element[0];d(c.target).closest(".ui-menu-item").length||setTimeout(function(){d(document).one("mousedown",function...
a.element.val(f.value)},selected:function(c,f){var h=f.item.data("item.autocomplete"),i=a.previous;if(a.element[0]!==b.activeElement){a.element.focus();a.previous=i;setTimeout(function(){a.previous=i;a.selectedItem=h},1)}false!==a._trigger("select",c...
d.fn.bgiframe&&this.menu.element.bgiframe()},destroy:function(){this.element.removeClass("ui-autocomplete-input").removeAttr("autocomplete").removeAttr("role").removeAttr("aria-autocomplete").removeAttr("aria-haspopup");this.menu.element.remove();d.W...
b&&this.xhr&&this.xhr.abort()},_initSource:function(){var a=this,b,g;if(d.isArray(this.options.source)){b=this.options.source;this.source=function(c,f){f(d.ui.autocomplete.filter(b,c.term))}}else if(typeof this.options.source==="string"){g=this.optio...
this.options.source},search:function(a,b){a=a!=null?a:this.element.val();this.term=this.element.val();if(a.length<this.options.minLength)return this.close(b);clearTimeout(this.closing);if(this._trigger("search",b)!==false)return this._search(a)},_sea...
this.pending--;this.pending||this.element.removeClass("ui-autocomplete-loading")},close:function(a){clearTimeout(this.closing);if(this.menu.element.is(":visible")){this.menu.element.hide();this.menu.deactivate();this._trigger("close",a)}},_change:fun...
b.value,value:b.value||b.label},b)})},_suggest:function(a){var b=this.menu.element.empty().zIndex(this.element.zIndex()+1);this._renderMenu(b,a);this.menu.deactivate();this.menu.refresh();b.show();this._resizeMenu();b.position(d.extend({of:this.eleme...
d.each(b,function(c,f){g._renderItem(a,f)})},_renderItem:function(a,b){return d("<li></li>").data("item.autocomplete",b).append(d("<a></a>").text(b.label)).appendTo(a)},_move:function(a,b){if(this.menu.element.is(":visible"))if(this.menu.first()&&/^p...
BusyBird
view release on metacpan or search on metacpan
share/www/static/jquery.js view on Meta::CPAN
// Get a new xhr
var handle, i,
xhr = s.xhr();
// Open the socket
// Passing null username, generates a login popup on Opera (#2865)
if ( s.username ) {
xhr.open( s.type, s.url, s.async, s.username, s.password );
} else {
xhr.open( s.type, s.url, s.async );
}
CAD-Drawing-IO-Tk
view release on metacpan or search on metacpan
lib/CAD/Drawing/IO/Tk.pm view on Meta::CPAN
and enabling use of perlcad from within CAD::Drawing scripts. However,
the nature of lights-out scripting vs the nature of on-screen drafting
is quite different, so there will be some tricks involved. Once each
entity has its own class, the ability to install callbacks and the
resolution of notifications should get easier. But, there will still
be the issue that a debug popup does not know it will appear when the
entities are created, while a drafting viewport does (or does it?)
Possibly, adding a list of tk-id's to each $obj as it is drawn would be
a good starting point, but this gets us into trouble with multiple
viewports.
CAD-Drawing
view release on metacpan or search on metacpan
lib/CAD/Drawing/IO.pm view on Meta::CPAN
PostgreSQL connected drawing database.
=item L<CAD::Drawing::IO::Tk|CAD::Drawing::IO::Tk>
Tk::WorldCanvas popup viewer -- not exactly an input/output backend, but
it uses much of the same facility because it is primarily just output to
a display.
=back
CAM-PDF-Annot
view release on metacpan or search on metacpan
lib/CAM/PDF/Annot.pm view on Meta::CPAN
push @{$annots->{value}}, $annotRef;
# Append the appearance object (if it exists)
$self->_appendAppearanceObject( $otherDoc, $annotRef, $refKeys );
# Append the popup object (if it exists)
$self->_appendPopupObject( $page, $otherDoc, $annotRef, { $otherAnnotRef->{value} => $newkey }, $refKeys );
# Verify if it has an IRT reference (meaning, if it refers to another annotation)
my $annotVal = $self->getValue( $annotRef );
if ( exists $annotVal->{IRT} ) {
lib/CAM/PDF/Annot.pm view on Meta::CPAN
my ( $self, $page, $otherDoc, $annotRef, $parentKeys, $refKeys ) = @_;
my $annotVal = $self->getValue( $annotRef );
my $annots = $self->getPage( $page )->{Annots};
my %refs =();
# Now check if it has a reference to a popup object
# (it is bound to have it...)
# And also check if it wasnt already added
if ( exists $annotVal->{Popup} ) {
unless ( exists $refKeys->{$annotVal->{Popup}{value}} ) {
my $pupkey = $self->appendObject( $otherDoc, $annotVal->{Popup}{value}, 0 );
CGI-AppBuilder-Form
view release on metacpan or search on metacpan
} else {
$tmp_ar = eval $gi->{$k2};
}
if ($gi->{$k} =~ /^radio_group/i) {
$gi->{$k} = radio_group(@$tmp_ar);
} elsif ($gi->{$k} =~ /^popup_menu/i) {
$gi->{$k} = popup_menu(@$tmp_ar);
} else {
$gi->{$k} = td(@$tmp_ar);
}
} else {
my $txt = "";
CGI-Application-MailPage
view release on metacpan or search on metacpan
lib/CGI/Application/MailPage.pm view on Meta::CPAN
text_attachment => 'Plain Text as an Attachment',
url => 'Just A Link',
);
#create the default dropdown menu
$template->param(FORMAT_SELECTOR =>
$query->popup_menu(-name => 'format',
'-values' => [ sort(keys %formats) ],
-labels => \%formats,
-default => 'both_attachment',
)
);
CGI-Application-Plugin-Authentication
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/Authentication.pm view on Meta::CPAN
# It would seem to make more sense to do this at the /end/ of the routine
# but that causes an infinite loop.
$self->{initialized} = 1;
if (UNIVERSAL::can($self->_cgiapp, 'devpopup')) {
$self->_cgiapp->add_callback( 'devpopup_report', \&_devpopup_report );
}
my $config = $self->_config;
# See if the user is trying to log in
lib/CGI/Application/Plugin/Authentication.pm view on Meta::CPAN
$config = $__CONFIG{$class};
}
return $config;
}
sub _devpopup_report {
my $cgiapp = shift;
my @list;
my $self=$cgiapp->authen;
if ($self->username) {
push @list,['username',$self->username];
lib/CGI/Application/Plugin/Authentication.pm view on Meta::CPAN
my $text = join $/, map {
$r=1-$r;
qq(<tr class="@{[$r?'odd':'even']}"><td valign="top">$_->[0]</td><td>$_->[1]</td></tr>)
}
@list;
$cgiapp->devpopup->add_report(
title => 'Authentication',
summary => '',
report => qq(
<style type="text/css">
tr.even{background-color:#eee}
CGI-Application-Plugin-DBIProfile
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/DBIProfile.pm view on Meta::CPAN
{
my $c = scalar caller;
if ($ENV{CAP_DBIPROFILE_EXEC})
{
$c->add_callback( 'prerun', \&_start );
# use devpopup if installed, or do our own thing.
if ($c->can('devpopup') && $ENV{'CAP_DEVPOPUP_EXEC'})
{
$c->add_callback( 'devpopup_report', \&_devpopup_stop);
} else {
$c->add_callback( 'postrun', \&_stop);
}
}
}
lib/CGI/Application/Plugin/DBIProfile.pm view on Meta::CPAN
_open_window($self, $content, $output);
_empty_profile();
}
# _devpopup_stop : similar to _stop, but compatable with CAP:DevPopup
sub _devpopup_stop
{
my $self = shift;
my $output = shift;
my $content = _build_content($self);
$self->devpopup->add_report(
title => 'DBI Profile',
summary => 'DBI statement profiling',
report => qq(
<style type="text/css">
tr.even{background-color:#eee}
lib/CGI/Application/Plugin/DBIProfile.pm view on Meta::CPAN
make test
make install
=head1 DESCRIPTION
CGI::Application::Plugin::DBIProfile provides popup (using CAP::DevPopup if available) holding DBI Profile information (see L<DBI::Profile>, L<DBI::ProfileDumper>). It will output both graphed output and a DBI::ProfileDumper report.
=head1 CONFIGURATION
To enable, set the DBI_PROFILE environment variables. For example
CGI-Application-Plugin-DevPopup-Params
view release on metacpan or search on metacpan
our $VERSION = '1.01';
sub import {
my $c = scalar caller;
$c->add_callback( 'devpopup_report', \&_param_report );
goto &Exporter::import;
}
sub _param_report {
my $self = shift;
my $cgi = _cgi_report($self);
return $self->devpopup->add_report(
'title' => 'CGIApp params',
'summary' => 'CGI::Application parameters',
'report' => qq!<style type="text/css">tr.even{background-color:#eee}</style><table><thead><th colspan="2">Parameters</th></thead><tbody> $cgi </tbody></table>!,
);
}
CGI-Application-Plugin-DevPopup-Query
view release on metacpan or search on metacpan
=cut
sub import {
my $c = scalar caller;
$c->add_callback( 'devpopup_report', \&_runmode_report );
$c->add_callback( 'devpopup_report', \&_query_report );
goto &Exporter::import;
}
sub _runmode_report {
my $self = shift;
my $current_runmode = '<h3>' . ($self->get_current_runmode() || '<em>default</em>') . '</h3>';
return $self->devpopup->add_report(
'title' => 'Current Run Mode',
'summary' => $current_runmode,
'report' => $current_runmode,
);
}
my $self = shift;
my $cgi = _cgi_report($self);
my $current_runmode = $self->get_current_runmode() || 'default';
return $self->devpopup->add_report(
'title' => 'CGI Query',
'summary' => 'CGI request parameters',
'report' => qq!<style type="text/css">tr.even{background-color:#eee; } thead th h3 {margin: 0;}</style><table><thead><th colspan="2"><h3>CGI Query</h3></th></thead><tbody> $cgi </tbody></table>!,
);
}
CGI-Application-Plugin-DevPopup
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
use base 'Exporter';
use HTML::Template;
use CGI::Application 4.01;
our @EXPORT = qw/ devpopup /;
my ( $head, $script, $template ); # html stuff for our screen
sub import
{
my $caller = scalar(caller);
$caller->add_callback( 'postrun', \&_devpopup_output ) if $ENV{'CAP_DEVPOPUP_EXEC'};
$caller->new_hook('devpopup_report');
goto &Exporter::import;
}
sub devpopup
{
my $app = shift; # a cgiapp object
my $dp = $app->param('__CAP_DEVPOPUP');
unless ($dp)
{
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
return $dp;
}
sub add_report
{
my $self = shift; # a devpopup object
my %params = @_;
$params{severity} ||= 'info';
push @$self, \%params;
}
sub _devpopup_output
{
my ( $self, $outputref ) = @_;
return unless $self->header_type eq 'header'; # don't operate on redirects or 'none'
my %props = $self->header_props;
my ($type) = grep /type/i, keys %props;
return if defined $type and # no type defaults to html, so we have work to do.
$props{$type} !~ /html/i; # else skip any other types.
my $devpopup = $self->devpopup;
$self->call_hook( 'devpopup_report', $outputref ); # process our callback hook
my $tmpl = HTML::Template->new(
scalarref => \$template,
die_on_bad_params => 0,
loop_context_vars => 1,
);
$tmpl->param(
reports => $devpopup,
app_class => ref($self),
runmode => $self->get_current_runmode,
);
my $o = _escape_js($tmpl->output);
my $h = _escape_js($head);
my $j = _escape_js($script . join($/, map { $_->{script} } grep exists $_->{script}, @$devpopup) );
my $js = qq{
<script language="javascript">
var devpopup_window = window.open("", "devpopup_window", "height=400,width=600,scrollbars,resizable");
devpopup_window.document.write("$h");
devpopup_window.document.write("\t<s");
devpopup_window.document.write("cript type=\\"text/javascript\\">\\n");
devpopup_window.document.write("//"+"<"+"![CDATA[\\n");
devpopup_window.document.write("$j");
devpopup_window.document.write("//]"+"]>\\n");
devpopup_window.document.write("\t<");
devpopup_window.document.write("/script>");
devpopup_window.document.write("$o");
devpopup_window.document.close();
devpopup_window.focus();
</script>
};
# insert the js code before the body close,
# if one exists
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Devpopup results</title>
<style type="text/css">
div.report { border: dotted 1px black; margin: 1em;}
div.report h2 { color: #000; background-color: #ddd; padding:.2em; margin-top:0;}
div.report_full, div.report_summary { padding: 0em 1em; }
a:hover, div.report h2:hover, a.print_button:hover { cursor: pointer; background-color: #eee; }
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
JS
$template = <<TMPL;
</head>
<body>
<h1>Devpopup report for <tmpl_var app_class> -> <tmpl_var runmode></h1>
<a href="javascript:window.print()" class="print_button">Print</a>
<div id="titles">
<ul>
<tmpl_loop reports>
<li class="sev_<tmpl_var severity>">
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
__END__
=head1 NAME
CGI::Application::Plugin::DevPopup - Runtime cgiapp info in a popup window
=head1 VERSION
version 1.08
=head1 SYNOPSIS
=head2 End user information
This module provides a plugin framework for displaying runtime information
about your CGI::Application app in a popup window. A sample Timing plugin is
provided to show how it works:
BEGIN { $ENV{'CAP_DEVPOPUP_EXEC'} = 1; } # turn it on for real
use CGI::Application::Plugin::DevPopup;
use CGI::Application::Plugin::DevPopup::Timing;
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
L<CGI::Application::Plugin::HtmlTidy>.
The output consists of a Table of Contents, and a bunch of reports. A rough
translation into plain text could look like this:
Devpopup report for My::App -> add_timing
* Timings - Total runtime: 3.1178 sec.
+-----------------------------------------------------------------------+
| Timings |
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
header.
=head2 Developer information
Creating a new plugin for DevPopup is fairly simple. CAP::DevPopup registers a
new callback point (named C<devpopup_report>), which it uses to collect output
from your plugin. You can add a callback to that point, and return your
formatted output from there. The callback has this signature:
sub callback($cgiapp_class, $outputref)
You pass your output to the devpopup object by calling
$cgiapp_class->devpopup->add_report(
title => $title,
summary => $summary,
report => $body,
);
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
=head1 EXPORTS
=over 4
=item * devpopup
This method is the only one exported into your module, and can be used to
access the underlying DevPopup object. See below for the methods that this
object exposes.
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
report headers.
=item * script
If you have custom javascript, then please pass it in through this field.
Otherwise if it's embedded in your report, it will break the popup window. I
will take care of the surrounding C<<script>> tags, so just the code body is
needed.
=back
lib/CGI/Application/Plugin/DevPopup.pm view on Meta::CPAN
Rhesa Rozendaal, L<rhesa@cpan.org>
=head1 BUGS
Please report any bugs or feature requests to
L<bug-cgi-application-plugin-devpopup@rt.cpan.org>, or through the web
interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CGI-Application-Plugin-DevPopup>.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
CGI-Application-Plugin-HtmlTidy
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/HtmlTidy.pm view on Meta::CPAN
our @EXPORT = qw(htmltidy htmltidy_clean htmltidy_config);
sub import
{
my $c = scalar caller;
$c->add_callback( 'devpopup_report', \&htmltidy_validate ) if $c->can('devpopup');
goto &Exporter::import;
}
sub htmltidy
{
lib/CGI/Application/Plugin/HtmlTidy.pm view on Meta::CPAN
text => $_->text,
};
}
my $t = HTML::Template->new( filename => __find_my_path() . '/validate.tmpl', die_on_bad_params => 0, cache => 1 );
$t->param( output => \@output );
$self->devpopup->add_report(
title => 'HTML::Tidy validation report',
summary => "$errors errors, $warnings warnings",
report => $t->output
);
}
else
{
$self->devpopup->add_report(
title => 'HTML::Tidy validation report',
summary => "Your HTML is valid!",
);
}
}
CGI-Application-Plugin-LogDispatch
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/LogDispatch.pm view on Meta::CPAN
$log->add( Log::Dispatch::Screen->new( %options ) );
}
_set_object($frompkg||$self, $log);
# CAP::DevPopup support
if (UNIVERSAL::can($self, 'devpopup')) {
# Register our report with DevPopup
$self->add_callback( 'devpopup_report', \&_devpopup_report );
# Create logger to capture all log entries
my %options = (
'name' => 'DevPopup',
'min_level' => 'debug',
lib/CGI/Application/Plugin/LogDispatch.pm view on Meta::CPAN
return (undef, ${$super.'::__LOG_CONFIG'}, $super) if ${$super.'::__LOG_CONFIG'};
}
return;
}
sub _devpopup_report {
my $self = shift;
my $r=0;
my $history = join $/, map {
$r=1-$r;
qq(<tr class="@{[$r?'odd':'even']}"><td valign="top">$_->[0]</td><td>$_->[1]</td></tr>)
}
@{$self->{LOG_DISPATCH_DEVPOPUP_HISTORY}};
$self->devpopup->add_report(
title => 'Log Entries',
summary => 'All entries logged via Log::Dispatch',
report => qq(
<style type="text/css">
tr.even{background-color:#eee}
lib/CGI/Application/Plugin/LogDispatch.pm view on Meta::CPAN
CGI::Application::Plugin::LogDispatch adds logging support to your L<CGI::Application>
modules by providing a L<Log::Dispatch> dispatcher object that is accessible from
anywhere in the application.
If you have L<CGI::Application::Plugin::DevPopup> installed, a "Log Entries"
report is added to the popup window, containing all of the entries that were
logged during the execution of the runmode.
=head1 METHODS
=head2 log
CGI
view release on metacpan or search on metacpan
ins label legend noframes noscript object optgroup Q
thead tbody tfoot
/ ],
':form' => [ qw/
textfield textarea filefield password_field hidden checkbox checkbox_group
submit reset defaults radio_group popup_menu button autoEscape
scrolling_list image_button start_form end_form
start_multipart_form end_multipart_form isindex tmpFileName uploadInfo URL_ENCODED MULTIPART
/ ],
':cgi' => [ qw/
param multi_param upload path_info path_translated request_uri url self_url script_name
return wantarray ? @elements : "@elements"
unless defined($columns) || defined($rows);
return _tableize($rows,$columns,$rowheaders,$colheaders,@elements);
}
#### Method: popup_menu
# Create a popup menu.
# Parameters:
# $name -> Name for all the menu
# $values -> A pointer to a regular array containing the
# text of each menu item.
# $default -> (optional) Default item to display
# $labels -> (optional)
# A pointer to a hash of labels to print next to each checkbox
# in the form $label{'value'}="Long explanatory label".
# Otherwise the provided values are used as the labels.
# Returns:
# A string containing the definition of a popup menu.
####
sub popup_menu {
my($self,@p) = self_or_default(@_);
my($name,$values,$default,$labels,$attributes,$override,$tabindex,@other) =
rearrange([NAME,[VALUES,VALUE],[DEFAULT,DEFAULTS],LABELS,
ATTRIBUTES,[OVERRIDE,FORCE],TABINDEX],@p);
( run in 2.673 seconds using v1.01-cache-2.11-cpan-364913b4093 )