/ 
Perlbug-2.93
/ Perlbug::Fix

NAME

Perlbug::Fix - Command line interface to fixing perlbug database.

DESCRIPTION

Command line interface to fixing incorrect perlbug data.

Most calls take an integer as the maximimum number of records to process, or default to a relatively low value.

SYNOPSIS

use Perlbug::Fix;

my $o_fix = Perlbug::Fix->new();

$o_fix->cmd; # loop

USAGE

  	lowercase is indicator/report 
	
	UPPERcase expands/effects
	
	> h		# help [with args]
	
	> H		# Helpful help

	> k 125	1 # set Perlbug_Max (number of records to fix) to 125, and force

	> s		# scan for correctable relationships

	> S 200108%	# implement corrections for August registered bugs

	> 		# etc.

METHODS

new

Create new Perlbug::Fix object:

my $o_fix = Perlbug::Fix->new();
kick

Kick Perlbug_Max value ...

Kick Perlbug_Force value ...

my $ret = $o_fix->kick($i_max, $i_force);
process

Processes the command given, gets and truncates the results, calls scroll

This could be redundant ? -> Cmd::process()

references

Delete duff references in bug_\w+_\w+ tables by given arg

Or, if two args given appropriate relationship:

r patch # bug->patch understood

r patch version # patch->version
src_address

Correct db_SRC_table where SRC may be<bug>|group

change

Correct bug_patch, bug_change, bug_patch, patch_change tables via given file

Example file contents:

____________________________________________________________________________
[  7012] By: nick                                  on 2000/09/02  17:25:20
		Log: More %{} and other deref special casing - do not pass to 'nomethod'.
	 Branch: perl
		   ! gv.c lib/overload.pm    
____________________________________________________________________________
[  7001] By: jhi                                   on 2000/09/01  23:00:13
		Log: Subject: [PATCH: 6996] minimal removal of 8 bit chrs from perlebcdic.pod
			 From: Peter Prymmer <pvhp@forte.com>
			 Date: Fri, 1 Sep 2000 15:50:57 -0700 (PDT)
			 Message-ID: <Pine.OSF.4.10.10009011542550.147696-100000@aspara.forte.com>

			 plus rework the http: spots as suggested by Tom Christiansen,
			 plus regen perltoc.
	 Branch: perl
		   ! README.os2 pod/perl56delta.pod pod/perlebcdic.pod
		   ! pod/perlguts.pod pod/perltoc.pod pod/perlxs.pod
____________________________________________________________________________  

[  6921] By: jhi                                   on 2000/08/30  19:40:16
		Log: Subject: [ID 20000830.036] [DOC] chom?p %hash not documented
			 From: Rick Delaney <rick@consumercontact.com>
			 Date: Wed, 30 Aug 2000 15:36:55 -0400 (EDT)
			 Message-Id: <Pine.UW2.4.10.10008301535210.1949-100000@consumer>
	 Branch: perl
		   ! pod/perlfunc.pod
____________________________________________________________________________
message

Fix message subject lines where empty

header_body

Migrate headers and body from original bug

users

Correct users table, currently only looks for blank passwords

execute

Process action on behalf user

my $i_ok = $self->execute('UPDATE x SET y WHERE z etc...');
ubl

Update db_user_bug from db_log by userid

forward

Assumes bugids in db, messages in dir, find messages which were not forwarded, forward them.

Not the same as an historic trawl, which is looking for new/replies, etc.

redundant

scan_header

Scan only the header portion of the bug

scan_body

Scan only the body portion of the bug

scan_bugs

Trawls and updates bug group, osname, versions etc.

$o_fix->scan_bugs([header|body], [bugid%]);
trim_flags

Trim flags where duplicates

discard

Discard duplicate and otherwise redundant info

scan_ids

Trawls and updates bugs for msgid (email_msgid) Message-Id field

AUTHOR

Richard Foley perlbug@rfi.net 2000 2001