Perlbug::Interface::Web 2.93

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;

METHODS

new

Create new Perlbug::Interface::Web object.
my $web = Perlbug::Interface::Web->new;

setup

Setup Perlbug::Interface::Web
$o_web->setup($cgi);

check_user

Access authentication via http, we just prime ourselves with data from the db as well.

menus

Return menu of system, designed for vertical format. Wraps logo, title and links

print $o_web->menus();

logo

Return logo of system with href=hard_wired_url

print $o_web->logo();

get_title

Return title of current page

print $o_web->get_title();

summary

Return summary of open/closed bugs

print $o_web->summary();

links

Return links of system, with adminfaq inserted if appropriate, configured links and object search forms.

print $o_web->links();

index

Display the index results here...

get_request

Return the req value for this request

my $req = $self->get_request;

set_command

Set the command type for the rest of the process, based on the input and operation

my $cmd = $o_web->set_command($req);

commands

Return command menu buttons for request given

print $o_web->commands($req);

switch

Return appropriate method call for request(else index), using internal CGI object

my $method = $o_web->switch([$req]); # set $method=($call|index)

start

Return appropriate start header data for web request, includes start table.

print $o_web->start();

form

Return form with appropriate name and target etc.

print $o_web->form(menus);

top

Return consistent top of page.

print $o_web->top($req, $cmd);

request

Handle all web requests (internal print)

$o_web->request($call);

target2file

Return appropriate dir/file.ext for given target string

my $filename = $o_base->target2file(header);

# -> /home/richard/web/header.html

finish

Return appropriate finishing html
Varies with framed, includes table finish

print $o_web->finish($req);

overview

Wrapper for doo method

graph

Display pie or mixed graph for groups of bugs etc., mixed to come.

date

Wrapper for search by date access

create

Wrapper for object creation

$o_web->create($obj, %data);

object_handler

Wrapper for object access: no ids = search form

$o_web->object_handler($me_thod, $oid); # o_cgi comes from the heavens

hist

History mechanism for bugs and users.

Move formatting to Formatter::history !!!

headers

Headers for all objects (message, note, ...) by id

$o_web->headers(patch, $id);

bidmid

Wrapper for bugid and messageid access

spec

Returns specifications for the Perlbug system.

$dynamic =~ s/ $dynamic =~ s/>/>/g;
$dynamic =~ s/b(http:.+?perlbug.cgi)b/$1/gi;
$dynamic =~ s/b([ |&.t;]+@.+?.(?:com|org|net|edu))b/$1/gi;

webhelp

Web based help for perlbug.

print $web->webhelp;

mailhelp

Web based mail help for perlbug.

print $web->mailhelp;

delete

Wrapper for delete access

sql

Open field sql query processor

todo

To do list, may be appended to

adminfaq

adminFAQ

web_query

Form bugid search web query results

# results - dont map to query() unless Base::query modified

search

Construct search form

with chosen params as defaults...

update

For all application objects, wraps to object_handler

$o_web->update(); # args ignored here for passing purposes

current_buttons

Get and set array of relevant buttons by context key

my @buttons = $o_web->current_buttons(search update reset, scalar(@uids), [$colspan]);

case

Handle case sensitivity from web search form.

format_query

Produce SQL query for bug search from cgi query.

Can be optimised somewhat ...

my $query = $web->format_query;

wildcard

Convert * into % for sqlquery

my $string = $self->wildcard(5.*);

tenify

Create range of links to split (by tens or more) bugids from web query result.

$self->tenify(@_bids, bug, 7); # in chunks of 7