[ViewVC] Diff of: cvs/Convert-UUlib/UUlib.pm

Comparing Convert-UUlib/UUlib.pm (file contents):
Revision 1.15 by root, Tue Oct 15 23:35:31 2002 UTC vs.
Revision 1.53 by root, Sat Dec 12 02:03:14 2020 UTC

…		…
1	package Convert::UUlib;	1	package Convert::UUlib;
		2
		3	use common::sense;
2		4
3	use Carp;	5	use Carp;
4		6
5	require Exporter;	7	require Exporter;
6	require DynaLoader;	8	require DynaLoader;
7		9
8	$VERSION = 0.31;	10	our $VERSION = 1.71;
9		11
10	@ISA = qw(Exporter DynaLoader);	12	our @ISA = qw(Exporter DynaLoader);
11		13
12	@_consts = qw(	14	our @_consts = qw(
13	ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING	15	ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING
14		16
15	FILE_DECODED FILE_ERROR FILE_MISPART FILE_NOBEGIN FILE_NODATA	17	FILE_DECODED FILE_ERROR FILE_MISPART FILE_NOBEGIN FILE_NODATA
16	FILE_NOEND FILE_OK FILE_READ FILE_TMPFILE	18	FILE_NOEND FILE_OK FILE_READ FILE_TMPFILE
17		19
18	MSG_ERROR MSG_FATAL MSG_MESSAGE MSG_NOTE MSG_PANIC MSG_WARNING	20	MSG_ERROR MSG_FATAL MSG_MESSAGE MSG_NOTE MSG_PANIC MSG_WARNING
19		21
		22	OPT_RBUF OPT_WBUF
20	OPT_BRACKPOL OPT_DEBUG OPT_DESPERATE OPT_DUMBNESS OPT_ENCEXT	23	OPT_BRACKPOL OPT_DEBUG OPT_DESPERATE OPT_DUMBNESS OPT_ENCEXT
21	OPT_ERRNO OPT_FAST OPT_IGNMODE OPT_IGNREPLY OPT_OVERWRITE OPT_PREAMB	24	OPT_ERRNO OPT_FAST OPT_IGNMODE OPT_IGNREPLY OPT_OVERWRITE OPT_PREAMB
22	OPT_PROGRESS OPT_SAVEPATH OPT_TINYB64 OPT_USETEXT OPT_VERBOSE	25	OPT_PROGRESS OPT_SAVEPATH OPT_TINYB64 OPT_USETEXT OPT_VERBOSE
23	OPT_VERSION OPT_REMOVE OPT_MOREMIME OPT_DOTDOT	26	OPT_VERSION OPT_REMOVE OPT_MOREMIME OPT_DOTDOT OPT_AUTOCHECK
24		27
25	RET_CANCEL RET_CONT RET_EXISTS RET_ILLVAL RET_IOERR RET_NODATA	28	RET_CANCEL RET_CONT RET_EXISTS RET_ILLVAL RET_IOERR RET_NODATA
26	RET_NOEND RET_NOMEM RET_OK RET_UNSUP	29	RET_NOEND RET_NOMEM RET_OK RET_UNSUP
27		30
28	B64_ENCODED BH_ENCODED PT_ENCODED QP_ENCODED	31	B64_ENCODED BH_ENCODED PT_ENCODED QP_ENCODED
29	XX_ENCODED UU_ENCODED YENC_ENCODED	32	XX_ENCODED UU_ENCODED YENC_ENCODED
30	);	33	);
31		34
32	@_funcs = qw(	35	our @_funcs = qw(
33	Initialize CleanUp GetOption SetOption strerror SetMsgCallback	36	Initialize CleanUp GetOption SetOption strerror SetMsgCallback
34	SetBusyCallback SetFileCallback SetFNameFilter SetFileNameCallback	37	SetBusyCallback SetFileCallback SetFNameFilter SetFileNameCallback
35	FNameFilter LoadFile GetFileListItem RenameFile DecodeToTemp	38	FNameFilter LoadFile GetFileListItem GetFileList RenameFile DecodeToTemp
36	RemoveTemp DecodeFile InfoFile Smerge QuickDecode EncodeMulti	39	RemoveTemp DecodeFile InfoFile Smerge QuickDecode EncodeMulti
37	EncodePartial EncodeToStream EncodeToFile E_PrepSingle	40	EncodePartial EncodeToStream EncodeToFile E_PrepSingle
38	E_PrepPartial	41	E_PrepPartial
39		42
40	straction strencoding strmsglevel	43	straction strencoding strmsglevel
41	);	44	);
42		45
43	@EXPORT = @_consts;	46	our @EXPORT = @_consts;
44	@EXPORT_OK = @_funcs;	47	our @EXPORT_OK = @_funcs;
45	%EXPORT_TAGS = (all => [@_consts,@_funcs], constants => \@_consts);	48	our %EXPORT_TAGS = (all => [@_consts,@_funcs], constants => \@_consts);
46		49
47	bootstrap Convert::UUlib $VERSION;	50	bootstrap Convert::UUlib $VERSION;
48		51
49	Initialize();	52	# dummy function for compatiiblity with pre-1.7 versions
50		53	sub Initialize { }
51	# not when < 5.005_6x
52	# END { CleanUp() }
53
54	for (@_consts) {
55	my $constant = constant($_);
56	*$_ = sub () { $constant };
57	}
58		54
59	# action code -> string mapping	55	# action code -> string mapping
60	sub straction($) {	56	sub straction($) {
61	return 'copying' if $_[0] == &ACT_COPYING;	57	return 'copying' if $_[0] == &ACT_COPYING;
62	return 'decoding' if $_[0] == &ACT_DECODING;	58	return 'decoding' if $_[0] == &ACT_DECODING;
100	use Convert::UUlib ':all';	96	use Convert::UUlib ':all';
101		97
102	# read all the files named on the commandline and decode them	98	# read all the files named on the commandline and decode them
103	# into the CURRENT directory. See below for a longer example.	99	# into the CURRENT directory. See below for a longer example.
104	LoadFile $_ for @ARGV;	100	LoadFile $_ for @ARGV;
105	for (my $i = 0; my $uu = GetFileListItem $i; $i++) {	101
		102	for my $uu (GetFileList) {
106	if ($uu->state & FILE_OK) {	103	if ($uu->state & FILE_OK) {
107	$uu->decode;	104	$uu->decode;
108	print $uu->filename, "\n";	105	print $uu->filename, "\n";
109	}	106	}
110	}	107	}
…		…
154	OPT_TINYB64 detect short B64 outside of Mime	151	OPT_TINYB64 detect short B64 outside of Mime
155	OPT_ENCEXT extension for single-part encoded files	152	OPT_ENCEXT extension for single-part encoded files
156	OPT_REMOVE remove input files after decoding (dangerous)	153	OPT_REMOVE remove input files after decoding (dangerous)
157	OPT_MOREMIME strict MIME adherence	154	OPT_MOREMIME strict MIME adherence
158	OPT_DOTDOT ".."-unescaping has not yet been done on input files	155	OPT_DOTDOT ".."-unescaping has not yet been done on input files
		156	OPT_RBUF set default read I/O buffer size in bytes
		157	OPT_WBUF set default write I/O buffer size in bytes
		158	OPT_AUTOCHECK automatically check file list after every loadfile
159		159
160	=head2 Result/Error codes	160	=head2 Result/Error codes
161		161
162	RET_OK everything went fine	162	RET_OK everything went fine
163	RET_IOERR I/O Error - examine errno	163	RET_IOERR I/O Error - examine errno
…		…
206	again.	206	again.
207		207
208	On my machine, a fairly complete decode with DBI backend needs about 10MB	208	On my machine, a fairly complete decode with DBI backend needs about 10MB
209	RSS to decode 20000 files.	209	RSS to decode 20000 files.
210		210
211	=over 4	211	=over
212
213	=item Initialize
214
215	Not normally necessary, (re-)initializes the library.
216		212
217	=item CleanUp	213	=item CleanUp
218		214
219	Not normally necessary, could be called at the end to release memory	215	Release memory, file items and clean up files. Should be called after a
220	before starting a new decoding round.	216	decoidng run, if you want to start a new one.
221		217
222	=back	218	=back
223		219
224	=head2 Setting and querying options	220	=head2 Setting and querying options
225		221
226	=over 4	222	=over
227		223
228	=item $option = GetOption OPT_xxx	224	=item $option = GetOption OPT_xxx
229		225
230	=item SetOption OPT_xxx, opt-value	226	=item SetOption OPT_xxx, opt-value
231		227
…		…
233		229
234	See the C<OPT_xxx> constants above to see which options exist.	230	See the C<OPT_xxx> constants above to see which options exist.
235		231
236	=head2 Setting various callbacks	232	=head2 Setting various callbacks
237		233
238	=over 4	234	=over
239		235
240	=item SetMsgCallback [callback-function]	236	=item SetMsgCallback [callback-function]
241		237
242	=item SetBusyCallback [callback-function]	238	=item SetBusyCallback [callback-function]
243		239
…		…
247		243
248	=back	244	=back
249		245
250	=head2 Call the currently selected FNameFilter	246	=head2 Call the currently selected FNameFilter
251		247
252	=over 4	248	=over
253		249
254	=item $file = FNameFilter $file	250	=item $file = FNameFilter $file
255		251
256	=back	252	=back
257		253
258	=head2 Loading sourcefiles, optionally fuzzy merge and start decoding	254	=head2 Loading sourcefiles, optionally fuzzy merge and start decoding
259		255
260	=over 4	256	=over
261		257
262	=item ($retval, $count) = LoadFile $fname, [$id, [$delflag]]	258	=item ($retval, $count) = LoadFile $fname, [$id, [$delflag, [$partno]]]
263		259
264	Load the given file and scan it for encoded contents. Optionally tag it	260	Load the given file and scan it for encoded contents. Optionally tag it
265	with the given id, and if C<$delflag> is true, delete the file after it is	261	with the given id, and if C<$delflag> is true, delete the file after it
266	no longer necessary.	262	is no longer necessary. If you are certain of the part number, you can
		263	specify it as the last argument.
		264
		265	A better (usually faster) way of doing this is using the C<SetFNameFilter>
		266	functionality.
267		267
268	=item $retval = Smerge $pass	268	=item $retval = Smerge $pass
269		269
270	If you are desperate, try to call C<Smerge> with increasing C<$pass>	270	If you are desperate, try to call C<Smerge> with increasing C<$pass>
271	values, beginning at C<0>, to try to merge parts that usually would not	271	values, beginning at C<0>, to try to merge parts that usually would not
272	have been merged.	272	have been merged.
273		273
274	Most probably this will result in garbled files, so never do this by	274	Most probably this will result in garbled files, so never do this by
275	default.	275	default, except:
		276
		277	If the C<OPT_AUTOCHECK> option has been disabled (by default it is
		278	enabled) to speed up file loading, then you I<have> to call C<Smerge -1>
		279	after loading all files as an additional pre-pass (which is normally done
		280	by C<LoadFile>).
276		281
277	=item $item = GetFileListItem $item_number	282	=item $item = GetFileListItem $item_number
278		283
279	Return the C<$item> structure for the C<$item_number>'th found file, or	284	Return the C<$item> structure for the C<$item_number>'th found file, or
280	C<undef> of no file with that number exists.	285	C<undef> of no file with that number exists.
281		286
282	The first file has number C<0>, and the series has no holes, so you can	287	The first file has number C<0>, and the series has no holes, so you can
283	iterate over all files by starting with zero and incrementing until you	288	iterate over all files by starting with zero and incrementing until you
284	hit C<undef>.	289	hit C<undef>.
285		290
		291	This function has to walk the linear list of fils on each access, so
		292	if you want to iterate over all items, it is usually faster to use
		293	C<GetFileList>.
		294
		295	=item @items = GetFileList
		296
		297	Similar to C<GetFileListItem>, but returns all files in one go.
		298
286	=back	299	=back
287		300
288	=head2 Decoding files	301	=head2 Decoding files
289		302
290	=over 4	303	=over
291		304
292	=item $retval = $item->rename($newname)	305	=item $retval = $item->rename ($newname)
293		306
294	Change the ondisk filename where the decoded file will be saved.	307	Change the ondisk filename where the decoded file will be saved.
295		308
296	=item $retval = $item->decode_temp	309	=item $retval = $item->decode_temp
297		310
…		…
300		313
301	=item $retval = $item->remove_temp	314	=item $retval = $item->remove_temp
302		315
303	Remove the temporarily decoded file again.	316	Remove the temporarily decoded file again.
304		317
305	=item $retval = $item->decode([$target_path])	318	=item $retval = $item->decode ([$target_path])
306		319
307	Decode the file to it's destination, or the given target path.	320	Decode the file to its destination, or the given target path.
308		321
309	=item $retval = $item->info(callback-function)	322	=item $retval = $item->info (callback-function)
310		323
311	=back	324	=back
312		325
313	=head2 Querying (and setting) item attributes	326	=head2 Querying (and setting) item attributes
314		327
315	=over 4	328	=over
316		329
317	=item $state = $item->state	330	=item $state = $item->state
318		331
319	=item $mode = $item->mode([newmode])	332	=item $mode = $item->mode ([newmode])
320		333
321	=item $uudet = $item->uudet	334	=item $uudet = $item->uudet
322		335
323	=item $size = $item->size	336	=item $size = $item->size
324		337
325	=item $filename = $item->filename([newfilename})	338	=item $filename = $item->filename ([newfilename})
326		339
327	=item $subfname = $item->subfname	340	=item $subfname = $item->subfname
328		341
329	=item $mimeid = $item->mimeid	342	=item $mimeid = $item->mimeid
330		343
…		…
334		347
335	=back	348	=back
336		349
337	=head2 Information about source parts	350	=head2 Information about source parts
338		351
339	=over 4	352	=over
340		353
341	=item $parts = $item->parts	354	=item $parts = $item->parts
342		355
343	Return information about all parts (source files) used to decode the file	356	Return information about all parts (source files) used to decode the file
344	as a list of hashrefs with the following structure:	357	as a list of hashrefs with the following structure:
…		…
358	Usually you are interested mostly the C<sfname> and possibly the C<partno>	371	Usually you are interested mostly the C<sfname> and possibly the C<partno>
359	and C<filename> members.	372	and C<filename> members.
360		373
361	=back	374	=back
362		375
363	=head2 Functions below not documented and not very well tested	376	=head2 Functions below are not documented and not very well tested - feedback welcome
364		377
365	QuickDecode	378	QuickDecode
366	EncodeMulti	379	EncodeMulti
367	EncodePartial	380	EncodePartial
368	EncodeToStream	381	EncodeToStream
…		…
372		385
373	=head2 EXTENSION FUNCTIONS	386	=head2 EXTENSION FUNCTIONS
374		387
375	Functions found in this module but not documented in the uulib documentation:	388	Functions found in this module but not documented in the uulib documentation:
376		389
377	=over 4	390	=over
378		391
379	=item $msg = straction ACT_xxx	392	=item $msg = straction ACT_xxx
380		393
381	Return a human readable string representing the given action code.	394	Return a human readable string representing the given action code.
382		395
…		…
423		436
424	=back	437	=back
425		438
426	=head1 LARGE EXAMPLE DECODER	439	=head1 LARGE EXAMPLE DECODER
427		440
		441	The general workflow for decoding is like this:
		442
		443	=over
		444
		445	=item 1. Configure options with C<SetOption> or C<SetXXXCallback>.
		446
		447	=item 2. Load all source files with C<LoadFile>.
		448
		449	=item 3. Optionally C<Smerge>.
		450
		451	=item 4. Iterate over all C<GetFileList> items (i.e. result files).
		452
		453	=item 5. C<CleanUp> to delete files and free items.
		454
		455	=back
		456
428	This is the file C<example-decoder> from the distribution, put here	457	What follows is the file C<example-decoder> from the distribution that
429	instead of more thorough documentation.	458	illustrates the above worklfow in a non-trivial example.
430		459
		460	#!/usr/bin/perl
		461
431	# decode all the files in the directory uusrc/ and copy	462	# decode all the files in the directory uusrc/ and copy
432	# the resulting files to uudst/	463	# the resulting files to uudst/
433		464
434	use Convert::UUlib ':all';	465	use Convert::UUlib ':all';
435		466
436	sub namefilter {	467	sub namefilter {
437	my($path)=@_;	468	my ($path) = @_;
		469
438	$path=~s/^.*[\/\\]//;	470	$path=~s/^.*[\/\\]//;
		471
439	$path;	472	$path
440	}	473	}
441		474
442	sub busycb {	475	sub busycb {
443	my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;	476	my ($action, $curfile, $partno, $numparts, $percent, $fsize) = @_;
444	$_[0]=straction($action);	477	$_[0]=straction($action);
445	print "busy_callback(", (join ",",@_), ")\n";	478	print "busy_callback(", (join ",",@_), ")\n";
446	0;	479	0
447	}	480	}
448		481
		482	SetOption OPT_RBUF, 128*1024;
		483	SetOption OPT_WBUF, 1024*1024;
449	SetOption OPT_IGNMODE, 1;	484	SetOption OPT_IGNMODE, 1;
		485	SetOption OPT_IGNMODE, 1;
450	SetOption OPT_VERBOSE, 1;	486	SetOption OPT_VERBOSE, 1;
		487	SetOption OPT_AUTOCHK, 0;
451		488
452	# show the three ways you can set callback functions. I normally	489	# show the three ways you can set callback functions. I normally
453	# prefer the one with the sub inplace.	490	# prefer the one with the sub inplace.
454	SetFNameFilter \&namefilter;	491	SetFNameFilter \&namefilter;
455		492
456	SetBusyCallback "busycb", 333;	493	SetBusyCallback "busycb", 333;
457		494
458	SetMsgCallback sub {	495	SetMsgCallback sub {
459	my ($msg, $level) = @_;	496	my ($msg, $level) = @_;
460	print uc strmsglevel $_[1], ": $msg\n";	497	print uc strmsglevel $_[1], ": $msg\n";
461	};	498	};
462		499
463	# the following non-trivial FileNameCallback takes care	500	# the following non-trivial FileNameCallback takes care
464	# of some subject lines not detected properly by uulib:	501	# of some subject lines not detected properly by uulib:
465	SetFileNameCallback sub {	502	SetFileNameCallback sub {
466	return unless $_[1]; # skip "Re:"-plies et al.	503	return unless $_[1]; # skip "Re:"-plies et al.
467	local $_ = $_[0];	504	local $_ = $_[0];
468		505
469	# the following rules are rather effective on some newsgroups,	506	# the following rules are rather effective on some newsgroups,
470	# like alt.binaries.games.anime, where non-mime, uuencoded data	507	# like alt.binaries.games.anime, where non-mime, uuencoded data
471	# is very common	508	# is very common
472		509
473	# if we find some *.rar, take it as the filename	510	# if we find some *.rar, take it as the filename
474	return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d\|rar))\s/i;	511	return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d\|rar))\s/i;
475		512
476	# one common subject format	513	# one common subject format
477	return $1 if /- "(.{2,}?\..+?)" (?:yenc )?$\d+\/\d+$/i;	514	return $1 if /- "(.{2,}?\..+?)" (?:yenc )?$\d+\/\d+$/i;
478		515
479	# - filename.par (04/55)	516	# - filename.par (04/55)
480	return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?$\d+\/\d+$/i;	517	return $1 if /- "?(\S{3,}\.\S+?)"? (?:yenc )?$\d+\/\d+$/i;
481		518
482	# - (xxx) No. 1 sayuri81.jpg 756565 bytes	519	# - (xxx) No. 1 sayuri81.jpg 756565 bytes
483	# - (20 files) No.17 Roseanne.jpg [2/2]	520	# - (20 files) No.17 Roseanne.jpg [2/2]
484	return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;	521	return $1 if /No\.[ 0-9]+ (\S+\....) (?:\d+ bytes )?\[/;
485		522
		523	# try to detect some common forms of filenames
		524	return $1 if /([a-z0-9_\-+.]{3,}\.[a-z]{3,4}(?:.\d+))/i;
		525
486	# otherwise just pass what we have	526	# otherwise just pass what we have
487	return ();	527	()
488	};	528	};
489		529
490	# now read all files in the directory uusrc/*	530	# now read all files in the directory uusrc/*
491	for(<uusrc/*>) {	531	for (<uusrc/*>) {
492	my($retval,$count)=LoadFile ($_, $_, 1);	532	my ($retval, $count) = LoadFile ($_, $_, 1);
493	print "file($_), status(", strerror $retval, ") parts($count)\n";	533	print "file($_), status(", strerror $retval, ") parts($count)\n";
494	}	534	}
495		535
		536	Smerge -1;
		537
496	SetOption OPT_SAVEPATH, "uudst/";	538	SetOption OPT_SAVEPATH, "uudst/";
497		539
498	# now wade through all files and their source parts	540	# now wade through all files and their source parts
499	$i = 0;	541	for my $uu (GetFileList) {
500	while ($uu = GetFileListItem($i)) {	542	print "file ", $uu->filename, "\n";
501	$i++;
502	print "file nr. $i";
503	print " state ", $uu->state;	543	print " state ", $uu->state, "\n";
504	print " mode ", $uu->mode;	544	print " mode ", $uu->mode, "\n";
505	print " uudet ", strencoding $uu->uudet;	545	print " uudet ", strencoding $uu->uudet, "\n";
506	print " size ", $uu->size;	546	print " size ", $uu->size, "\n";
507	print " filename ", $uu->filename;
508	print " subfname ", $uu->subfname;	547	print " subfname ", $uu->subfname, "\n";
509	print " mimeid ", $uu->mimeid;	548	print " mimeid ", $uu->mimeid, "\n";
510	print " mimetype ", $uu->mimetype;	549	print " mimetype ", $uu->mimetype, "\n";
511	print "\n";
512		550
513	# print additional info about all parts	551	# print additional info about all parts
		552	print " parts";
514	for ($uu->parts) {	553	for ($uu->parts) {
515	while (my ($k, $v) = each %$_) {	554	for my $k (sort keys %$_) {
516	print "$k > $v, ";	555	print " $k=$_->{$k}";
517	}	556	}
518	print "\n";	557	print "\n";
519	}	558	}
520		559
521	$uu->decode_temp;
522	print " temporarily decoded to ", $uu->binfile, "\n";
523	$uu->remove_temp;	560	$uu->remove_temp;
524		561
525	print strerror $uu->decode;	562	if (my $err = $uu->decode) {
		563	print " ERROR ", strerror $err, "\n";
		564	} else {
526	print " saved as uudst/", $uu->filename, "\n";	565	print " successfully saved as uudst/", $uu->filename, "\n";
527	}	566	}
		567	}
528		568
529	print "cleanup...\n";	569	print "cleanup...\n";
530		570
531	CleanUp();	571	CleanUp;
		572
		573	=head1 PERLMULTICORE SUPPORT
		574
		575	This module supports the perlmulticore standard (see
		576	L<http://perlmulticore.schmorp.de/> for more info) for the following
		577	functions - generally these are functions accessing the disk and/or using
		578	considerable CPU time:
		579
		580	LoadFile
		581	$item->decode
		582	$item->decode_temp
		583	$item->remove_temp
		584	$item->info
		585
		586	The perl interpreter will be reacquired/released on every callback
		587	invocation, so for performance reasons, callbacks should be avoided if
		588	that is costly.
		589
		590	Future versions might enable multicore support for more functions.
		591
		592	=head1 BUGS AND LIMITATIONS
		593
		594	The original uulib library this module uses was written at a time where
		595	main memory of measured in megabytes and buffer overflows as a security
		596	thign didn't exist. While a lot of security fixes have been applied over
		597	the years (includign some defense in depth mechanism that can shield
		598	against a lot of as-of-yet undetected bugs), using this library for
		599	security purposes requires care.
		600
		601	Likewise, file sizes when the uulib library was written were tiny compared
		602	to today, so do not expect this library to handle files larger than 2GB.
		603
		604	Lastly, this module uses a very "C-like" interface, which means it doesn't
		605	protect you from invalid points as you might expect from "more perlish"
		606	modules - for example, accessing a file item object after callinbg
		607	C<CleanUp> will likely result in crashes, memory corruption, or worse.
532		608
533	=head1 AUTHOR	609	=head1 AUTHOR
534		610
535	Marc Lehmann <pcg@goof.com>, the original uulib library was written	611	Marc Lehmann <schmorp@schmorp.de>, the original uulib library was written
536	by Frank Pilhofer <fp@informatik.uni-frankfurt.de>, and later heavily	612	by Frank Pilhofer <fp@informatik.uni-frankfurt.de>, and later heavily
537	bugfixed by Marc Lehmann.	613	bugfixed by Marc Lehmann.
538		614
539	=head1 SEE ALSO	615	=head1 SEE ALSO
540		616
541	perl(1), uudeview homepage at http://www.uni-frankfurt.de/~fp/uudeview/.	617	perl(1), uudeview homepage at L<http://www.fpx.de/fp/Software/UUDeview/>.
542		618
543	=cut	619	=cut
		620

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing Convert-UUlib/UUlib.pm (file contents): Revision 1.15 by root, Tue Oct 15 23:35:31 2002 UTC vs. Revision 1.53 by root, Sat Dec 12 02:03:14 2020 UTC

Diff Legend

Comparing Convert-UUlib/UUlib.pm (file contents):
Revision 1.15 by root, Tue Oct 15 23:35:31 2002 UTC vs.
Revision 1.53 by root, Sat Dec 12 02:03:14 2020 UTC