view release on metacpan or search on metacpan
lib/CGI/Application/Util/Diff.pm view on Meta::CPAN
sub build_form
{
my($self) = @_;
my($dir_action) = $self -> param('actions') -> get_dir_menu();
my(@dir_action) = map{qq|{text: "$$dir_action{$_}", value: "$_", onclick: {fn: onMenuItemClick} }|} sort keys %$dir_action;
my($file_action) = $self -> param('actions') -> get_file_menu();
my(@file_action) = map{qq|{text: "$$file_action{$_}", value: "$_", onclick: {fn: onMenuItemClick} }|} sort keys %$file_action;
# Since this is Javascript, we must add a ',' to all elements but the last.
# We cannot add a ',' to all elements, and then use this:
# substr($dir_action[$#dir_action], -1, 1) = '';
# to chop a comma off the last element, because substr() won't work with an array element as an lvalue.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CGI/Bus.pm view on Meta::CPAN
foreach my $k (keys(%{$s->{-htmlstart}})) {
if (!exists($p{$k})) {$p{$k} =$s->{-htmlstart}->{$k}}
}
}
$p{-style} ={code=>
".Form, .List, .Help, .MenuArea, .FooterArea {margin-top:0px; font-size: 8pt; font-family: Verdana, Helvetica, Arial, sans-serif; }\n"
#."a:link.ListTable {font-weight: bold}\n"
.".MenuButton {background-color: buttonface; color: black; text-decoration: none; font-size: 7pt;}\n"
#."td.MenuButton {background-color: activeborder;}\n"
#.".MenuArea {background-color: blue; color: white;}"
#.".MenuButton {background-color: blue; color: white; text-decoration: none; font-size: 7pt;}\n"
.".PaneLeft, .PaneForm, .PaneList {margin-top:0px; font-size: 8pt; font-family: Verdana, Helvetica, Arial, sans-serif; }\n"
."td.ListTable {border-style: inset; border-bottom-width: 1px; border-top-width: 0px; border-left-width: 0px; border-right-width: 0px; padding-top: 0;}\n"
."th.ListTable {border-style: inset; border-bottom-width: 1px; border-top-width: 0px; border-left-width: 0px; border-right-width: 0px;}\n"
} if !exists($p{-style});
$s->{-debug} && $s->{-debug} >2
view all matches for this distribution
view release on metacpan or search on metacpan
examples/test-echo.html view on Meta::CPAN
<td>
<input type = 'text' id = 'text_field' name = 'text_field' size = '20' maxlength = '100' value = 'Replace this default' />
</td>
</tr>
<tr>
<th>Menu</th>
<td>
<select id = 'menu_field' name = 'menu_field'>
<option value = 'First choice' selected = 'selected' />First choice
<option value = 'Second choice' />Second choice
</select>
view all matches for this distribution
view release on metacpan or search on metacpan
erecipes/perl/bin/startup.pl view on Meta::CPAN
use CGI::Ex::Conf;
use Template::Alloy;
use CGI::Ex::Recipes;
our %CACHE_HASH = ();
use CGI::Ex::Recipes::Cache;
use CGI::Ex::Recipes::Template::Menu;
our $conf_obj = CGI::Ex::Conf->new({'paths'=>[$ENV{SITE_ROOT}],'directive'=>'MERGE'});
our $conf = $conf_obj->read($ENV{SITE_ROOT} .'/conf/Recipes.conf');
$conf->{base_dir_abs} = $ENV{SITE_ROOT};
$conf->{template_args}{INCLUDE_PATH} = $ENV{SITE_ROOT};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CGI/Ex/App.pod view on Meta::CPAN
<input type=submit value="[% step == 'add' ? 'Add' : 'Update' %]"></td>
</tr>
</table>
</form>
(<a href="[% script_name %]">Main Menu</a>)
[% IF step != 'add' ~%]
(<a href="[% script_name %]/delete?id=[% id %]">Delete this recipe</a>)
[%~ END %]
[% js_validation %]
lib/CGI/Ex/App.pod view on Meta::CPAN
<h2>Directions</h2>
[% directions %]
<hr>
(<a href="[% script_name %]">Main Menu</a>)
(<a href="[% script_name %]/edit?id=[% id %]">Edit this recipe</a>)
</html>
### --------------------------------------------
view all matches for this distribution
view release on metacpan or search on metacpan
);
my %testURIList = (
0 => 'firefoxurl:test|"%20-new-window%20file:\c:/test.txt',
1 => 'firefoxurl:test|"%20-new-window%20javascript:alert(\'Cross%2520Browser%2520Scripting!\');"',
2 => 'aim: &c:\windows\system32\calc.exe" ini="C:\Documents and Settings\All Users\Start Menu\Programs\Startup\pwnd.bat"',
3 => 'navigatorurl:test" -chrome "javascript:C=Components.classes;I=Components.interfaces;file=C[\'@mozilla.org/file/local;1\'].createInstance(I.nsILocalFile);file.initWithPath(\'C:\'+String.fromCharCode(92)+String.fromCharCode(92)+\'Windows\'+...
4 => 'res://c:\\program%20files\\adobe\\acrobat%207.0\\acrobat\\acrobat.dll/#2/#210',
5 => 'mailto:%00%00../../../../../../windows/system32/cmd".exe ../../../../../../../../windows/system32/calc.exe " - " blah.bat',
);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CGI/Mungo.pm view on Meta::CPAN
=pod
=head2 setActions(\%actions)
my %actions = (
'default' => \&showMenu().
'list' => \%showList()
)
$m->setActions(\%actions);
Sets the actions of the web application using a hash reference. The names of the keys in the hash
view all matches for this distribution
view release on metacpan or search on metacpan
demos/smarthouse/DemoX10.pm view on Meta::CPAN
my $rh_handler = $rh_handlers->{$current_device};
unless( ref( $rh_handler ) eq 'HASH' ) {
$globals->set_page_body( <<__endquote );
<H1>Bad Menu Choice</H1>
<P>The device you chose from the menu, '$current_device', doesn't seem to be in
the list of devices that we know about. If you entered that url manually then
please choose from the menu instead. If you did choose from the menu then there
is something wrong with your configuration file.</P>
__endquote
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CGI/Template.pm view on Meta::CPAN
use CGI::Template;
my $t = new CGI::Template;
my $title = "Welcome";
my $menu = "Menu";
my $text = "Hello world.";
print $t->header();
print $t->content(
TITLE => $title,
lib/CGI/Template.pm view on Meta::CPAN
<html>
<head>
<title>Welcome</title>
</head>
<body>
<div id="menu">Menu</div>
<div id="content">Hello world.</div>
</body>
</html>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CGI/Test.pm view on Meta::CPAN
is $form->action, "/cgi-bin/some_target", "Form action URI";
my $menu = $form->menu_by_name("months");
ok $menu->is_selected("January"), "January selected";
ok !$menu->is_selected("March"), "March not selected";
ok $menu->multiple, "Menu is multi-choice";
my $send = $form->submit_by_name("send_form");
ok defined $send, "Send form defined";
#
view all matches for this distribution
view release on metacpan or search on metacpan
depending on wether it is passed a hash of postfields.
=head2 DO
$query-E<gt>do(-type=>"options",
-label=>"Menu",
-content=>qq(go href="#menu"/>));
gives
<do type="options" label="Menu" >
<go href="#menu"/>
</do>
=head2 PREV
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CLI/Framework.pm view on Meta::CPAN
Metacommand - An application-aware command. Metacommands are subclasses of
L<CLI::Framework::Command::Meta>. They are identical to regular commands except
they hold a reference to the application within which they are running. This
means they are able to "know about" and affect the application. For example,
the built-in command "Menu" is a Metacommand because it needs to produce a
list of the other commands in its application.
In general, your commands should be designed to operate independently of the
application, so they should simply inherit from L<CLI::Framework::Command>.
This encourages looser coupling. However, in exceptional cases, the use of
Metacommands is warranted (For an example, see the built-in "Menu" command).
=item *
Non-interactive Command - In interactive mode, some commands need to be
disabled. For instance, the built-in "console" command (which is used to start
lib/CLI/Framework.pm view on Meta::CPAN
This distribution comes with some default built-in commands, and more
CLIF built-ins can be installed as they become available on CPAN.
Use of the built-ins is optional in most cases, but certain features require
specific built-in commands (e.g. the Help command is a fundamental feature of
all applications and the Menu command is required in interactive mode). You can
override any of the built-ins.
A new application that does not override the
L<command_map|CLI::Framework::Application/command_map()> hook will include all
of the built-ins listed below.
lib/CLI/Framework.pm view on Meta::CPAN
L<CLI::Framework::Command::Console>
=item menu: Show a command menu including the commands that are available to the running application
L<CLI::Framework::Command::Menu>
B<Note>: This command is registered automatically when an application runs in
interactive mode. This built-in may be replaced by a user-defined "menu"
command, but any command class to be used for the "menu" command MUST be a
subclass of this one.
view all matches for this distribution
view release on metacpan or search on metacpan
Session.vim view on Meta::CPAN
nnoremap :shell
map ,T :!prove -Ilib/ -lv % | less
map ,t :!prove -Ilib/ -v %
nnoremap K <Nul> " doncha just hate it when the CAPs key gets turned on by mistake?
vmap [% [%m'gv``
nmap <silent> \ups :call Perl_RemoveGuiMenus()
nmap <silent> \lps :call Perl_CreateGuiMenus()
map \rwp <Plug>RestoreWinPosn
map \swp <Plug>SaveWinPosn
map \tt <Plug>AM_tt
map \tsq <Plug>AM_tsq
map \tsp <Plug>AM_tsp
view all matches for this distribution
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libhtml-tiny-perl", "HTML-Tiny", "1.05", "0", "1"
"libhtml-toc-perl", "HTML-Toc", "1.12", "0", "0"
"libhtml-tree-perl", "HTML-Tree", "4.2", "0", "1"
"libhtml-treebuilder-xpath-perl", "HTML-TreeBuilder-XPath", "0.12", "0", "0"
"libhtml-widget-perl", "HTML-Widget", "1.11", "0", "4"
"libhtml-widgets-navmenu-perl", "HTML-Widgets-NavMenu", "1.0600", "0", "1"
"libhtml-wikiconverter-dokuwiki-perl", "HTML-WikiConverter-DokuWiki", "0.53", "0", "0"
"libhtml-wikiconverter-kwiki-perl", "HTML-WikiConverter-Kwiki", "0.51", "0", "0"
"libhtml-wikiconverter-markdown-perl", "HTML-WikiConverter-Markdown", "0.02", "2", "0"
"libhtml-wikiconverter-mediawiki-perl", "HTML-WikiConverter-MediaWiki", "0.59", "0", "0"
"libhtml-wikiconverter-moinmoin-perl", "HTML-WikiConverter-MoinMoin", "0.53", "1", "0"
view all matches for this distribution
view release on metacpan or search on metacpan
ccc/CMenu.pm view on Meta::CPAN
package CORBA::MICO::CMenu;
use vars qw($serial);
use Carp;
use vars qw($DEBUG);
#$DEBUG=1;
#--------------------------------------------------------------------
# Dynamic menu. Supports a single menu for several
# objects. Each time an object becomes active
# CMenu automatically rebuilds menu so as it becomes appropriate
# for active object.
#--------------------------------------------------------------------
use Gtk2 '1.140';
#--------------------------------------------------------------------
ccc/CMenu.pm view on Meta::CPAN
my ($type, $topwindow) = @_;
my $class = ref($type) || $type;
my $accel_group = new Gtk2::AccelGroup;
my $menu_name = "<menu_$serial>";
++$serial;
my $item_factory = new Gtk2::ItemFactory('Gtk2::MenuBar',
$menu_name, $accel_group);
#$accel_group->attach($topwindow);
$topwindow->add_accel_group($accel_group);
my $main_widget = $item_factory->get_widget($menu_name);
ccc/CMenu.pm view on Meta::CPAN
$widget->set_sensitive($flag);
}
}
#--------------------------------------------------------------------
# Menu callback: item activated
#--------------------------------------------------------------------
sub item_activated_cb {
my ($selfptr, @args) = @_;
warn "item_activated_cb" if $DEBUG;
if( defined($$selfptr) ) {
view all matches for this distribution
view release on metacpan or search on metacpan
Module-MakeDist-1.05.tgz Module-MakeDist 1.05
AxKit-XSP-Swish-0.2a.tar.gz AxKit-XSP-Swish 0.2a
jp_beta_1.tar.gz jp_beta 1
DBIx-CodeKit-1.07.tgz DBIx-CodeKit 1.07
PDF-API2-0.3r74.tar.gz PDF-API2 0.3r74
DBIx-HTML-LinkedMenus-1.05.tgz DBIx-HTML-LinkedMenus 1.05
FileKGlob.tar.gz FileKGlob
DBD-NET-0.1.tgz DBD-NET 0.1
smime-0.7.tgz smime 0.7
NIS-a2.tar.gz NIS a2
HPUX-LVM_0.05.tar.gz HPUX-LVM 0.05
VMS-Queue-0_54.zip VMS-Queue 0_54
Tree.tar.gz Tree
Chess-PGN-Moves-0.02.zip Chess-PGN-Moves 0.02
Chess-PGN-Moves-0.01.zip Chess-PGN-Moves 0.01
Chess-PGN-Moves-0.03.zip Chess-PGN-Moves 0.03
HTML-Widgets-Menu-0.2.tgz HTML-Widgets-Menu 0.2
HTML-Widgets-Menu-0.03.tgz HTML-Widgets-Menu 0.03
TXTCOD-4.7.1-eng.tar.gz TXTCOD 4.7.1-eng
Smil_0_70.tgz Smil 0_70
qtpl_perl-0.5.tgz qtpl_perl 0.5
DateTime-Format-Baby-0.14.tgz DateTime-Format-Baby 0.14
DateTime-Format-Baby-0.15.2.tgz DateTime-Format-Baby 0.15.2
view all matches for this distribution
view release on metacpan or search on metacpan
t/data-valid/1122575719-META.yml view on Meta::CPAN
generated_by: 'Module::Install version 0.87'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: CatalystX-Menu-Tree
no_index:
directory:
- inc
- t
inc: []
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CPAN/Reporter/PrereqCheck.pm view on Meta::CPAN
my %load_before = (
'Tk::Font' => 'Tk',
'Tk::Widget' => 'Tk',
'Tk::Label' => 'Tk',
'Tk::Menubutton' => 'Tk',
'Tk::Entry' => 'Tk',
'Class::MOP::Class' => 'Class::MOP',
'Moose::Meta::TypeConstraint::Role' => 'Moose',
'Moose::Meta::TypeConstraint::Union' => 'Moose',
'Moose::Meta::Attribute::Native' => 'Class::MOP',
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CPAN/Testers/Common/Client/PrereqCheck.pm view on Meta::CPAN
my %load_before = (
'Tk::Font' => 'Tk',
'Tk::Widget' => 'Tk',
'Tk::Label' => 'Tk',
'Tk::Menubutton' => 'Tk',
'Tk::Entry' => 'Tk',
'Class::MOP::Class' => 'Class::MOP',
'Moose::Meta::TypeConstraint::Role' => 'Moose',
'Moose::Meta::TypeConstraint::Union' => 'Moose',
'Moose::Meta::Attribute::Native' => 'Class::MOP',
view all matches for this distribution
view release on metacpan or search on metacpan
t/files/01-log.txt view on Meta::CPAN
[2016-08-19T10:26:40Z] [Chris Williams (BINGOS)] [pass] [PERLANCAR/Perinci-Access-Schemeless-Hash-0.003.tar.gz] [x86_64-linux] [perl-v5.18.2] [6adcaa3c-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:40Z]
[2016-08-19T10:26:38Z] [gregor herrmann] [pass] [MIYAGAWA/Plack-App-FCGIDispatcher-0.10.tar.gz] [MSWin32-x86-multi-thread-64int] [perl-v5.24.0] [56a97154-6c3b-1014-99ce-50f842570578] [2016-08-19T10:26:38Z]
[2016-08-19T10:26:27Z] [Chris Williams (BINGOS)] [pass] [PERLANCAR/CentOS-Releases-0.02.tar.gz] [x86_64-linux] [perl-v5.18.2] [633e8b56-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:27Z]
[2016-08-19T10:26:25Z] [Nigel Horne] [pass] [SZABGAB/Filesys-DiskUsage-0.09.tar.gz] [armv7l-linux-thread-multi] [perl-v5.20.1] [61f0730e-65f7-11e6-b23d-b3ab65995775] [2016-08-19T10:26:25Z]
[2016-08-19T10:26:19Z] [Chris Williams (BINGOS)] [pass] [THINC/Net-Mailboxlayer-0.001.tar.gz] [amd64-netbsd-thread-multi] [perl-v5.12.3] [5e9adf3c-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:19Z]
[2016-08-19T10:26:18Z] [Chris Williams (BINGOS)] [pass] [REEDFISH/Term-Menus-3.003.tar.gz] [i386-gnukfreebsd] [perl-v5.8.9] [5df90270-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:18Z]
[2016-08-19T10:26:17Z] [Chris Williams (BINGOS)] [pass] [YVES/Sereal-Decoder-3.014.tar.gz] [i386-freebsd-64int] [perl-v5.18.1] [5cfc6b5a-65f7-11e6-8807-814d1da4c10f] [2016-08-19T10:26:17Z]
[2016-08-19T10:26:15Z] [Chris Williams (BINGOS)] [pass] [ETHER/Dist-Zilla-Plugin-GitHub-0.42.tar.gz] [amd64-netbsd-thread-multi] [perl-v5.24.0] [5bc72e1e-65f7-11e6-8807-814d1da4c10f] [2016-08-19T10:26:15Z]
[2016-08-19T10:26:13Z] [Chris Williams (BINGOS)] [pass] [REEDFISH/Term-Menus-3.002.tar.gz] [i386-gnukfreebsd] [perl-v5.8.9] [5ac09ece-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:13Z]
[2016-08-19T10:26:12Z] [Chris Williams (BINGOS)] [pass] [REEDFISH/Term-RawInput-1.23.tar.gz] [i386-gnukfreebsd] [perl-v5.8.9] [5a37b7bc-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:12Z]
[2016-08-19T10:26:11Z] [Chris Williams (BINGOS)] [fail] [TADZIK/App-FindCallers-0.02.tar.gz] [amd64-netbsd-thread-multi] [perl-v5.12.3] [59c44c00-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:11Z]
[2016-08-19T10:26:05Z] [Chris Williams (BINGOS)] [fail] [TADZIK/App-FindCallers-0.001.tar.gz] [amd64-netbsd-thread-multi] [perl-v5.12.3] [5632055a-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:26:05Z]
[2016-08-19T10:25:59Z] [Chris Williams (BINGOS)] [pass] [SYSPETE/Dancer2-Session-Redis-0.008.tar.gz] [amd64-netbsd-thread-multi] [perl-v5.12.3] [5293d98c-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:25:59Z]
[2016-08-19T10:25:59Z] [Chris Williams (BINGOS)] [pass] [PERLANCAR/App-riap-0.36.tar.gz] [x86_64-linux] [perl-v5.18.2] [522cedbc-65f7-11e6-ab41-c893a58a4b8c] [2016-08-19T10:25:59Z]
t/files/01-log.txt view on Meta::CPAN
[2016-08-19T10:14:43Z] [Chris Williams (BINGOS)] [pass] [RITOU/OAuth-Lite2-0.11.tar.gz] [x86_64-gnukfreebsd-thread-multi] [perl-v5.12.2] [bf5856d0-65f5-11e6-ab41-c893a58a4b8c] [2016-08-19T10:14:43Z]
[2016-08-19T10:14:41Z] [Chris Williams (BINGOS)] [pass] [LAUSSER/Monitoring-GLPlugin-2.3.1.tar.gz] [i386-gnukfreebsd] [perl-v5.8.9] [be3646ae-65f5-11e6-ab41-c893a58a4b8c] [2016-08-19T10:14:41Z]
[2016-08-19T10:14:26Z] [Chris Williams (BINGOS)] [pass] [OLEG/Net-HTTPS-NB-0.14.tar.gz] [x86_64-linux] [perl-v5.18.2] [b552e222-65f5-11e6-ab41-c893a58a4b8c] [2016-08-19T10:14:26Z]
[2016-08-19T10:14:23Z] [Chris Williams (BINGOS)] [fail] [STEVAN/App-Critique-0.03.tar.gz] [i386-freebsd-64int] [perl-v5.18.1] [b3524738-65f5-11e6-8807-814d1da4c10f] [2016-08-19T10:14:23Z]
[2016-08-19T10:14:17Z] [Nigel Horne] [pass] [SZABGAB/Filesys-DiskUsage-0.09.tar.gz] [armv7l-linux-thread-multi] [perl-v5.10.1] [afc75b30-65f5-11e6-b23d-b3ab65995775] [2016-08-19T10:14:17Z]
[2016-08-19T10:14:17Z] [Chris Williams (BINGOS)] [pass] [REEDFISH/Term-Menus-3.003.tar.gz] [x86_64-gnukfreebsd-thread-multi] [perl-v5.12.2] [afe6c894-65f5-11e6-ab41-c893a58a4b8c] [2016-08-19T10:14:17Z]
[2016-08-19T10:14:11Z] [Chris Williams (BINGOS)] [pass] [JONASS/App-Licensecheck-v3.0.19.tar.gz] [x86_64-linux] [perl-v5.18.2] [ac74eaba-65f5-11e6-ab41-c893a58a4b8c] [2016-08-19T10:14:11Z]
[2016-08-19T10:14:10Z] [Chris Williams (BINGOS)] [fail] [PHRED/Archive-Zip-1.59.tar.gz] [amd64-netbsd-thread-multi] [perl-v5.24.0] [ab94f324-65f5-11e6-8807-814d1da4c10f] [2016-08-19T10:14:10Z]
[2016-08-19T10:13:57Z] [Chris Williams (BINGOS)] [pass] [LAUSSER/Monitoring-GLPlugin-2.3.0.2.tar.gz] [i386-gnukfreebsd] [perl-v5.8.9] [a3cf2d4e-65f5-11e6-ab41-c893a58a4b8c] [2016-08-19T10:13:57Z]
[2016-08-19T10:13:55Z] [Nigel Horne] [pass] [SZABGAB/Filesys-DiskUsage-0.09.tar.gz] [armv7l-linux-thread-multi] [perl-v5.8.9] [a31351fa-65f5-11e6-b23d-b3ab65995775] [2016-08-19T10:13:55Z]
[2016-08-19T10:13:55Z] [Chris Williams (BINGOS)] [pass] [PREACTION/Log-Any-1.041-TRIAL.tar.gz] [x86_64-gnukfreebsd-thread-multi] [perl-v5.12.2] [a308c550-65f5-11e6-ab41-c893a58a4b8c] [2016-08-19T10:13:55Z]
view all matches for this distribution
view release on metacpan or search on metacpan
vhost/cgi-bin/config/phrasebook.ini view on Meta::CPAN
AllRealms=SELECT * FROM realms
GetRealmByID=SELECT * FROM realms WHERE realmid=?
GetRealmByName=SELECT * FROM realms WHERE realm=?
AllMenus=SELECT * FROM menus
GetMenus=SELECT * FROM menus WHERE realmid=?
GetMenuByID=SELECT * FROM menus WHERE menuid=?
GetOptions=SELECT * FROM options WHERE menuid=?
FindOptions=SELECT * FROM options WHERE menuid IN ($ids)
AddMenu=INSERT INTO menus (title,typeid,realmid) VALUES (?,?,?)
AddOption=INSERT INTO options (menuid,orderno) VALUES (?,?)
SaveMenu=UPDATE menus SET title=?,typeid=?,realmid=? WHERE menuid=?
SaveOption=UPDATE options SET orderno=?,text=?,href=? WHERE optionid=?
DeleteMenu=DELETE FROM menu WHERE menuid IN ($ids)
DeleteOptions=DELETE FROM options WHERE optionid IN ($ids)
GetOptImages=SELECT * FROM optimages AS o \
INNER JOIN images AS i ON o.imageid=i.imageid \
WHERE optionid=? ORDER BY typeid
view all matches for this distribution
view release on metacpan or search on metacpan
vhost/cgi-bin/config/phrasebook.ini view on Meta::CPAN
SaveImage=UPDATE images SET tag=?,link=?,type=?,href=?,dimensions=? WHERE imageid=?
DeleteImage=DELETE FROM images WHERE imageid=?
AllImageStock=SELECT * FROM imagestock
# Menus
AllMenus=SELECT * FROM menus
GetMenus=SELECT * FROM menus WHERE realmid=?
GetMenuByID=SELECT * FROM menus WHERE menuid=?
GetAllOptions=SELECT o.optionid,m.title,o.text FROM options AS o \
INNER JOIN menus AS m ON o.menuid=m.menuid \
WHERE o.menuid != ? AND o.text != '' ORDER BY m.title,o.name
GetOptions=SELECT * FROM options WHERE menuid=? ORDER BY orderno
FindOptions=SELECT * FROM options WHERE menuid IN ($ids)
AddMenu=INSERT INTO menus (name,title,typeid,realmid,parentid) VALUES (?,?,?,?,?)
AddOption=INSERT INTO options (menuid,orderno) VALUES (?,?)
SaveMenu=UPDATE menus SET name=?,title=?,typeid=?,realmid=?,parentid=? WHERE menuid=?
SaveOption=UPDATE options SET orderno=?,name=?,section=?,text=?,href=?,accessid=? WHERE optionid=?
DeleteMenu=DELETE FROM menus WHERE menuid IN ($ids)
DeleteOptions=DELETE FROM options WHERE optionid IN ($ids)
GetOptImages=SELECT * FROM optimages AS o \
INNER JOIN images AS i ON o.imageid=i.imageid \
WHERE optionid=? ORDER BY typeid
view all matches for this distribution
view release on metacpan or search on metacpan
templates/index.html view on Meta::CPAN
<div class="main-navigation">
<!-- Navigation Level 3 -->
<div class="round-border-topright"></div>
<h1>Menu</h1>
<ul>
<li><a href="/">Home</a></li>
</ul>
<ul>
<li><a href='http://stats.cpantesters.org/cpanmail.html'>Find A Tester</a></li>
view all matches for this distribution
view release on metacpan or search on metacpan
vhost/cgi-bin/config/phrasebook.ini view on Meta::CPAN
AllRealms=SELECT * FROM realms
GetRealmByID=SELECT * FROM realms WHERE realmid=?
GetRealmByName=SELECT * FROM realms WHERE realm=?
AllMenus=SELECT * FROM menus
GetMenus=SELECT * FROM menus WHERE realmid=?
GetMenuByID=SELECT * FROM menus WHERE menuid=?
GetOptions=SELECT * FROM options WHERE menuid=?
FindOptions=SELECT * FROM options WHERE menuid IN ($ids)
AddMenu=INSERT INTO menus (title,typeid,realmid) VALUES (?,?,?)
AddOption=INSERT INTO options (menuid,orderno) VALUES (?,?)
SaveMenu=UPDATE menus SET title=?,typeid=?,realmid=? WHERE menuid=?
SaveOption=UPDATE options SET orderno=?,text=?,href=? WHERE optionid=?
DeleteMenu=DELETE FROM menu WHERE menuid IN ($ids)
DeleteOptions=DELETE FROM options WHERE optionid IN ($ids)
GetOptImages=SELECT * FROM optimages AS o \
INNER JOIN images AS i ON o.imageid=i.imageid \
WHERE optionid=? ORDER BY typeid
view all matches for this distribution
view release on metacpan or search on metacpan
- added the ability for RSS feeds for authors and distros to be
generated dynamically from the saved JSON file.
- fix to add/edit requests in admin site.
3.28 2010-10-30
- update Menus plugin to latest codebase.
- added Requests plugin (and supporting files).
- added Metabase and Labyrinth links.
- repositioned site boxes to avoid text and logo clashing.
- reworked SQL queries to be more efficient.
- sessions now deleted by isolated script not part of logins.
view all matches for this distribution
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
view all matches for this distribution
view release on metacpan or search on metacpan
vhost/cgi-bin/config/phrasebook.ini view on Meta::CPAN
SaveImage=UPDATE images SET tag=?,link=?,type=?,href=?,dimensions=? WHERE imageid=?
DeleteImage=DELETE FROM images WHERE imageid=?
AllImageStock=SELECT * FROM imagestock
#Menus
AllMenus=SELECT * FROM menus
GetMenus=SELECT * FROM menus WHERE realmid=?
GetMenuByID=SELECT * FROM menus WHERE menuid=?
GetAllOptions=SELECT o.optionid,m.title,o.text FROM options AS o \
INNER JOIN menus AS m ON o.menuid=m.menuid \
WHERE o.menuid != ? AND o.text != '' ORDER BY m.title,o.name
GetOptions=SELECT * FROM options WHERE menuid=? ORDER BY orderno
FindOptions=SELECT * FROM options WHERE menuid IN ($ids)
AddMenu=INSERT INTO menus (name,title,typeid,realmid,parentid) VALUES (?,?,?,?,?)
AddOption=INSERT INTO options (menuid,orderno) VALUES (?,?)
SaveMenu=UPDATE menus SET name=?,title=?,typeid=?,realmid=?,parentid=? WHERE menuid=?
SaveOption=UPDATE options SET orderno=?,name=?,section=?,text=?,href=?,accessid=? WHERE optionid=?
DeleteMenu=DELETE FROM menus WHERE menuid IN ($ids)
DeleteOptions=DELETE FROM options WHERE optionid IN ($ids)
GetOptImages=SELECT * FROM optimages AS o \
INNER JOIN images AS i ON o.imageid=i.imageid \
WHERE optionid=? ORDER BY typeid
view all matches for this distribution
view release on metacpan or search on metacpan
distroprefs/LICHTKIND.Kephra.yml
distroprefs/LOCAL.trailing_dot_distros.yml
distroprefs/LUKEC.Socialtext-Resting.yml
distroprefs/LUKEC.Test-HTTP.yml
distroprefs/LUSOL.Tk-Gauge.yml
distroprefs/LZE.HTML-Menu-TreeView.yml
distroprefs/MACKENNA.IP-World.yml
distroprefs/MADZ.KiokuDB-Backend-CouchDB.yml
distroprefs/MAHEX.Image-Grab.yml
distroprefs/MAKAMAKA.JSON.yml
distroprefs/MARKOV.CPAN-Site.yml
view all matches for this distribution