Perlbug::Interface::Web Perlbug::Interface::Web is a web interface to perlbug database.
Download

Perlbug::Interface::Web Ranking & Summary

Perlbug::Interface::Web Tags

database Web interface perlbug database perlbug interface perlbug

Perlbug::Interface::Web Description

Perlbug::Interface::Web is a web interface to perlbug database. Perlbug::Interface::Web is a web interface to perlbug database.SYNOPSIS my $o_web = Perlbug::Interface::Web->new; print $o_web->top; print $o_web->request('help'); print $o_web->links;METHODSnewCreate new Perlbug::Interface::Web object. my $web = Perlbug::Interface::Web->new;setupSetup Perlbug::Interface::Web $o_web->setup($cgi);check_userAccess authentication via http, we just prime ourselves with data from the db as well.menusReturn menu of system, designed for vertical format. Wraps logo, title and links print $o_web->menus();logoReturn logo of system with href=hard_wired_url print $o_web->logo();get_titleReturn title of current page print $o_web->get_title();summaryReturn summary of open/closed bugs print $o_web->summary();linksReturn links of system, with adminfaq inserted if appropriate, configured links and object search forms. print $o_web->links();indexDisplay the index results here...get_requestReturn the req value for this request my $req = $self->get_request;set_commandSet the command type for the rest of the process, based on the input and operation my $cmd = $o_web->set_command($req);commandsReturn command menu buttons for request given print $o_web->commands($req);switchReturn appropriate method call for request(else index), using internal CGI object my $method = $o_web->switch(); # set $method=($call|index)startReturn appropriate start header data for web request, includes start table. print $o_web->start();formReturn form with appropriate name and target etc. print $o_web->form('menus');topReturn consistent top of page. print $o_web->top($req, $cmd);requestHandle all web requests (internal print) $o_web->request($call);target2fileReturn appropriate dir/file.ext for given target string my $filename = $o_base->target2file('header'); # -> '/home/richard/web/header.html'finishReturn appropriate finishing htmlVaries with framed, includes table finish print $o_web->finish($req);overviewWrapper for doo methodgraphDisplay pie or mixed graph for groups of bugs etc., mixed to come.dateWrapper for search by date accesscreateWrapper for object creation $o_web->create($obj, ta);object_handlerWrapper for object access: no ids = search form $o_web->object_handler($me_thod, $oid); # o_cgi comes from the heavenshistHistory mechanism for bugs and users.Move formatting to Formatter::history !!!headersHeaders for all objects (message, note, ...) by id $o_web->headers('patch', $id); bidmidWrapper for bugid and messageid accessspecReturns specifications for the Perlbug system. $dynamic =~ s//g; $dynamic =~ s/b(http:.+?perlbug.cgi)b/$1/gi; $dynamic =~ s/b(+@.+?.(?:com|org|net|edu))b/$1/gi;webhelpWeb based help for perlbug. print $web->webhelp;mailhelpWeb based mail help for perlbug. print $web->mailhelp;deleteWrapper for delete accesssqlOpen field sql query processortodoTo do list, may be appended toadminfaqadminFAQweb_queryForm bugid search web query results# results - don't map to query() unless Base::query modifiedsearchConstruct search form with chosen params as defaults...updateFor all application objects, wraps to object_handler $o_web->update(); # args ignored here for passing purposescurrent_buttonsGet and set array of relevant buttons by context key my @buttons = $o_web->current_buttons('search update reset', scalar(@uids), );caseHandle case sensitivity from web search form.format_queryProduce SQL query for bug search from cgi query.Can be optimised somewhat ... my $query = $web->format_query;wildcardConvert '*' into '%' for sqlquery my $string = $self->wildcard('5.*');tenifyCreate range of links to split (by tens or more) bugids from web query result. $self->tenify(@_bids, 'bug', 7); # in chunks of 7Requirements:· Perl Requirements: · Perl

Perlbug::Interface::Web Related Software