| Perlbug documentation | view source | Contained in the Perlbug distribution. |
Perlbug::Interface::Web - Web interface to perlbug database.
Methods for web access to perlbug database via Perlbug module.
my $o_web = Perlbug::Interface::Web->new;
print $o_web->top;
print $o_web->request('help');
print $o_web->links;
Create new Perlbug::Interface::Web object.
my $web = Perlbug::Interface::Web->new;
Setup Perlbug::Interface::Web
$o_web->setup($cgi);
Access authentication via http, we just prime ourselves with data from the db as well.
Return menu of system, designed for vertical format. Wraps logo, title and links
print $o_web->menus();
Return logo of system with href=hard_wired_url
print $o_web->logo();
Return title of current page
print $o_web->get_title();
Return summary of open/closed bugs
print $o_web->summary();
Return links of system, with adminfaq inserted if appropriate, configured links and object search forms.
print $o_web->links();
Display the index results here...
Return the req value for this request
my $req = $self->get_request;
Set the command type for the rest of the process, based on the input and operation
my $cmd = $o_web->set_command($req);
Return command menu buttons for request given
print $o_web->commands($req);
Return appropriate method call for request(else index), using internal CGI object
my $method = $o_web->switch([$req]); # set $method=($call|index)
Return appropriate start header data for web request, includes start table.
print $o_web->start();
Return form with appropriate name and target etc.
print $o_web->form('menus');
Return consistent top of page.
print $o_web->top($req, $cmd);
Handle all web requests (internal print)
$o_web->request($call);
Return appropriate dir/file.ext for given target string
my $filename = $o_base->target2file('header');
# -> '/home/richard/web/header.html'
Return appropriate finishing html
Varies with framed, includes table finish
print $o_web->finish($req);
Wrapper for doo method
Display pie or mixed graph for groups of bugs etc., mixed to come.
Wrapper for search by date access
Wrapper for object creation
$o_web->create($obj, \%data);
Wrapper for object access: no ids = search form
$o_web->object_handler($me_thod, $oid); # o_cgi comes from the heavens
History mechanism for bugs and users.
Move formatting to Formatter::history !!!
Headers for all objects (message, note, ...) by id
$o_web->headers('patch', $id);
Wrapper for bugid and messageid access
Returns specifications for the Perlbug system.
Web based help for perlbug.
print $web->webhelp;
Web based mail help for perlbug.
print $web->mailhelp;
Wrapper for delete access
Open field sql query processor
To do list, may be appended to
adminFAQ
Form bugid search web query results
# results - don't map to query() unless Base::query modified
Construct search form
with chosen params as defaults...
For all application objects, wraps to object_handler
$o_web->update(); # args ignored here for passing purposes
Get and set array of relevant buttons by context key
my @buttons = $o_web->current_buttons('search update reset', scalar(@uids), [$colspan]);
Handle case sensitivity from web search form.
Produce SQL query for bug search from cgi query.
Can be optimised somewhat ...
my $query = $web->format_query;
Convert '*' into '%' for sqlquery
my $string = $self->wildcard('5.*');
Create range of links to split (by tens or more) bugids from web query result.
$self->tenify(\@_bids, 'bug', 7); # in chunks of 7
Richard Foley perlbug@rfi.net Oct 1999 2000
| Perlbug documentation | view source | Contained in the Perlbug distribution. |