~bzr-pqm/bzr/bzr.dev : contents of contrib/pwclient.full at revision 1104

~bzr-pqm/bzr/bzr.dev : (revision 1104)

#!/usr/bin/perl -w
#
# Patchwork - automated patch tracking system
# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
#
# This file is part of the Patchwork package.
#
# Patchwork is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Patchwork is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Patchwork; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

use strict;
use lib '../lib';

use SOAP::Lite;
use Getopt::Std;

my $uri = 'urn:SOAPInterface';
# this URI has the address of the soap.pl script, followed by the project name
my $proxy = 'http://patchwork.ozlabs.org/soap.pl/bazaar-ng';
my $soap;
my ($rows, $cols);

my %actions = (
	list   => 'List all patches (restrict to a state with -s <state>)',
	view   => 'View a patch',
	get    => 'Download a patch and save it locally',
	apply  => 'Apply a patch (in the current dir, using -p1)',
	search => 'Search for patches (by name)'
);

sub page($@)
{
	my $str = shift;
	my $lines;
	if (@_) {
		($lines) = @_;
	} else {
		my @l = split(/\n/, $str);
		$lines = $#l;
	}
	if ($rows && $lines >= $rows) {
		my $pager = $ENV{PAGER} || 'more';
		open(FH, "|-", $pager) || die "Couldn't run pager '$pager': $!";
		print FH $str;
		close(FH);
	} else {
		print $str;
	}
}

sub patch_list(@)
{
	my @patches = @_;
	my $states = 
	return "No patches\n" unless @patches;
	my $str = list_header();
	my $max = $cols - 9;
	$max = 10 if $max < 10;
	foreach my $patch (@patches) {
		my $name = $patch->name();
		if ($cols && length($name) > $max) {
			$name = substr($name, 0, $max - 1).'$';
		}
		$str .= sprintf "%4d %3s %s\n", $patch->id(),
				substr(states($patch->state()), 0, 3),
				$name;
	}
	return $str;
}

sub _get_patch($)
{
	my ($id) = @_;
	unless ($id) {
		print STDERR "No id given to retrieve a patch\n";
		exit 1;
	}

	unless ($id =~ m/^[0-9]+$/) {
		print STDERR "Invalid patch id '$id'\n'";
		exit 1;
	}

	my $res = $soap->get_patch($id);
	die "SOAP fault: ".$res->faultstring if $res->fault;
	my $patch = $res->result;
	unless ($patch) {
		print STDERR "Patch not found\n";
		exit 1;
	}
	return $patch;
}

sub list()
{
	my %opts;
	my $res;
	getopts('s:', \%opts);
	if ($opts{s}) {
		$res = $soap->get_patches_by_state(state_from_name($opts{s}));
	} else {
		$res = $soap->get_patches();
	}
	die "SOAP fault: ".$res->faultstring if $res->fault;
	my $patches = $res->result;
	page(patch_list(@$patches), $#{$patches} + 2);
	return 1;
}

sub search()
{
	my $query = join(' ', map { '"'.$_.'"' } @ARGV);
	my $res = $soap->search($query);
	die "SOAP fault: ".$res->faultstring if $res->fault;
	my $patches = $res->result;
	my $str = '';
	unless ($patches && @{$patches}) {
		print "No patches found\n";
		return 1;
	}
	
	$str .= list_header();
	page(patch_list(@$patches), $#{$patches});
	return 1;
}

sub view()
{
	my ($id) = @ARGV;
	my $patch = _get_patch($id);
	page($patch->content());
	return 1;
}

sub get()
{
	my ($id) = @ARGV;
	my $patch = _get_patch($id);
	if (-e $patch->filename()) {
		printf STDERR "Patch file:\n\t%s\nalready exists\n",
			$patch->filename();
		exit 1;
	}
	open(FH, ">", $patch->filename())
		or die "Couldn't open ".$patch->filename()." for writing: $!";
	print FH $patch->content;
	close(FH);
	printf "Saved '%s'\n\tto: %s\n", $patch->name, $patch->filename();
	return 1;
}

sub apply()
{
	my ($id) = @ARGV;
	my $patch = _get_patch($id);
	open(FH, "|-", "patch", "-p1")
		or die "Couldn't execute 'patch -p1'";
	print FH $patch->content;
	close(FH);
	return 1;
}

sub usage()
{
	printf STDERR "Usage: %s <action> [options]\n", $0;
	printf STDERR "Where <action> is one of:\n";
	printf STDERR "\t%-6s : %s\n", $_, $actions{$_} for sort keys %actions;
}

sub list_header()
{
	return sprintf "%4s %3s %s\n", 'ID', 'Sta', 'Name';
}

my %_states;
sub states(@)
{
	my $state = @_ ? shift : undef;
	unless (%_states) {
		my $res = $soap->get_states();
		die "SOAP fault: ".$res->faultstring if $res->fault;
		my $stateref = $res->result;
		%_states = %$stateref;
	}
	return $state ? $_states{$state} : %_states;
}

sub state_from_name($)
{
	my ($name) = @_;
	my @matches;
	my %states = states();
	foreach my $id (keys(%states)) {
		push(@matches, $id) if ($states{$id} =~ m/^$name/i);
	}
	if ($#matches < 0) {
		print STDERR "No such state '$name'\n";
		exit 1;
	} elsif ($#matches > 0) {
		printf STDERR "Multiple states match '$name':\n";
		printf STDERR "\t%s\n", $states{$_} for @matches;
		exit 1;
	}
	return $matches[0];
}

my $action = shift;
unless ($action) {
	usage();
	exit 1;
}

if (eval "require Term::Size") {
	($cols, $rows) = Term::Size::chars(*STDOUT);
} else {
	($cols, $rows) = (0,0);
}

$soap = new SOAP::Lite(uri => $uri, proxy => $proxy);

foreach (sort(keys(%actions))) {
	if ($_ eq $action) {
		eval "return &$action()" or die $@;
		exit 0;
	}
}
printf STDERR "No such action '%s'\n", $action;
usage();
exit 1;

# Patchwork - automated patch tracking system
# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
#
# This file is part of the Patchwork package.
#
# Patchwork is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Patchwork is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Patchwork; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

package PatchWork::Comment;

use strict;

# internal variables
#  id
#  msgid
#  submitter
#  content
#  date
#  @refs

sub new($)
{
	my ($cls) = @_;
	my $obj = {};
	bless($obj, $cls);
	return $obj;
}

sub id(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{id} = shift }
	return $obj->{id};
}

sub submitter(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{submitter} = shift }
	return $obj->{submitter};
}

sub msgid(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{msgid} = shift }
	return $obj->{msgid};
}

sub date(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{date} = shift }
	return $obj->{date};
}

sub content(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{content} = shift }
	return $obj->{content};
}

sub refs(@)
{
	my ($obj) = shift;
	push(@{$obj->{refs}}, @_) if @_;
	return $obj->{refs};
}

1;

# Patchwork - automated patch tracking system
# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
#
# This file is part of the Patchwork package.
#
# Patchwork is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Patchwork is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Patchwork; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

package PatchWork::Person;

use strict;

# internal variables
#   email
#   name

sub new(@)
{
	my $cls = shift;
	my $obj = {};
	bless($obj, $cls);
	$obj->{email} = shift;
	$obj->{name} = shift;
	return $obj;
}

sub parse_from($$)
{
	my ($obj, $str) = @_;

	if ($str =~ m/"?(.*?)"?\s*<([^>]+)>/) {
		$obj->{email} = $2;
		$obj->{name} = $1;
	
	} elsif ($str =~ m/"?(.*?)"?\s*\(([^\)]+)\)/) {
		$obj->{email} = $1;
		$obj->{name} = $2;
	
	} else {
		$obj->{email} = $str;
	}
}

sub id(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{id} = shift }
	return $obj->{id};
}

sub email(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{email} = shift }
	return $obj->{email};
}

sub name(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{name} = shift }
	return $obj->{name};
}

sub username(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{username} = shift }
	return $obj->{username};
}

1;

# Patchwork - automated patch tracking system
# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
#
# This file is part of the Patchwork package.
#
# Patchwork is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Patchwork is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Patchwork; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

package PatchWork::Patch;

use strict;

# internal variables
#  id
#  msgid
#  date
#  name
#  content
#  filename
#  submitter
#  comments
#  @trees

sub new($)
{
	my ($cls) = @_;
	my $obj = {};
	bless($obj, $cls);
	$obj->{comments} = [];
	$obj->{trees} = {};
	$obj->{archived} = 0;
	$obj->{state} = 1;
	return $obj;
}

sub id(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{id} = shift }
	return $obj->{id};
}

sub msgid(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{msgid} = shift }
	return $obj->{msgid};
}

sub date(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{date} = shift }
	return $obj->{date};
}

sub state(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{state} = shift }
	return $obj->{state};
}

sub name(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{name} = shift }
	return $obj->{name};
}

sub filename(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{filename} = shift }
	return $obj->{filename};
}

sub submitter(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{submitter} = shift }
	return $obj->{submitter};
}

sub content(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{content} = shift }
	return $obj->{content};
}

sub archived(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{archived} = shift }
	return $obj->{archived};
}

sub add_comment($$)
{
	my ($obj, $comment) = @_;
	push(@{$obj->{comments}}, $comment);
}

sub comments($)
{
	my ($obj) = @_;
	return $obj->{comments};
}

sub trees(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{trees} = shift }
	return $obj->{trees};
}

1;

# Patchwork - automated patch tracking system
# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
#
# This file is part of the Patchwork package.
#
# Patchwork is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Patchwork is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Patchwork; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

package PatchWork::Tree;

use strict;

# internal variables
#   id
#   name
#   url

sub new($$)
{
	my ($cls, $id) = @_;
	my $obj = {};
	bless($obj, $cls);
	$obj->{id} = $id;
	return $obj;
}

sub id($)
{
	my ($obj) = @_;
	return $obj->{id};

}

sub name(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{name} = shift }
	return $obj->{name};
}

sub url(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{url} = shift }
	return $obj->{url};
}

1;

# Patchwork - automated patch tracking system
# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
#
# This file is part of the Patchwork package.
#
# Patchwork is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Patchwork is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Patchwork; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

package PatchWork::User;
@PatchWork::User::ISA = ('PatchWork::Person');

use strict;

# internal variables
#   username

sub new($$)
{
	my ($cls, $id) = @_;
	my $obj = {};
	bless($obj, $cls);
	$obj->{id} = $id;
	return $obj;
}

sub username(@)
{
	my ($obj) = shift;
	if (@_) { $obj->{username} = shift }
	return $obj->{username};
}

1;


715 by Martin Pool - add jk's patchwork client	1	#!/usr/bin/perl -w
	2	#
	3	# Patchwork - automated patch tracking system
	4	# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
	5	#
	6	# This file is part of the Patchwork package.
	7	#
	8	# Patchwork is free software; you can redistribute it and/or modify
	9	# it under the terms of the GNU General Public License as published by
	10	# the Free Software Foundation; either version 2 of the License, or
	11	# (at your option) any later version.
	12	#
	13	# Patchwork is distributed in the hope that it will be useful,
	14	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	# GNU General Public License for more details.
	17	#
	18	# You should have received a copy of the GNU General Public License
	19	# along with Patchwork; if not, write to the Free Software
	20	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	21
	22	use strict;
	23	use lib '../lib';
	24
	25	use SOAP::Lite;
	26	use Getopt::Std;
	27
	28	my $uri = 'urn:SOAPInterface';
	29	# this URI has the address of the soap.pl script, followed by the project name
	30	my $proxy = 'http://patchwork.ozlabs.org/soap.pl/bazaar-ng';
	31	my $soap;
	32	my ($rows, $cols);
	33
	34	my %actions = (
	35	list => 'List all patches (restrict to a state with -s <state>)',
	36	view => 'View a patch',
	37	get => 'Download a patch and save it locally',
	38	apply => 'Apply a patch (in the current dir, using -p1)',
	39	search => 'Search for patches (by name)'
	40	);
	41
	42	sub page($@)
	43	{
	44	my $str = shift;
	45	my $lines;
	46	if (@_) {
	47	($lines) = @_;
	48	} else {
	49	my @l = split(/\n/, $str);
	50	$lines = $#l;
	51	}
	52	if ($rows && $lines >= $rows) {
	53	my $pager = $ENV{PAGER} \|\| 'more';
	54	open(FH, "\|-", $pager) \|\| die "Couldn't run pager '$pager': $!";
	55	print FH $str;
	56	close(FH);
	57	} else {
	58	print $str;
	59	}
	60	}
	61
	62	sub patch_list(@)
	63	{
	64	my @patches = @_;
65	my $states =
66	return "No patches\n" unless @patches;
67	my $str = list_header();
68	my $max = $cols - 9;
69	$max = 10 if $max < 10;
70	foreach my $patch (@patches) {
71	my $name = $patch->name();
72	if ($cols && length($name) > $max) {
73	$name = substr($name, 0, $max - 1).'$';
74	}
75	$str .= sprintf "%4d %3s %s\n", $patch->id(),
76	substr(states($patch->state()), 0, 3),
77	$name;
78	}
79	return $str;
80	}
81
82	sub _get_patch($)
83	{
84	my ($id) = @_;
85	unless ($id) {
86	print STDERR "No id given to retrieve a patch\n";
87	exit 1;
88	}
89
90	unless ($id =~ m/^[0-9]+$/) {
91	print STDERR "Invalid patch id '$id'\n'";
92	exit 1;
93	}
94
95	my $res = $soap->get_patch($id);
96	die "SOAP fault: ".$res->faultstring if $res->fault;
97	my $patch = $res->result;
98	unless ($patch) {
99	print STDERR "Patch not found\n";
100	exit 1;
101	}
102	return $patch;
103	}
104
105	sub list()
106	{
107	my %opts;
108	my $res;
109	getopts('s:', \%opts);
110	if ($opts{s}) {
111	$res = $soap->get_patches_by_state(state_from_name($opts{s}));
112	} else {
113	$res = $soap->get_patches();
114	}
115	die "SOAP fault: ".$res->faultstring if $res->fault;
116	my $patches = $res->result;
117	page(patch_list(@$patches), $#{$patches} + 2);
118	return 1;
119	}
120
121	sub search()
122	{
123	my $query = join(' ', map { '"'.$_.'"' } @ARGV);
124	my $res = $soap->search($query);
125	die "SOAP fault: ".$res->faultstring if $res->fault;
126	my $patches = $res->result;
127	my $str = '';
128	unless ($patches && @{$patches}) {
129	print "No patches found\n";
130	return 1;
131	}
132
133	$str .= list_header();
134	page(patch_list(@$patches), $#{$patches});
135	return 1;
136	}
137
138	sub view()
139	{
140	my ($id) = @ARGV;
141	my $patch = _get_patch($id);
142	page($patch->content());
143	return 1;
144	}
145
146	sub get()
147	{
148	my ($id) = @ARGV;
149	my $patch = _get_patch($id);
150	if (-e $patch->filename()) {
151	printf STDERR "Patch file:\n\t%s\nalready exists\n",
152	$patch->filename();
153	exit 1;
154	}
155	open(FH, ">", $patch->filename())
156	or die "Couldn't open ".$patch->filename()." for writing: $!";
157	print FH $patch->content;
158	close(FH);
159	printf "Saved '%s'\n\tto: %s\n", $patch->name, $patch->filename();
160	return 1;
161	}
162
163	sub apply()
164	{
165	my ($id) = @ARGV;
166	my $patch = _get_patch($id);
167	open(FH, "\|-", "patch", "-p1")
168	or die "Couldn't execute 'patch -p1'";
169	print FH $patch->content;
170	close(FH);
171	return 1;
172	}
173
174	sub usage()
175	{
176	printf STDERR "Usage: %s <action> [options]\n", $0;
177	printf STDERR "Where <action> is one of:\n";
178	printf STDERR "\t%-6s : %s\n", $_, $actions{$_} for sort keys %actions;
179	}
180
181	sub list_header()
182	{
183	return sprintf "%4s %3s %s\n", 'ID', 'Sta', 'Name';
184	}
185
186	my %_states;
187	sub states(@)
188	{
189	my $state = @_ ? shift : undef;
190	unless (%_states) {
191	my $res = $soap->get_states();
192	die "SOAP fault: ".$res->faultstring if $res->fault;
193	my $stateref = $res->result;
194	%_states = %$stateref;
195	}
196	return $state ? $_states{$state} : %_states;
197	}
198
199	sub state_from_name($)
200	{
201	my ($name) = @_;
202	my @matches;
203	my %states = states();
204	foreach my $id (keys(%states)) {
205	push(@matches, $id) if ($states{$id} =~ m/^$name/i);
206	}
207	if ($#matches < 0) {
208	print STDERR "No such state '$name'\n";
209	exit 1;
210	} elsif ($#matches > 0) {
211	printf STDERR "Multiple states match '$name':\n";
212	printf STDERR "\t%s\n", $states{$_} for @matches;
213	exit 1;
214	}
215	return $matches[0];
216	}
217
218	my $action = shift;
219	unless ($action) {
220	usage();
221	exit 1;
222	}
223
224	if (eval "require Term::Size") {
225	($cols, $rows) = Term::Size::chars(*STDOUT);
226	} else {
227	($cols, $rows) = (0,0);
228	}
229
230	$soap = new SOAP::Lite(uri => $uri, proxy => $proxy);
231
232	foreach (sort(keys(%actions))) {
233	if ($_ eq $action) {
234	eval "return &$action()" or die $@;
235	exit 0;
236	}
237	}
238	printf STDERR "No such action '%s'\n", $action;
239	usage();
240	exit 1;
241
242	# Patchwork - automated patch tracking system
243	# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
244	#
245	# This file is part of the Patchwork package.
246	#
247	# Patchwork is free software; you can redistribute it and/or modify
248	# it under the terms of the GNU General Public License as published by
249	# the Free Software Foundation; either version 2 of the License, or
250	# (at your option) any later version.
251	#
252	# Patchwork is distributed in the hope that it will be useful,
253	# but WITHOUT ANY WARRANTY; without even the implied warranty of
254	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
255	# GNU General Public License for more details.
256	#
257	# You should have received a copy of the GNU General Public License
258	# along with Patchwork; if not, write to the Free Software
259	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
260
261	package PatchWork::Comment;
262
263	use strict;
264
265	# internal variables
266	# id
267	# msgid
268	# submitter
269	# content
270	# date
271	# @refs
272
273	sub new($)
274	{
275	my ($cls) = @_;
276	my $obj = {};
277	bless($obj, $cls);
278	return $obj;
279	}
280
281	sub id(@)
282	{
283	my ($obj) = shift;
284	if (@_) { $obj->{id} = shift }
285	return $obj->{id};
286	}
287
288	sub submitter(@)
289	{
290	my ($obj) = shift;
291	if (@_) { $obj->{submitter} = shift }
292	return $obj->{submitter};
293	}
294
295	sub msgid(@)
296	{
297	my ($obj) = shift;
298	if (@_) { $obj->{msgid} = shift }
299	return $obj->{msgid};
300	}
301
302	sub date(@)
303	{
304	my ($obj) = shift;
305	if (@_) { $obj->{date} = shift }
306	return $obj->{date};
307	}
308
309	sub content(@)
310	{
311	my ($obj) = shift;
312	if (@_) { $obj->{content} = shift }
313	return $obj->{content};
314	}
315
316	sub refs(@)
317	{
318	my ($obj) = shift;
319	push(@{$obj->{refs}}, @_) if @_;
320	return $obj->{refs};
321	}
322
323	1;
324
325	# Patchwork - automated patch tracking system
326	# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
327	#
328	# This file is part of the Patchwork package.
329	#
330	# Patchwork is free software; you can redistribute it and/or modify
331	# it under the terms of the GNU General Public License as published by
332	# the Free Software Foundation; either version 2 of the License, or
333	# (at your option) any later version.
334	#
335	# Patchwork is distributed in the hope that it will be useful,
336	# but WITHOUT ANY WARRANTY; without even the implied warranty of
337	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
338	# GNU General Public License for more details.
339	#
340	# You should have received a copy of the GNU General Public License
341	# along with Patchwork; if not, write to the Free Software
342	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
343
344	package PatchWork::Person;
345
346	use strict;
347
348	# internal variables
349	# email
350	# name
351
352	sub new(@)
353	{
354	my $cls = shift;
355	my $obj = {};
356	bless($obj, $cls);
357	$obj->{email} = shift;
358	$obj->{name} = shift;
359	return $obj;
360	}
361
362	sub parse_from($$)
363	{
364	my ($obj, $str) = @_;
365
366	if ($str =~ m/"?(.?)"?\s<([^>]+)>/) {
367	$obj->{email} = $2;
368	$obj->{name} = $1;
369
370	} elsif ($str =~ m/"?(.?)"?\s\(([^\)]+)\)/) {
371	$obj->{email} = $1;
372	$obj->{name} = $2;
373
374	} else {
375	$obj->{email} = $str;
376	}
377	}
378
379	sub id(@)
380	{
381	my ($obj) = shift;
382	if (@_) { $obj->{id} = shift }
383	return $obj->{id};
384	}
385
386	sub email(@)
387	{
388	my ($obj) = shift;
389	if (@_) { $obj->{email} = shift }
390	return $obj->{email};
391	}
392
393	sub name(@)
394	{
395	my ($obj) = shift;
396	if (@_) { $obj->{name} = shift }
397	return $obj->{name};
398	}
399
400	sub username(@)
401	{
402	my ($obj) = shift;
403	if (@_) { $obj->{username} = shift }
404	return $obj->{username};
405	}
406
407	1;
408
409	# Patchwork - automated patch tracking system
410	# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
411	#
412	# This file is part of the Patchwork package.
413	#
414	# Patchwork is free software; you can redistribute it and/or modify
415	# it under the terms of the GNU General Public License as published by
416	# the Free Software Foundation; either version 2 of the License, or
417	# (at your option) any later version.
418	#
419	# Patchwork is distributed in the hope that it will be useful,
420	# but WITHOUT ANY WARRANTY; without even the implied warranty of
421	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
422	# GNU General Public License for more details.
423	#
424	# You should have received a copy of the GNU General Public License
425	# along with Patchwork; if not, write to the Free Software
426	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
427
428	package PatchWork::Patch;
429
430	use strict;
431
432	# internal variables
433	# id
434	# msgid
435	# date
436	# name
437	# content
438	# filename
439	# submitter
440	# comments
441	# @trees
442
443	sub new($)
444	{
445	my ($cls) = @_;
446	my $obj = {};
447	bless($obj, $cls);
448	$obj->{comments} = [];
449	$obj->{trees} = {};
450	$obj->{archived} = 0;
451	$obj->{state} = 1;
452	return $obj;
453	}
454
455	sub id(@)
456	{
457	my ($obj) = shift;
458	if (@_) { $obj->{id} = shift }
459	return $obj->{id};
460	}
461
462	sub msgid(@)
463	{
464	my ($obj) = shift;
465	if (@_) { $obj->{msgid} = shift }
466	return $obj->{msgid};
467	}
468
469	sub date(@)
470	{
471	my ($obj) = shift;
472	if (@_) { $obj->{date} = shift }
473	return $obj->{date};
474	}
475
476	sub state(@)
477	{
478	my ($obj) = shift;
479	if (@_) { $obj->{state} = shift }
480	return $obj->{state};
481	}
482
483	sub name(@)
484	{
485	my ($obj) = shift;
486	if (@_) { $obj->{name} = shift }
487	return $obj->{name};
488	}
489
490	sub filename(@)
491	{
492	my ($obj) = shift;
493	if (@_) { $obj->{filename} = shift }
494	return $obj->{filename};
495	}
496
497	sub submitter(@)
498	{
499	my ($obj) = shift;
500	if (@_) { $obj->{submitter} = shift }
501	return $obj->{submitter};
502	}
503
504	sub content(@)
505	{
506	my ($obj) = shift;
507	if (@_) { $obj->{content} = shift }
508	return $obj->{content};
509	}
510
511	sub archived(@)
512	{
513	my ($obj) = shift;
514	if (@_) { $obj->{archived} = shift }
515	return $obj->{archived};
516	}
517
518	sub add_comment($$)
519	{
520	my ($obj, $comment) = @_;
521	push(@{$obj->{comments}}, $comment);
522	}
523
524	sub comments($)
525	{
526	my ($obj) = @_;
527	return $obj->{comments};
528	}
529
530	sub trees(@)
531	{
532	my ($obj) = shift;
533	if (@_) { $obj->{trees} = shift }
534	return $obj->{trees};
535	}
536
537	1;
538
539	# Patchwork - automated patch tracking system
540	# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
541	#
542	# This file is part of the Patchwork package.
543	#
544	# Patchwork is free software; you can redistribute it and/or modify
545	# it under the terms of the GNU General Public License as published by
546	# the Free Software Foundation; either version 2 of the License, or
547	# (at your option) any later version.
548	#
549	# Patchwork is distributed in the hope that it will be useful,
550	# but WITHOUT ANY WARRANTY; without even the implied warranty of
551	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
552	# GNU General Public License for more details.
553	#
554	# You should have received a copy of the GNU General Public License
555	# along with Patchwork; if not, write to the Free Software
556	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
557
558	package PatchWork::Tree;
559
560	use strict;
561
562	# internal variables
563	# id
564	# name
565	# url
566
567	sub new($$)
568	{
569	my ($cls, $id) = @_;
570	my $obj = {};
571	bless($obj, $cls);
572	$obj->{id} = $id;
573	return $obj;
574	}
575
576	sub id($)
577	{
578	my ($obj) = @_;
579	return $obj->{id};
580
581	}
582
583	sub name(@)
584	{
585	my ($obj) = shift;
586	if (@_) { $obj->{name} = shift }
587	return $obj->{name};
588	}
589
590	sub url(@)
591	{
592	my ($obj) = shift;
593	if (@_) { $obj->{url} = shift }
594	return $obj->{url};
595	}
596
597	1;
598
599	# Patchwork - automated patch tracking system
600	# Copyright (C) 2005 Jeremy Kerr <jk@ozlabs.org>
601	#
602	# This file is part of the Patchwork package.
603	#
604	# Patchwork is free software; you can redistribute it and/or modify
605	# it under the terms of the GNU General Public License as published by
606	# the Free Software Foundation; either version 2 of the License, or
607	# (at your option) any later version.
608	#
609	# Patchwork is distributed in the hope that it will be useful,
610	# but WITHOUT ANY WARRANTY; without even the implied warranty of
611	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
612	# GNU General Public License for more details.
613	#
614	# You should have received a copy of the GNU General Public License
615	# along with Patchwork; if not, write to the Free Software
616	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
617
618	package PatchWork::User;
619	@PatchWork::User::ISA = ('PatchWork::Person');
620
621	use strict;
622
623	# internal variables
624	# username
625
626	sub new($$)
627	{
628	my ($cls, $id) = @_;
629	my $obj = {};
630	bless($obj, $cls);
631	$obj->{id} = $id;
632	return $obj;
633	}
634
635	sub username(@)
636	{
637	my ($obj) = shift;
638	if (@_) { $obj->{username} = shift }
639	return $obj->{username};
640	}
641
642	1;
643