Commit 9afd99723d16431179f19eb6cac15e189a93e5df - im

+12

-0

00changes less more

	0	147 (2004/07/04)
	1
	2	* imsetup.in, cnf.im/SiteConfig.in, dot.im/Config: Add `MsgIdUser'.
	3	* imput.in: New option `--msgiduser'.
	4	* dot.im/get.sbr.refile: New file. A sample file for auto-refiling.
	5	* imsetup.in, cnf.im/SiteConfig.in, dot.im/Config: Add samples for using
	6	`MboxFilter'.
	7	* New config variable `MboxFilter'. (Thanks to Jacques GARRIGUE)
	8	* im*.in: Accept `--version' option.
	9	* imsetup.in, cnf.im/SiteConfig.in, dot.im/Config: Add %INBOX for IMAP.
	10	* imget.in: Doc fix, describe how to set IMAP folder.
	11
0	12	146 (2003/10/28)
1	13
2	14	* IM/TcpTransaction.pm, IM/Pop.pm, IM/Nntp.pm, IM/Imap.pm: Don't use $! as

+8

-0

00diff less more

	0	Differences between IM147 and IM146
	1
	2	* New config variable `MboxFilter'. e.g. `MboxFilter=bogofilter -p -M -I'
	3	directs that the bogofilter command be invoked when retrieving mails
	4	from mbox file (/var/mail/$USER).
	5	* New imput option `--msgiduser'.
	6	* im* commands accept `--version'.
	7
0	8	Differences between IM146 and IM145
1	9
2	10	* Fix that TCP transaction fails with Perl 5.8.1.

+2

-2

00readme less more

2	2	Kazu Yamamoto
3	3	Tatsuya Kinoshita
4	4
5		Mar 22, 2003
	5	Jul 4, 2004
6	6
7	7
8	8	<<<Copyright>>>

98	98	October 2002) by this e-mail address.
99	99
100	100	For the latest news of IM, please see "IM (Internet Message) Official
101		Site" (http://tats.iris.ne.jp/im/).
	101	Site" (http://tats.hauN.jp/im/).
102	102
103	103
104	104	<<<Programmers>>>

+1

-1

IM/Address.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Address.pm version 20031028(IM146)";

+1

-1

IM/Alias.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Alias.pm version 20031028(IM146)";

+9

-4

IM/Config.pm.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Config.pm version 20031028(IM146)";

36	36	context_file getchksbr_file getsbr_file scansbr_file scan_header_pick
37	37	address addresses_regex
38	38	msgdbfile msgdbtype
39		mbox_style
	39	mbox_style mbox_filter
40	40	nntpservers nntphistoryfile nntpauthuser set_nntpauthuser
41	41	popaccount pophistoryfile imapaccount httpproxy noproxy
42	42	usepwagent pwagentport pwagent_tmp_dir pwagent_tmp_path usepwfiles pwfiles

126	126	'getsbr;s;;GetSbrFile' => 'Get hook subroutine script',
127	127	'scansbr;s;;ScanSbrFile' => 'Scan hook subroutine script',
128	128	'scanheaderpick;s;;ScanHeaderPick' => 'Scan headers to pick up',
129		'mboxstyle;s;;MBoxStyle' => 'Style of local MBox format',
	129	'mboxstyle;s;;MBoxStyle' => 'Style of local mailbox format',
	130	'mboxfilter;s;;MboxFilter' => 'Filter for mbox file',
130	131	'nntpservers;s;;NNTPservers' => 'List of NNTP servers',
131	132	'nntphistory;s;;NNTPhistory' => 'Status file of NNTP access',
132	133	'nntpauthuser;s;;NNTPauthuser' => 'User name for NNTP authentication',

870	871
871	872	sub mbox_style() {
872	873	return $MBoxStyle;
	874	}
	875
	876	sub mbox_filter() {
	877	return $MboxFilter;
873	878	}
874	879
875	880	sub nntpservers() {

1149	1154	context_file getchksbr_file getsbr_file scansbr_file scan_header_pick
1150	1155	address addresses_regex
1151	1156	msgdbfile msgdbtype
1152		mbox_style
	1157	mbox_style mbox_filter
1153	1158	nntpservers nntphistoryfile nntpauthuser set_nntpauthuser
1154	1159	popaccount pophistoryfile imapaccount httpproxy noproxy
1155	1160	usepwagent pwagentport pwagent_tmp_dir pwagent_tmp_path usepwfiles pwfiles

+1

-1

IM/EncDec.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::EncDec.pm version 20031028(IM146)";

+1

-1

IM/File.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Jul 7, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::File.pm version 20031028(IM146)";

+1

-1

IM/Folder.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Folder.pm version 20031028(IM146)";

+1

-1

IM/GetPass.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 30, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::GetPass.pm version 20031028(IM146)";

+1

-1

IM/Grep.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Nov 03, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Grep.pm version 20031028(IM146)";

+1

-1

IM/History.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Jul 6, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::History.pm version 20031028(IM146)";

+1

-1

IM/Http.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Http.pm version 20031028(IM146)";

+4

-4

IM/Imap.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Imap.pm version 20031028(IM146)";

156	156	my($seq) = $ImapSeq++;
157	157	my($resp, @field);
158	158	if ($select) {
159		im_notice("select mbox $mbox and getting number of message.\n");
	159	im_notice("select mailbox $mbox and getting number of message.\n");
160	160	$resp = &send_command($HANDLE, "im$seq SELECT $mbox", '');
161	161	} else {
162		im_notice("examine mbox $mbox and getting number of message.\n");
	162	im_notice("examine mailbox $mbox and getting number of message.\n");
163	163	$resp = &send_command($HANDLE, "im$seq EXAMINE $mbox", '');
164	164	}
165	165	my $msgs = -1;

583	583	}
584	584	}
585	585
586		# IMAP folder (--src=imap[%folder][//auth][:user][@server[/port]])
	586	# IMAP folder (--src=imap[/auth\|%folder[//auth]][:user][@server[/port]])
587	587	sub imap_spec($) {
588	588	my $spec = shift;
589	589

+1

-1

IM/Iso2022jp.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Iso2022jp.pm version 20031028(IM146)";

+1

-1

IM/Japanese.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Japanese.pm version 20031028(IM146)";

+39

-15

IM/LocalMbox.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::LocalMbox.pm version 20031028(IM146)";

313	313	my($format, $msgs, $rp, $length, $inheader, @Message);
314	314	local(*MBOX);
315	315
316		im_notice("opening MBOX ($mbox)\n");
	316	im_notice("opening file ($mbox)\n");
317	317	unless (im_open(\*MBOX, "<$mbox")) {
318	318	# XXX not found or unreadable...
319	319	return -1;

345	345	my($format, $msgs, $length, $inheader, @Message);
346	346	local(*MBOX);
347	347	my($first_line, $FIRST_LINE);
348
349		im_info("Getting new messages from local mailbox into $dst...\n")
350		if ($how eq 'get');
351		im_warn("opening MBOX ($mbox)\n") if (&verbose);
352		unless (im_open(\*MBOX, "<$mbox")) {
353		# XXX not found or unreadable...
354		return -1;
	348	my($mbox_filter);
	349
	350	if ($how eq 'get') {
	351	im_info("Getting new messages from local mailbox into $dst...\n");
	352	}
	353	$mbox_filter = &mbox_filter();
	354	if ($mbox_filter ne '') {
	355	if ($mbox_filter =~ /(.+)/) {
	356	if ($main::INSECURE) {
	357	im_warn("Sorry, MboxFilter is ignored for SUID root script.\n");
	358	$mbox_filter = '';
	359	} else {
	360	if ($> != 0) {
	361	$mbox_filter = $1; # to pass through taint check
	362	}
	363	im_warn("opening MBOX ($mbox_filter $mbox)\n") if (&verbose);
	364	unless (im_open(\*MBOX, "$mbox_filter $mbox \|")) {
	365	im_err("MboxFilter failed ($!).\n");
	366	return -1;
	367	}
	368	}
	369	} else {
	370	$mbox_filter = '';
	371	}
	372	}
	373	if ($mbox_filter eq '') {
	374	im_warn("opening MBOX ($mbox)\n") if (&verbose);
	375	unless (im_open(\*MBOX, "<$mbox")) {
	376	# XXX not found or unreadable...
	377	return -1;
	378	}
355	379	}
356	380	chomp($first_line = <MBOX>);
357	381	if ($first_line =~ /^From /) {

546	570	if ($type =~ /file/) {
547	571	# while (!sysopen(LOCK, "$base.lock", O_RDWR()\|O_CREAT()\|O_EXCL())) {
548	572	# if ($retry >= 10) {
549		# im_warn("can't create $base.lock: $!\n");
	573	# im_warn("can't create $base.lock ($!).\n");
550	574	# return -1;
551	575	# }
552	576	# im_warn("mailbox is processed by another process, waiting...\n")

556	580	# }
557	581
558	582	unless (im_open(\*LOCKFILE, ">$base.$$")) {
559		im_warn("can't create lock file $base.$$: $!\n");
	583	im_warn("can't create lock file $base.$$ ($!).\n");
560	584	im_warn("use 'flock' instead of 'file' if possible.\n");
561	585	return -1;
562	586	}

564	588	close(LOCKFILE);
565	589	while (!link("$base.$$", "$base.lock")) {
566	590	if ($retry >= 10) {
567		im_warn("can't create $base.lock: $!\n");
	591	im_warn("can't create $base.lock ($!).\n");
568	592	unlink("$base.$$");
569	593	return -1;
570	594	}

578	602	}
579	603	if ($type =~ /flock/) {
580	604	unless (im_open(\*LOCK_FH, "+<$base")) {
581		im_err "can't open $base :$!\n";
	605	im_err "can't open $base ($!).\n";
582	606	return -1;
583	607	}
584	608	if (! &win95p) {
585	609	unless (flock (LOCK_FH, LOCK_EX\|LOCK_NB)) {
586		im_warn "can't flock $base: $!\n";
	610	im_warn "can't flock $base ($!).\n";
587	611	return -1;
588	612	}
589	613	}

598	622	im_debug("removing lock file with uid=$> gid=$)\n") if (&debug('local'));
599	623	if ($locked_by_file) {
600	624	if (-f "$base.lock" && unlink("$base.lock") <= 0) {
601		im_warn("can't unlink lock file $base.lock: $!\n");
	625	im_warn("can't unlink lock file $base.lock ($!).\n");
602	626	$rcode = -1;
603	627	}
604	628	$locked_by_file = 0;

+1

-1

IM/Log.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Log.pm version 20031028(IM146)";

+1

-1

IM/MD5.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::MD5.pm version 20031028(IM146)";

+2

-8

IM/Message.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Message.pm version 20031028(IM146)";

734	734	if ($main::Message_id_PID) {
735	735	$mid_rnd = "-".$$.$mid_rnd;
736	736	}
737		my $mid_user;
738		if ($main::Message_id_UID) {
739		$mid_user = $<;
740		} else {
741		$mid_user = $main::Login;
742		}
743	737	my($mid)
744		= "<$mid_time$mid_rnd.$mid_user\@$main::Message_id_domain_name>";
	738	= "<$mid_time$mid_rnd.$main::Message_id_user_name\@$main::Message_id_domain_name>";
745	739	$Mid_hist{$part} = $mid if ($part > 0);
746	740	return $mid;
747	741	}

+1

-1

IM/MsgStore.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::MsgStore.pm version 20031028(IM146)";

+1

-1

IM/Nntp.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Nntp.pm version 20031028(IM146)";

+1

-1

IM/Pop.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Pop.pm version 20031028(IM146)";

+1

-1

IM/Recipient.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 27, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Recipient.pm version 20031028(IM146)";

+1

-1

IM/Scan.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Scan.pm version 20031028(IM146)";

+1

-1

IM/Smtp.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Smtp.pm version 20031028(IM146)";

+1

-1

IM/Ssh.pm less more

5	5	### Author: Masatoshi Tsuchiya <tsuchiya@pine.kuee.kyoto-u.ac.jp>
6	6	### Internet Message Group <img@mew.org>
7	7	### Created: Oct 05, 1999
8		### Revised: Oct 28, 2003
	8	### Revised: Jul 4, 2004
9	9	###
10	10
11	11	my $PM_VERSION = "IM::Ssh.pm version 20031028(IM146)";

+1

-1

IM/Stdio.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: May 7, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Stdio.pm version 20031028(IM146)";

+1

-1

IM/TcpTransaction.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::TcpTransaction.pm version 20031028(IM146)";

+1

-1

IM/Util.pm less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	my $PM_VERSION = "IM::Util.pm version 20031028(IM146)";

+8

-4

cnf.im/SiteConfig.in less more

98	98	#rpath=append # conversion of UNIX From into Return-Path:
99	99	#PopHistory=pophist-{POPSERVERID} # to save last state (relative to ~/.im/)
100	100	#NntpHistory=newshist # to save last state (relative to ~/.im/)
101		#MBoxStyle=qmail # if folder style mbox of qmail is used
102		#Imget.Src=local:${HOME}/Maildir # in case of qmail
	101	#MboxFilter=bogofilter -p -M -I # filter for mbox file
	102	#MboxFilter=spamoracle mark
	103	#MBoxFilter=bsfilter --spam-cutoff 0.85 --pipe --insert-flag --mbox 2>/dev/null
	104	#MBoxStyle=qmail # in case of qmail (maildir format)
	105	#Imget.Src=local:${HOME}/Maildir
103	106	UseCL=@im_usecl@ # Use value of Content-Length header
104	107	NoSync=@im_nosync@ # Do not need fsync(2) on writing file
105	108	#FsyncNumber=@im_fsync_no@ # if 0, system call number of fsync is guessed

112	115	#Keep=7 # preserve read messages on server
113	116	#ProtoKeep=UIDL # how to know which message is unread
114	117	# (UIDL, LAST, STATUS, MSGID)
115		#IgnorePostPet=yes # leave messages for PostPet on mbox (POP only)
	118	#IgnorePostPet=yes # leave messages for PostPet on POP server
116	119
117		#Imget.Src=imap
	120	#Imget.Src=imap%INBOX
118	121	#ImapAccount=/AUTH@localhost # account info for IMAP access
119	122	#ImapAccount=/AUTH:user@host # account info with user name
120	123	#HttpProxy=proxy-server:8080 # proxy server for HTTP access

145	148	#FccDir=$MailDir # directory for FCC folders
146	149	#QueueDir=queue # directory for to store messages to be sent
147	150	#UseXDispatcher=yes # use X-Dispatcher field
	151	#MsgIdUser=${USER} # user part for creation of Message-Id:
148	152	#MsgIdDomain=${HOST} # if you want to use FQDN of dispatching host
149	153	#ObeyMTAdomain=yes # do not append domainpart to addresses by imput
150	154	#NoMsgIdForNews=yes # do not insert Message-Id: when posting as news

+8

-4

dot.im/Config less more

103	103	#rpath=append # conversion of UNIX From into Return-Path:
104	104	#PopHistory=pophist-{POPSERVERID} # to save last state (relative to ~/.im/)
105	105	#NntpHistory=newshist # to save last state (relative to ~/.im/)
106		#MBoxStyle=qmail # if folder style mbox of qmail is used
107		#Imget.Src=local:${HOME}/Maildir # in case of qmail
	106	#MboxFilter=bogofilter -p -M -I # filter for mbox file
	107	#MboxFilter=spamoracle mark
	108	#MBoxFilter=bsfilter --spam-cutoff 0.85 --pipe --insert-flag --mbox 2>/dev/null
	109	#MBoxStyle=qmail # in case of qmail (maildir format)
	110	#Imget.Src=local:${HOME}/Maildir
108	111	#UseCL=no # Use value of Content-Length header
109	112	#NoSync=no # Do not need fsync(2) on writing file
110	113	#FsyncNumber=0 # if 0, system call number of fsync is guessed

117	120	#Keep=7 # preserve read messages on server
118	121	#ProtoKeep=UIDL # how to know which message is unread
119	122	# (UIDL, LAST, STATUS, MSGID)
120		#IgnorePostPet=yes # leave messages for PostPet on mbox (POP only)
	123	#IgnorePostPet=yes # leave messages for PostPet on POP server
121	124
122		#Imget.Src=imap
	125	#Imget.Src=imap%INBOX
123	126	#ImapAccount=/AUTH@localhost # account info for IMAP access
124	127	#ImapAccount=/AUTH:user@host # account info with user name
125	128	#HttpProxy=proxy-server:8080 # proxy server for HTTP access

150	153	#FccDir=$MailDir # directory for FCC folders
151	154	#QueueDir=queue # directory for to store messages to be sent
152	155	#UseXDispatcher=yes # use X-Dispatcher field
	156	#MsgIdUser=${USER} # user part for creation of Message-Id:
153	157	#MsgIdDomain=${HOST} # if you want to use FQDN of dispatching host
154	158	#ObeyMTAdomain=yes # do not append domainpart to addresses by imput
155	159	#NoMsgIdForNews=yes # do not insert Message-Id: when posting as news

+1

-1

dot.im/get.sbr less more

35	35	print SEQ "$_: $hash{$_}\n";
36	36	}
37	37
38		close (SEQ);
	38	close(SEQ);
39	39	}
40	40	}
41	41

+73

-0

dot.im/get.sbr.refile less more

	0	# Auto refiling for imget --Perl--
	1
	2	use IM::File qw(im_rename);
	3
	4	sub get_sub ($$$) {
	5	my($folder, $first, $last) = @_;
	6	my($header, $flie, $new_folder, $new_file, $tmp_str, $dir, $msg);
	7	my($touch_file, $touch_file_m, $touch_file_n);
	8
	9	return if ($folder ne &inbox_folder());
	10
	11	$dir = &expand_path($folder);
	12	$touch_file = "$dir/.im_getsbr_touch";
	13
	14	if (-e $touch_file) {
	15	$touch_file_m = -M $touch_file;
	16	$touch_file_n = 0;
	17	if (open(FH, $touch_file)) {
	18	while (<FH>) {
	19	chomp;
	20	$touch_file_n = $_;
	21	}
	22	close(FH);
	23	}
	24	for ($msg = $last; $msg >= $first; $msg--) {
	25	$file = &message_name($folder, $msg);
	26	if (! -e $file) {
	27	last;
	28	}
	29	if (-M $file > $touch_file_m) {
	30	last;
	31	}
	32	if (-M $file == $touch_file_m && $msg <= $touch_file_n) {
	33	last;
	34	}
	35	}
	36	$first = $msg + 1;
	37	}
	38
	39	for ($msg = $first; $msg <= $last; $msg++) {
	40	$file = &message_name($folder, $msg);
	41	if (open(MSG, "$file")) {
	42	$tmp_str = $/;
	43	$/ = "\n\n";
	44	$header = <MSG>;
	45	$/ = $tmp_str;
	46
	47	$new_folder = $folder;
	48	if ($header =~ /(^\|\n)X-Bogosity: Yes/) {
	49	$new_folder = '+spam';
	50	} elsif ($header =~ /(^\|\n)X-Spam-Flag: Yes/) {
	51	$new_folder = '+spam';
	52	} elsif ($header =~ /(^\|\n)X-Spam: yes/) {
	53	$new_folder = '+spam';
	54	# } elsif ($header =~ /(^\|\n)X-ML-Name: mew-dist/) {
	55	# $new_folder = '+mew-dist';
	56	}
	57	if ($new_folder ne $folder) {
	58	$new_file = &message_name($new_folder, 'new') \|\| die $!;
	59	&im_notice("refiling $folder/$msg to $new_folder.\n");
	60	&im_rename($file, $new_file) \|\| die $!;
	61	}
	62	close(MSG);
	63	}
	64	}
	65
	66	if (open(FH, ">$touch_file")) {
	67	print FH "$last\n";
	68	close(FH);
	69	}
	70	}
	71
	72	1;

+22

-11

imali.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imali version 20031028(IM146)";
16
17	15	$Prog = 'imali';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

27	33	use strict;
28	34	use vars qw($Prog $EXPLANATION @OptConfig
29	35	$opt_host $opt_file $opt_addrbook
30		$opt_verbose $opt_debug $opt_help);
	36	$opt_verbose $opt_debug $opt_help $opt_version);
31	37
32	38	##
33	39	## Environments

40	46	";
41	47
42	48	@OptConfig = (
43		'host,H;b;;' => "Lookup hosts alias file.",
44		'file;s;;' => "Set aliases file.",
45		'addrbook;s;;' => "Set Addrbook file.",
46		'verbose;b;;' => 'With verbose messages.',
47		'debug;d;;' => "With debug message.",
48		'help;b;;' => "Show this message.",
	49	'host,H;b;;' => "Lookup hosts alias file",
	50	'file;s;;' => "Set aliases file",
	51	'addrbook;s;;' => "Set Addrbook file",
	52	'verbose;b;;' => 'With verbose messages',
	53	'debug;d;;' => "With debug message",
	54	'help;b;;' => "Display this help and exit",
	55	'version,V;b;;' => "Output version information and exit",
49	56	);
50	57
51	58	##

55	62	init_opt(\@OptConfig);
56	63	read_cfg();
57	64	read_opt(\@ARGV); # help?
	65	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
58	66	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
59
60	67	debug_option($opt_debug) if $opt_debug;
61	68
62	69	##

147	154
148	155	Display help message and exit.
149	156
	157	=item I<--version>
	158
	159	Output version information and exit.
	160
150	161	=back
151	162
152	163	=head1 COPYRIGHT

+23

-12

imcat.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: May 5, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imcat version 20031028(IM146)";
16
17	15	$Prog = 'imcat';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

27	33	use vars qw($Prog $EXPLANATION @EnvConfig @OptConfig
28	34	@servers
29	35	$opt_src $opt_join $opt_boundary
30		$opt_verbose $opt_debug $opt_help);
	36	$opt_verbose $opt_debug $opt_help $opt_version);
31	37
32	38	##
33	39	## Environments

44	50	);
45	51
46	52	@OptConfig = (
47		'src;F;;' => "Folder.",
48		'join;b;;' => "join partial messages.",
49		'boundary;b;;' => "Print start boundary for Mew.",
	53	'src;F;;' => "Folder",
	54	'join;b;;' => "join partial messages",
	55	'boundary;b;;' => "Print start boundary for Mew",
50	56	'SSHServer,S;s;localhost;SSH_server'
51		=> 'SSH port relay server.',
52		'verbose;b;;' => 'With verbose messages.',
53		'debug;d;;' => "With debug message.",
54		'help;b;;' => "Show this message.",
	57	=> 'SSH port relay server',
	58	'verbose;b;;' => 'With verbose messages',
	59	'debug;d;;' => "With debug message",
	60	'help;b;;' => "Display this help and exit",
	61	'version,V;b;;' => "Output version information and exit",
55	62	);
56	63
57	64	##

62	69	read_env(\@EnvConfig);
63	70	read_cfg();
64	71	read_opt(\@ARGV); # help?
	72	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
65	73	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
66
67	74	debug_option($opt_debug) if $opt_debug;
68	75
69	76	##

408	415
409	416	Display help message and exit.
410	417
	418	=item I<--version>
	419
	420	Output version information and exit.
	421
411	422	=back
412	423
413	424	=head1 COPYRIGHT

+21

-10

imcd.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imcd version 20031028(IM146)";
16
17	15	$Prog = 'imcd';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

26	32	use integer;
27	33	use strict;
28	34	use vars qw($Prog $EXPLANATION @OptConfig
29		$opt_src $opt_quiet $opt_verbose $opt_debug $opt_help);
	35	$opt_src $opt_quiet $opt_verbose $opt_debug $opt_help $opt_version);
30	36
31	37	##
32	38	## Environments

39	45	";
40	46
41	47	@OptConfig = (
42		'src;F;;' => "Set source folder.",
43		'quiet;b;;' => "Do not bark.",
44		'verbose;b;;' => 'With verbose messages.',
45		'debug;d;;' => "With debug message.",
46		'help;b;;' => "Show this message.",
	48	'src;F;;' => "Set source folder",
	49	'quiet;b;;' => "Do not bark",
	50	'verbose;b;;' => 'With verbose messages',
	51	'debug;d;;' => "With debug message",
	52	'help;b;;' => "Display this help and exit",
	53	'version,V;b;;' => "Output version information and exit",
47	54	);
48	55
49	56	##

53	60	init_opt(\@OptConfig);
54	61	read_cfg();
55	62	read_opt(\@ARGV); # help?
	63	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
56	64	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
57
58	65	debug_option($opt_debug) if $opt_debug;
59	66
60	67	##

114	121
115	122	Display help message and exit.
116	123
	124	=item I<--version>
	125
	126	Output version information and exit.
	127
117	128	=back
118	129
119	130	=head1 FILES

+24

-12

imclean.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imclean version 20031028(IM146)";
16
17	15	$Prog = 'imclean';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

27	33	use integer;
28	34	use strict;
29	35	use vars qw($Prog $EXPLANATION @OptConfig
30		$opt_src $opt_noharm $opt_quiet $opt_verbose $opt_debug $opt_help);
	36	$opt_src $opt_noharm $opt_quiet $opt_verbose
	37	$opt_debug $opt_help $opt_version);
31	38
32	39	##
33	40	## Environments

40	47	";
41	48
42	49	@OptConfig = (
43		'src;F;;' => "Set a folder to be cleaned up.",
	50	'src;F;;' => "Set a folder to be cleaned up",
44	51	'SSHServer,S;s;localhost;SSH_server'
45		=> 'SSH port relay server.',
46		'noharm;b;;' => "Do not delete files, show what will be performed.",
47		'quiet;b;;' => "Do not show any messages.",
48		'verbose;b;;' => 'With verbose messages.',
49		'debug;d;;' => "With debug message.",
50		'help;b;;' => "Show this message.",
	52	=> 'SSH port relay server',
	53	'noharm;b;;' => "Do not delete files, show what will be performed",
	54	'quiet;b;;' => "Do not show any messages",
	55	'verbose;b;;' => 'With verbose messages',
	56	'debug;d;;' => "With debug message",
	57	'help;b;;' => "Display this help and exit",
	58	'version,V;b;;' => "Output version information and exit",
51	59	);
52	60
53	61	##

57	65	init_opt(\@OptConfig);
58	66	read_cfg();
59	67	read_opt(\@ARGV); # help?
	68	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
60	69	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
61
62	70	debug_option($opt_debug) if $opt_debug;
63	71
64	72	##

198	206	=item I<-h, --help>
199	207
200	208	Display help message and exit.
	209
	210	=item I<--version>
	211
	212	Output version information and exit.
201	213
202	214	=back
203	215

+36

-24

imget.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Jan 14, 1996
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imget version 20031028(IM146)";
16
17	15	$Prog = 'imget';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

30	36	$INSECURE $SUIDROOT
31	37	$opt_quiet $opt_noscan $opt_scaninboxonly $opt_form $opt_jissafe
32	38	$opt_width $opt_lock $opt_count $opt_keep $opt_protokeep $opt_src
33		$opt_dst $opt_mode $opt_assoc $opt_verbose $opt_debug $opt_help
34		$opt_buffer);
	39	$opt_dst $opt_mode $opt_assoc $opt_verbose $opt_buffer
	40	$opt_debug $opt_help $opt_version);
35	41
36	42	##
37	43	## Environments

51	57
52	58	@OptConfig = (
53	59	'src;s;;' =>
54		"Message source: 'local[:path_of_mbox]'\n" .
	60	"Message source: 'local[:path_of_mailbox]'\n" .
55	61	"\t\t\t\t'pop[/APOP\|/RPOP\|/POP][:user][\@host]'\n" .
56	62	"\t\t\t\t'imap[/AUTH\|/LOGIN][:user][\@host]'\n" .
	63	"\t\t\t\t'imap%folder[//AUTH\|//LOGIN][:user][\@host]'\n" .
57	64	"\t\t\t\t'nntp:group[\@host]' or\n" .
58	65	"\t\t\t\t'stdin'" ,
59	66	'dst;s;;' =>
60		'Message destination: "+folder" or "=locally.saved.news".',
61		'noscan;b;;' => 'No scan listings.',
62		'scaninboxonly,o;b;;'=> 'Do not show scanned-lines if InboxFolder != dst.',
	67	'Message destination: "+folder" or "=locally.saved.news"',
	68	'noscan;b;;' => 'No scan listings',
	69	'scaninboxonly,o;b;;'=> 'Do not show scanned-lines if InboxFolder != dst',
63	70	'form;s;;' => 'Scan format',
64	71	'buffer;B;;' => 'Make output data buffered',
65	72	'jissafe;b;;' => 'Safe manner for JIS',
66		'width;i;;' => 'Width of result for scan listings.',
	73	'width;i;;' => 'Width of result for scan listings',
67	74	# 'thread;b;;' => 'Make threads',
68	75	# 'indent;i;;' => "Width of thread indent",
69	76	'lock;s;flock;' => 'Local mailbox locking style. (none,flock,file)',
70	77	'rpath;s;append;' => "Conversion of UNIX From line into Return-Path:\n" .
71	78	"\t\t(append, ignore, replace)",
72		'keep;i;0;' => "Preserve messages.\n" .
	79	'keep;i;0;' => "Preserve messages\n" .
73	80	"\t\t(POP: in days; 0=delete immediately, -1=preserve forever)\n" .
74	81	"\t\t(otherwise: 0=delete immediately, non0=preserve forever)",
75		'protokeep;s;UIDL;'=> "Protocol type to use for keeping messages on POP.\n".
	82	'protokeep;s;UIDL;'=> "Protocol type to use for keeping messages on POP\n".
76	83	"\t\t(UIDL, LAST, STATUS, MSGID)\n" .
77		"\t\tTimed out deletion is not supported with LAST.",
	84	"\t\tTimed out deletion is not supported with LAST",
78	85	'usecl;b;;Obey_CL' => "Use value of Content-Length header for delimitation".
79		".\n\t\t(effective only if source of messages is local)." ,
	86	"\n\t\t(effective only if source of messages is local)" ,
80	87	'count;i;;' => 'Number of messages to be gotten in a process (NNTP)',
81		'mode;s;get;' => 'Processing mode: "get", "from" or "check".',
	88	'mode;s;get;' => 'Processing mode: "get", "from" or "check"',
82	89	'assoc;s;;' => "Association list: dst1=src1;dst2=src2;...\n" .
83		"\t\tThis overrides --dst and --src options.",
	90	"\t\tThis overrides --dst and --src options",
84	91	'mimedecodequoted,x;b;;' => 'Decode broken mime-encoded strings',
85	92	'SSHServer,S;s;localhost;SSH_server'
86		=> 'SSH port relay server.',
87		'quiet;b;;' => 'Suppress informational messages.',
88		'verbose;b;;' => 'With verbose messages.',
89		'debug;d;;' => "With debug message.",
90		'help;b;;' => 'Display this help message.',
	93	=> 'SSH port relay server',
	94	'quiet;b;;' => 'Suppress informational messages',
	95	'verbose;b;;' => 'With verbose messages',
	96	'debug;d;;' => "With debug message",
	97	'help;b;;' => "Display this help and exit",
	98	'version,V;b;;' => "Output version information and exit",
91	99	);
92	100
93	101	##

129	137	my $cnf_dst = $opt_dst; $opt_dst = '';
130	138	my $cnf_assoc = $opt_assoc; $opt_assoc = '';
131	139	read_opt(\@ARGV); # help?
	140	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
132	141	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
133
134	142	debug_option($opt_debug) if $opt_debug;
135	143
136	144	##

256	264
257	265	=item I<-s, --src=STRING>
258	266
259		Message source: 'local[:path_of_mbox]',
	267	Message source: 'local[:path_of_mailbox]',
260	268	'pop[/APOP\|/RPOP\|/POP][:user][@host]',
261		'imap[/AUTH\|/LOGIN][:user][@host]',
	269	'imap[[/AUTH\|/LOGIN]\|%folder[//AUTH\|//LOGIN]][:user][@host]',
262	270	'nntp:group[@host]', or
263	271	'stdin'.
264	272

356	364	=item I<-h, --help>
357	365
358	366	Display help message and exit.
	367
	368	=item I<--version>
	369
	370	Output version information and exit.
359	371
360	372	=back
361	373

+21

-10

imgrep.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imgrep version 20031028(IM146)";
16
17	15	$Prog = 'imgrep';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

29	35	use vars qw($Prog $EXPLANATION @OptConfig
30	36	$opt_format @opt_src $opt_casefold $opt_expression
31	37	$opt_delimiter $opt_dupchecktarget $opt_verbose $opt_debug
32		$opt_quiet $opt_help);
	38	$opt_quiet $opt_help $opt_version);
33	39
34	40	##
35	41	## Environments

60	66	"\n\t\t(default: \"number\" for single target folder".
61	67	"\n\t\t \"path\" for multiple target folders)",
62	68	'casefold;b;on;' => 'Case sensitivity'.
63		"\n\t\t(This option affects both fieldname and pattern.)",
	69	"\n\t\t(This option affects both fieldname and pattern)",
64	70	'expression;s;;' => 'Search expression:'.
65	71	"\n\n\t\tUsable keyword".
66	72	"\n\t\t\t& && logical AND".

74	80	"\n\t\t\tall Entire message",
75	81	'delimiter;s;\n\n\|\n----\n;' => 'Mail header delimiter',
76	82	'dupchecktarget,D;s;none;' => 'Duplicate Check Target',
77		'quiet;b;;' => 'Suppress informational messages.',
78		'verbose;b;;' => 'With diagnostic messages.',
79		'debug;d;;' => 'With debug messages.',
80		'help;b;;' => 'Show this messages.',
	83	'quiet;b;;' => 'Suppress informational messages',
	84	'verbose;b;;' => 'With diagnostic messages',
	85	'debug;d;;' => 'With debug messages',
	86	'help;b;;' => "Display this help and exit",
	87	'version,V;b;;' => "Output version information and exit",
81	88	);
82	89
83	90	##

87	94	init_opt(\@OptConfig);
88	95	read_cfg();
89	96	read_opt(\@ARGV); # help?
	97	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
90	98	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
91
92	99	debug_option($opt_debug) if $opt_debug;
93	100
94	101	##

255	262	=item I<-h, --help>
256	263
257	264	Display help message and exit.
	265
	266	=item I<--version>
	267
	268	Output version information and exit.
258	269
259	270	=back
260	271

+25

-14

imhist.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Jul 6, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imhist version 20031028(IM146)";
16
17	15	$Prog = 'imhist';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

30	36	use vars qw($Prog $EXPLANATION @OptConfig
31	37	@Hdr
32	38	$opt_lookup $opt_remove $opt_msg $opt_dump $opt_add
33		$opt_subfolders $opt_verbose $opt_debug $opt_help);
	39	$opt_subfolders $opt_verbose $opt_debug $opt_help $opt_version);
34	40
35	41	##
36	42	## Environments

43	49	";
44	50
45	51	@OptConfig = (
46		'lookup;s;;' => 'Look up an entry for specified message-id.',
47		'remove;s;;' => 'Remove whole information on specified message-id.',
48		'msg;s;;' => 'Message to be deleted if multiple in database.',
49		'dump;b;;' => 'Dump database just for debugging.',
50		'add;f;;' => 'Add information of messages in a specified folder.',
51		'subfolders;b;;' => 'Descend sub folders recursively (option for --add).',
52		'verbose;b;;' => 'With verbose messages.',
53		'debug;d;;' => "With debug message.",
54		'help;b;;' => "Show this message.",
	52	'lookup;s;;' => 'Look up an entry for specified message-id',
	53	'remove;s;;' => 'Remove whole information on specified message-id',
	54	'msg;s;;' => 'Message to be deleted if multiple in database',
	55	'dump;b;;' => 'Dump database just for debugging',
	56	'add;f;;' => 'Add information of messages in a specified folder',
	57	'subfolders;b;;' => 'Descend sub folders recursively (option for --add)',
	58	'verbose;b;;' => 'With verbose messages',
	59	'debug;d;;' => "With debug message",
	60	'help;b;;' => "Display this help and exit",
	61	'version,V;b;;' => "Output version information and exit",
55	62	);
56	63
57	64	##

61	68	init_opt(\@OptConfig);
62	69	read_cfg();
63	70	read_opt(\@ARGV); # help?
	71	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
64	72	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
65
66	73	debug_option($opt_debug) if $opt_debug;
67	74
68	75	##

250	257	=item I<-h, --help>
251	258
252	259	Display help message and exit.
	260
	261	=item I<--version>
	262
	263	Output version information and exit.
253	264
254	265	=back
255	266

+22

-11

imhsync.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Jul 02, 1998
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imhsync version 20031028(IM146)";
16
17	15	$Prog = 'imhsync';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

28	34	use integer;
29	35	use strict;
30	36	use vars qw($Prog $EXPLANATION @OptConfig @Hdr %Folder
31		$opt_db $opt_folder $opt_verbose $opt_debug $opt_help);
	37	$opt_db $opt_folder $opt_verbose $opt_debug $opt_help $opt_version);
32	38
33	39	##
34	40	## Environments

41	47	";
42	48
43	49	@OptConfig = (
44		'db;s;;' => 'reference DB.',
45		'folder;s;;' => 'folder to be refiled.',
46		'verbose;b;;' => 'With verbose messages.',
47		'debug;d;;' => "With debug message.",
48		'help;b;;' => "Show this message.",
	50	'db;s;;' => 'reference DB',
	51	'folder;s;;' => 'folder to be refiled',
	52	'verbose;b;;' => 'With verbose messages',
	53	'debug;d;;' => "With debug message",
	54	'help;b;;' => "Display this help and exit",
	55	'version,V;b;;' => "Output version information and exit",
49	56	);
50	57
51	58	##

55	62	init_opt(\@OptConfig);
56	63	read_cfg();
57	64	read_opt(\@ARGV); # help?
	65	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
58	66	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
59
60	67	debug_option($opt_debug) if $opt_debug;
61	68
62	69	##

197	204	}
198	205
199	206	unless ($db) {
200		im_err "history: can not access $dbfile ($!)\n";
	207	im_err "history: can not access $dbfile ($!).\n";
201	208	return -1;
202	209	}
203	210	if ($DBtype eq 'DB') {

282	289	=item I<-h, --help>
283	290
284	291	Display help message and exit.
	292
	293	=item I<--version>
	294
	295	Output version information and exit.
285	296
286	297	=back
287	298

+22

-11

imjoin.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: May 5, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imjoin version 20031028(IM146)";
16
17	15	$Prog = 'imjoin';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

26	32	use integer;
27	33	use strict;
28	34	use vars qw($Prog $EXPLANATION @EnvConfig @OptConfig $opt_noscan
29		$opt_src $opt_dst $opt_verbose $opt_debug $opt_help);
	35	$opt_src $opt_dst $opt_verbose $opt_debug $opt_help $opt_version);
30	36
31	37	##
32	38	## Environments

39	45	";
40	46
41	47	@OptConfig = (
42		'src;f;;' => "Source folder.",
43		'dst;s;+inbox;' => "Destination folder.",
44		'verbose;b;;' => 'With verbose messages.',
45		'debug;d;;' => "With debug message.",
46		'help;b;;' => "Show this message.",
47		);
	48	'src;f;;' => "Source folder",
	49	'dst;s;+inbox;' => "Destination folder",
	50	'verbose;b;;' => 'With verbose messages',
	51	'debug;d;;' => "With debug message",
	52	'help;b;;' => "Display this help and exit",
	53	'version,V;b;;' => "Output version information and exit",
	54	);
48	55
49	56	##
50	57	## Profile and option processing

54	61	read_env(\@EnvConfig);
55	62	read_cfg();
56	63	read_opt(\@ARGV); # help?
	64	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
57	65	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
58
59	66	debug_option($opt_debug) if $opt_debug;
60	67
61	68	##

320	327
321	328	Display help message and exit.
322	329
	330	=item I<--version>
	331
	332	Output version information and exit.
	333
323	334	=back
324	335
325	336	=head1 COPYRIGHT

+23

-11

imls.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Dec 31, 1995
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imls version 20031028(IM146)";
16
17	15	$Prog = 'imls';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

29	35	@servers
30	36	$opt_form $opt_jissafe $opt_width $opt_thread @opt_src
31	37	$opt_indent $opt_grep $opt_namazu $opt_delimiter $opt_casefold
32		$opt_verbose $opt_debug $opt_quiet $opt_help $opt_buffer);
	38	$opt_buffer $opt_verbose $opt_quiet
	39	$opt_debug $opt_help $opt_version);
33	40
34	41	##
35	42	## Environments

64	71	'grep;s;;' => "Grep pattern for vscan",
65	72	'namazu;b;;' => "Use namazu for vscan",
66	73	'casefold;b;on;' => 'Case sensitivity'.
67		"\n\t\t(This option affects both fieldname and pattern.)",
	74	"\n\t\t(This option affects both fieldname and pattern)",
68	75	'delimiter;s;\n\n\|\n----\n;' => 'Mail header delimiter',
69	76	'dupchecktarget,D;s;;' => 'Duplicate Check Target',
70	77	'mimedecodequoted,x;b;;' => 'Decode broken mime-encoded strings',
71	78	'SSHServer,S;s;localhost;SSH_server'
72		=> 'SSH port relay server.',
73		'quiet;b;;' => 'Suppress informational messages.',
74		'verbose;b;;' => 'With verbose messages.',
75		'debug;d;;' => "With debug message.",
76		'help;b;;' => 'Show this message',
	79	=> 'SSH port relay server',
	80	'quiet;b;;' => 'Suppress informational messages',
	81	'verbose;b;;' => 'With verbose messages',
	82	'debug;d;;' => "With debug message",
	83	'help;b;;' => "Display this help and exit",
	84	'version,V;b;;' => "Output version information and exit",
77	85	);
78	86
79	87	##

83	91	init_opt(\@OptConfig);
84	92	read_cfg();
85	93	read_opt(\@ARGV); # help?
	94	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
86	95	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
87
88	96	debug_option($opt_debug) if $opt_debug;
89	97
90	98	##

677	685	=item I<-h, --help>
678	686
679	687	Display help message and exit.
	688
	689	=item I<--version>
	690
	691	Output version information and exit.
680	692
681	693	=back
682	694

+24

-11

immknmz.in less more

5	5	### Author: Shuichi Kitaguchi <kit@Mew.org>
6	6	### Internet Message Group <img@mew.org>
7	7	### Created: Sep 23, 1999
8		### Revised: Oct 28, 2003
	8	### Revised: Jul 4, 2004
9	9	###
10	10
11	11	BEGIN {

13	13	@im_src_siteperl@
14	14	};
15	15
16		my $VERSION = "immknmz version 20031028(IM146)";
17
18	16	$Prog = 'immknmz';
	17	my $VERSION_DATE = "20040704";
	18	my $VERSION_NUMBER = "147";
	19	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	20	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	21	Copyright (C) 1999 IM developing team
	22	This is free software; see the source for copying conditions. There is NO
	23	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	24	";
19	25
20	26	use IM::Config;
21	27	use IM::Util;
22	28	use IM::Folder;
23	29	use IO::File;
24	30	use strict;
25		use vars qw($Prog $EXPLANATION @OptConfig $opt_help $opt_verbose
26		@opt_src $opt_gcnmz $opt_timestamp);
	31	use vars qw($Prog $EXPLANATION @OptConfig
	32	@opt_src $opt_gcnmz $opt_timestamp $opt_verbose
	33	$opt_help $opt_version);
27	34
28	35	$EXPLANATION = "$VERSION
29	36	make namazu index for mail folders

32	39	";
33	40
34	41	@OptConfig = (
35		'src;F@;;' => 'Set source folders. (Mail/.folders file is used by default)',
36		'gcnmz;b;;' => "Use gcnmz after mknmz (Garbage Collection for Namazu index).",
37		'timestamp;b;;' => "Use checking time stamp.",
38		'verbose;b;;' => "With verbose messages.",
39		'help;b;;' => "Show this message.",
40		);
	42	'src;F@;;' => 'Set source folders (Mail/.folders file is used by default)',
	43	'gcnmz;b;;' => "Use gcnmz after mknmz (Garbage Collection for Namazu index)",
	44	'timestamp;b;;' => "Use checking time stamp",
	45	'verbose;b;;' => "With verbose messages",
	46	'help;b;;' => "Display this help and exit",
	47	'version,V;b;;' => "Output version information and exit",
	48	);
41	49
42	50	init_opt(\@OptConfig);
43	51	read_cfg();
44	52	read_opt(\@ARGV);
	53	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
45	54	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
46	55
47	56	my $lockdir = namazu_lock_path();

285	294	=item I<-h, --help>
286	295
287	296	Display help message and exit.
	297
	298	=item I<--version>
	299
	300	Output version information and exit.
288	301
289	302	=back
290	303

+24

-13

immv.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "immv version 20031028(IM146)";
16
17	15	$Prog = 'immv';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

30	36	use vars qw($Prog $EXPLANATION @OptConfig
31	37	@msgs
32	38	$opt_link $opt_noharm $opt_src @opt_dst
33		$opt_verbose $opt_debug $opt_help);
	39	$opt_verbose $opt_debug $opt_help $opt_version);
34	40
35	41	##
36	42	## Environments

45	51	";
46	52
47	53	@OptConfig = (
48		'src;f;;' => "Set source folder.",
49		'dst;F@;;' => "Set destination folders.",
50		'link;b;;' => "Remain original msg in src folder.",
	54	'src;f;;' => "Set source folder",
	55	'dst;F@;;' => "Set destination folders",
	56	'link;b;;' => "Remain original msg in src folder",
51	57	'SSHServer,S;s;localhost;SSH_server'
52		=> 'SSH port relay server.',
53		'noharm;b;;' => "Display the commands but do not actually execute them.",
54		'verbose;b;;' => 'With verbose messages.',
55		'debug;d;;' => "With debug message.",
56		'help;b;;' => "Show this message.",
	58	=> 'SSH port relay server',
	59	'noharm;b;;' => "Display the commands but do not actually execute them",
	60	'verbose;b;;' => 'With verbose messages',
	61	'debug;d;;' => "With debug message",
	62	'help;b;;' => "Display this help and exit",
	63	'version,V;b;;' => "Output version information and exit",
57	64	);
58	65
59	66	##

63	70	init_opt(\@OptConfig);
64	71	read_cfg();
65	72	read_opt(\@ARGV); # help?
	73	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
66	74	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
67
68	75	debug_option($opt_debug) if $opt_debug;
69	76
70	77	##

297	304	=item I<-h, --help>
298	305
299	306	Display help message and exit.
	307
	308	=item I<--version>
	309
	310	Output version information and exit.
300	311
301	312	=back
302	313

+22

-10

impack.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "impack version 20031028(IM146)";
16
17	15	$Prog = 'impack';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

27	33	use integer;
28	34	use strict;
29	35	use vars qw($Prog $EXPLANATION @OptConfig
30		$opt_src $opt_noharm $opt_verbose $opt_debug $opt_help);
	36	$opt_src $opt_noharm $opt_verbose
	37	$opt_debug $opt_help $opt_version);
31	38
32	39	##
33	40	## Environments

40	47	";
41	48
42	49	@OptConfig =(
43		'src;F;;' => "Set source folder.",
44		'noharm;b;;' => "No packing. Show what will happen.",
45		'verbose;b;;' => 'With verbose messages.',
46		'debug;d;;' => "With debug message.",
47		'help;b;;' => "Show this message.",
	50	'src;F;;' => "Set source folder",
	51	'noharm;b;;' => "No packing. Show what will happen",
	52	'verbose;b;;' => 'With verbose messages',
	53	'debug;d;;' => "With debug message",
	54	'help;b;;' => "Display this help and exit",
	55	'version,V;b;;' => "Output version information and exit",
48	56	);
49	57
50	58	##

54	62	init_opt(\@OptConfig);
55	63	read_cfg();
56	64	read_opt(\@ARGV); # help?
	65	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
57	66	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
58
59	67	debug_option($opt_debug) if $opt_debug;
60	68
61	69	##

138	146
139	147	Display help message and exit.
140	148
	149	=item I<--version>
	150
	151	Output version information and exit.
	152
141	153	=back
142	154
143	155	=head1 COPYRIGHT

+23

-11

impath.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "impath version 20031028(IM146)";
16
17	15	$Prog = 'impath';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

26	32	use integer;
27	33	use strict;
28	34	use vars qw($Prog $EXPLANATION @OptConfig
29		$opt_src $opt_list $opt_path $opt_verbose $opt_debug $opt_help);
	35	$opt_src $opt_list $opt_path $opt_verbose
	36	$opt_debug $opt_help $opt_version);
30	37
31	38	##
32	39	## Environments

39	46	";
40	47
41	48	@OptConfig =(
42		'src;F;;' => "Set source folder.",
43		'list;b;;' => "Show list of folders.",
44		'path;b;;' => "Show important paths.",
45		'verbose;b;;' => 'With verbose messages.',
46		'debug;d;;' => "With debug message.",
47		'help;b;;' => "Show this message.",
	49	'src;F;;' => "Set source folder",
	50	'list;b;;' => "Show list of folders",
	51	'path;b;;' => "Show important paths",
	52	'verbose;b;;' => 'With verbose messages',
	53	'debug;d;;' => "With debug message",
	54	'help;b;;' => "Display this help and exit",
	55	'version,V;b;;' => "Output version information and exit",
48	56	);
49	57
50	58	##

54	62	init_opt(\@OptConfig);
55	63	read_cfg();
56	64	read_opt(\@ARGV); # help?
	65	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
57	66	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
58
59	67	debug_option($opt_debug) if $opt_debug;
60	68
61	69	##

214	222	=item I<-h, --help>
215	223
216	224	Display help message and exit.
	225
	226	=item I<--version>
	227
	228	Output version information and exit.
217	229
218	230	=back
219	231

+104

-77

imput.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Aug 31, 1995
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		$VERSION = "imput version 20031028(IM146)";
16
17	15	$Prog = 'imput';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	$VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	require 5.003;
20	26

39	45	use strict 'subs';
40	46	use vars qw($DebugAll $QueueStatus $Subject $Ignore_Dot $Fcc_partial
41	47	$News_severe_check $PreserveMessage $Queuing $Comment_Name
42		$Help $JustQueuing $Me_too $Dcc_Address $PGP_Sign);
	48	$JustQueuing $Me_too $Dcc_Address $PGP_Sign
	49	$opt_verbose $Help $opt_version);
43	50
44	51	$EXPLANATION = "$VERSION
45	52	put mail/news message into networks

66	73
67	74	@OptConfig = (
68	75	# table of commandline options
	76	'version,V;b;;opt_version'
	77	=> "Output version information and exit",
69	78	'Help;b;;Help'
70		=> 'Show this message.',
	79	=> "Display this help and exit",
71	80	'Debug;b;;DebugAll'
72		=> 'Set all debug options.',
	81	=> 'Set all debug options',
73	82	'DebugFlag;s;;DebugFlag'
74		=> "Set specific debug options (separated with ',').",
	83	=> "Set specific debug options (separated with ',')",
75	84	'Verbose;b;;opt_verbose'
76		=> 'Set verbose mode.',
	85	=> 'Set verbose mode',
77	86	## late evaluated options
78	87	'Require;s;;User_require'
79		=> 'User defined perl script to be required.',
	88	=> 'User defined perl script to be required',
80	89	'SMTPservers;s;localhost;Smtp_servers'
81	90	=> "List of SMTP servers (separated with ',')
82	91	Each element should be server[/remote_port][%local_port]",
83	92	'EmgSMTPsvrs;s;;Emg_Smtp_servers'
84		=> 'List of SMTP servers for Emergency Use (i.e. error reporting).',
	93	=> 'List of SMTP servers for Emergency Use (i.e. error reporting)',
85	94	'TryNextOnFatal;b;;Smtp_fatal_next'
86		=> 'Try next SMTP server evenif permanent failure.',
	95	=> 'Try next SMTP server evenif permanent failure',
87	96	'NNTPservers;s;localhost;Nntp_servers'
88	97	=> "List of NNTP servers (separated with ',').
89	98	Each element should be server[/remote_port][%local_port]",
90	99	'NNTPauthuser;s;;Nntp_authuser'
91		=> 'User name for NNTP authentication.',
	100	=> 'User name for NNTP authentication',
92	101	'ClientName;s;localhost;Client_name'
93		=> 'Name as a SMTP client (used for SMTP HELO).',
	102	=> 'Name as a SMTP client (used for SMTP HELO)',
94	103	'SSHServer;s;localhost;SSH_server'
95		=> 'SSH port relay server.',
	104	=> 'SSH port relay server',
96	105	'ObeyMTAdomain;b;;Obey_MTA_domain'
97		=> 'Do not qualify local addresses with default domain.',
	106	=> 'Do not qualify local addresses with default domain',
98	107	'FromDomain;s;;Default_from_domain_name'
99		=> 'Default domain name for sender.',
	108	=> 'Default domain name for sender',
100	109	'ToDomain;s;;Default_to_domain_name'
101		=> 'Default domain name for recipients.',
	110	=> 'Default domain name for recipients',
	111	'MsgIdUser;s;;Message_id_user_name'
	112	=> 'A user name for Message-Id generation',
102	113	'MsgIdDomain;s;;Message_id_domain_name'
103		=> 'Default domain name for Message-Id generation.',
	114	=> 'A domain name for Message-Id generation',
104	115	'NoMsgIdForNews;s;;NoMsgIdForNews'
105		=> 'Strip Message-Id when posting to news system.',
	116	=> 'Strip Message-Id when posting to news system',
106	117	'User;s;;User_name'
107		=> "Local part of the sender's address.",
	118	=> "Local part of the sender's address",
108	119	'Address;s;;Mail_Address'
109	120	=> 'Address used in From: header; equivalent to User@FromDomain',
110	121	'Name;s;;Sender_name'
111	122	=> 'Commentary name for sender',
112	123	'NameInComment;b;;Comment_Name'
113		=> 'Show commentary name in () on From: header.',
	124	=> 'Show commentary name in () on From: header',
114	125	'Org;s;;Organization'
115		=> 'Name of organization for news posting.',
	126	=> 'Name of organization for news posting',
116	127	'Subj;s;;Subject'
117		=> 'A string for subject field.',
	128	=> 'A string for subject field',
118	129	'NScmpl;b;;Cmpl_with_gethostbyname'
119		=> 'Use domain-part completion with nameserver.',
	130	=> 'Use domain-part completion with nameserver',
120	131	'ShowRcpts;b;1;Show_Rcpts_Header'
121		=> 'Allow to show recipients in header as To: if no To: in original.',
	132	=> 'Allow to show recipients in header as To: if no To: in original',
122	133	'MeToo;b;;Me_too'
123		=> 'Request DCC to me.',
	134	=> 'Request DCC to me',
124	135	'Dcc;s;;Dcc_Address'
125		=> 'Supplemental DCC address.',
	136	=> 'Supplemental DCC address',
126	137	'Fcc;s;;Fcc_folder'
127		=> 'Folder name to save FCC.',
	138	=> 'Folder name to save FCC',
128	139	'Receipt;b;;Dsn_success_report'
129		=> 'Need a report of successful delivery.',
	140	=> 'Need a report of successful delivery',
130	141	'Group;s;;Newsgroups'
131		=> 'Newsgroup names to be posted in.',
	142	=> 'Newsgroup names to be posted in',
132	143	## if ISO2022JP
133	144	'JPconv;b;;Iso2022jp_code_conversion'
134		=> 'Convert japanese character encoding from EUC/SJIS to JIS.',
	145	=> 'Convert japanese character encoding from EUC/SJIS to JIS',
135	146	'DefCode;s;8BIT;Default_code'
136		=> 'Default classification of japanese character code.' .
	147	=> 'Default classification of japanese character code' .
137	148	"\n\t\t(EUC/SJIS/8BIT)",
138	149	'JPheader;b;1;Iso2022jp_header_mime_conv'
139		=> 'Encode japanese JIS characters to MIME style at header.',
	150	=> 'Encode japanese JIS characters to MIME style at header',
140	151	'HdrQEncoding;b;;HdrQEncoding'
141		=> 'Header encoding type: 0 is B; 1 is Q.',
	152	=> 'Header encoding type: 0 is B; 1 is Q',
142	153	## endif
143	154	'NoHdrFolding;b;;NoFolding'
144		=> 'Do not fold long header lines.',
	155	=> 'Do not fold long header lines',
145	156	'SortHeader;s;;HeaderSeq'
146		=> "Header sequence for sorting (labels separated with ',').",
	157	=> "Header sequence for sorting (labels separated with ',')",
147	158	'8to7;b;;Conv_8to7'
148		=> 'Convert 8bit body to 7bit by base64/quoted-printable encoding.',
	159	=> 'Convert 8bit body to 7bit by base64/quoted-printable encoding',
149	160	'8BitLabel;s;unknown-8bit;Unknown8bit_label'
150		=> 'Sub-type label for unknown 8bit body on Content-Type:.',
	161	=> 'Sub-type label for unknown 8bit body on Content-Type:',
151	162	'Lines;i;;Lines_to_partial' # XXX
152		=> 'Line numbers for splitting into partial messages.',
	163	=> 'Line numbers for splitting into partial messages',
153	164	'Sleep;i;10;Partial_sleep'
154		=> 'Sleep interval for dispatching each splitted messages.',
	165	=> 'Sleep interval for dispatching each splitted messages',
155	166	'Log;s;putlog;Log_file' # XXX
156		=> 'File name to write delivery log.',
	167	=> 'File name to write delivery log',
157	168	'Syslog;b;;'
158		=> 'Use SYSLOG feature instead of writing to a file directly.',
	169	=> 'Use SYSLOG feature instead of writing to a file directly',
159	170	'Report;b;1;Error_report_by_mail'
160		=> 'Report errors via mail.',
	171	=> 'Report errors via mail',
161	172	'MsgId;b;1;Generate_message_id'
162		=> 'Generate Message-Id header line.',
	173	=> 'Generate Message-Id header line',
163	174	'PidMsgId;b;;Message_id_PID'
164		=> 'Generate Message-Id with Process ID.',
	175	=> 'Generate Message-Id with Process ID',
165	176	'UidMsgId;b;;Message_id_UID'
166		=> 'Generate Message-Id with User ID instead of login name.',
	177	=> 'Generate Message-Id with User ID instead of login name',
167	178	'Date;b;1;Generate_date'
168		=> 'Generate Date header line.',
	179	=> 'Generate Date header line',
169	180	'NewsGMTdate;b;;NewsGMTdate'
170		=> 'Generate date field in GMT for posting news.',
	181	=> 'Generate date field in GMT for posting news',
171	182	'UseLines;b;1;UseLines'
172		=> 'Generate Lines header line.',
	183	=> 'Generate Lines header line',
173	184	'AliasesFile;s;;Mail_aliases' # XXX
174		=> 'List of files for mail address aliasing.',
	185	=> 'List of files for mail address aliasing',
175	186	'Addrbook;s;;addrbooks'
176		=> 'List of Addrbook files.',
	187	=> 'List of Addrbook files',
177	188	'HostAliases;s;;Host_aliases' # XXX
178		=> 'List of files for domain part completion.',
	189	=> 'List of files for domain part completion',
179	190	'FccPartial;b;;Fcc_partial'
180		=> 'Save FCC with partial format.',
	191	=> 'Save FCC with partial format',
181	192	'Dead;s;dead.letter;Dead_letter' # XXX
182		=> 'Path of file to save unsent message as a deadletter.',
	193	=> 'Path of file to save unsent message as a deadletter',
183	194	'JustQueuing;b;;JustQueuing'
184		=> 'Just store message into queue without attempt of delivery.',
	195	=> 'Just store message into queue without attempt of delivery',
185	196	'Queuing;b;;Queuing'
186		=> 'Store message into queue on delivery failure.',
	197	=> 'Store message into queue on delivery failure',
187	198	'ProcessQueue;b;;ProcessQueue'
188		=> 'Process queued messages.',
	199	=> 'Process queued messages',
189	200	'QueueStatus;b;;QueueStatus'
190		=> 'Show list of queued messages.',
	201	=> 'Show list of queued messages',
191	202	'Folder;s;;Draft_folder'
192		=> 'Path of draft folder directory.',
	203	=> 'Path of draft folder directory',
193	204	'MIMEbcc;b;1;Mime_bcc'
194		=> 'Use MIME (message/rfc822) style BCC.',
	205	=> 'Use MIME (message/rfc822) style BCC',
195	206	'TrashMark;s;#;Trashmark'
196		=> 'Prefix character for draft message file renaming.',
	207	=> 'Prefix character for draft message file renaming',
197	208	'Preserve;b;;PreserveMessage'
198		=> 'Preserve draft message as is even if dispatched successfully.',
	209	=> 'Preserve draft message as is even if dispatched successfully',
199	210	'Message;s;;Draft_message'
200		=> 'Path/name of draft message.',
	211	=> 'Path/name of draft message',
201	212	'PGPsign;b;;PGP_Sign'
202		=> 'Generate PGP signature for body-part.',
	213	=> 'Generate PGP signature for body-part',
203	214	'MultipartAdd;s@;;Mulipart_messages'
204		=> 'Path/name of message to be added as a part of multipart message.',
	215	=> 'Path/name of message to be added as a part of multipart message',
205	216	'FilenameAdd;b;;Filename_Add'
206		=> 'Add filename field at Content-Disposition header.',
	217	=> 'Add filename field at Content-Disposition header',
207	218	'SMTP;b;;Smtp_input_mode'
208		=> 'Perform SMTP style input mode.',
	219	=> 'Perform SMTP style input mode',
209	220	'Annotate;b;;Anno_flag'
210		=> 'Annotate on the parent message (MsgDB required).',
	221	=> 'Annotate on the parent message (MsgDB required)',
211	222	'Dist;b;;Dist_flag'
212		=> 'Redistribution mode (using Resent-*:).',
	223	=> 'Redistribution mode (using Resent-*:)',
213	224	'DistMsg;s;;Dist_file'
214		=> 'Path of message for redistribution.',
	225	=> 'Path of message for redistribution',
215	226	'ObeyHeader;b;;Obey_header'
216		=> 'Collect recipients from message header.',
	227	=> 'Collect recipients from message header',
217	228	'IgnoreDot;b;;Ignore_Dot'
218		=> 'Ignore DOT for message termination.',
	229	=> 'Ignore DOT for message termination',
219	230	'NewsCheck;b;;News_severe_check'
220		=> 'No news posting if To, Cc header found evenif Newsgroups: exists.',
	231	=> 'No news posting if To, Cc header found evenif Newsgroups: exists',
221	232	'ESMTP;b;;Esmtp_flag'
222		=> 'Enforce ESMTP (always begins with EHLO).',
	233	=> 'Enforce ESMTP (always begins with EHLO)',
223	234	'NewsPost;b;1;News_flag'
224		=> 'Enable NNTP.',
	235	=> 'Enable NNTP',
225	236	'AddHeader;s@;;Add_headers'
226		=> 'Header lines to be added.',
	237	=> 'Header lines to be added',
227	238	);
228	239
229	240	@CmpConfig = (

292	303	$error = 1 if (set_selector($selector) < 0);
293	304	}
294	305	read_opt(\@ARGV);
	306	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
295	307	help($EXPLANATION) && exit $EXIT_SUCCESS if $Help;
296	308
297	309	##

880	892	}
881	893	}
882	894
	895	unless ($Message_id_user_name) {
	896	if ($Message_id_UID) {
	897	$Message_id_user_name = $<;
	898	} else {
	899	$Message_id_user_name = $Login;
	900	}
	901	}
883	902	unless ($Message_id_domain_name) {
884	903	if ($Default_from_domain_name) {
885	904	$Message_id_domain_name = $Default_from_domain_name;

2120	2139
2121	2140	=over 5
2122	2141
	2142	=item I<--version>
	2143
	2144	Output version information and exit.
	2145
2123	2146	=item I<--help>
2124	2147
2125	2148	Display help message and exit.

2184	2207
2185	2208	Default domain name for recipients.
2186	2209
	2210	=item I<--msgiduser=STRING>
	2211
	2212	A user name for Message-Id generation.
	2213
2187	2214	=item I<--msgiddomain=STRING>
2188	2215
2189		Default domain name for Message-Id generation.
	2216	A domain name for Message-Id generation.
2190	2217
2191	2218	=item I<--nomsgidfornews=STRING>
2192	2219

+25

-9

impwagent.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Sep 13, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "impwagent version 20031028(IM146)";
16
17	15	$Prog = 'impwagent';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

58	64	exit $EXIT_SUCCESS;
59	65	}
60	66
	67	if ($ARGV[0] =~ /--version/i) {
	68	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS;
	69	}
	70
	71	# display help
61	72	if ($ARGV[0] !~ /start/i && @ARGV > 0) {
62	73	print <<EOF;
63	74	$VERSION

65	76
66	77	Usage:
67	78	$Prog [start] start $Prog
68		$Prog stop/quit terminate $Prog
	79	$Prog stop\|quit terminate $Prog
69	80	$Prog clear clear passwords held by $Prog
70		$Prog help show this message
	81	$Prog help\|--help Display this help and exit
	82	$Prog --version Output version information and exit
71	83
72	84	This command holds passwords to reuse on later sessions for IM.
73	85

227	239
228	240	=head1 SYNOPSIS
229	241
230		B<impwagent> [start \| stop \| quit \| clear \| help]
	242	B<impwagent> [OPTIONS]
231	243
232	244	=head1 DESCRIPTION
233	245

259	271
260	272	Clear passwords held by impwagent.
261	273
262		=item I<help>
263
264		Show help message.
	274	=item I<help, --help>
	275
	276	Display help message and exit.
	277
	278	=item I<--version>
	279
	280	Output version information and exit.
265	281
266	282	=back
267	283

+23

-12

imrm.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 23, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imrm version 20031028(IM146)";
16
17	15	$Prog = 'imrm';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

30	36	use vars qw($Prog $EXPLANATION @OptConfig
31	37	@msgs
32	38	$opt_noharm $opt_src @opt_dst
33		$opt_verbose $opt_debug $opt_help);
	39	$opt_verbose $opt_debug $opt_help $opt_version);
34	40
35	41	##
36	42	## Environments

45	51	";
46	52
47	53	@OptConfig = (
48		'src;F;;' => "Set source folder.",
49		'dst;f@;;' => "Set destination folder.",
	54	'src;F;;' => "Set source folder",
	55	'dst;f@;;' => "Set destination folder",
50	56	'SSHServer,S;s;localhost;SSH_server'
51		=> 'SSH port relay server.',
52		'noharm;b;;' => "Display the commands but do not actually execute them.",
53		'verbose;b;;' => 'With verbose messages.',
54		'debug;d;;' => "With debug message.",
55		'help;b;;' => "Show this message.",
	57	=> 'SSH port relay server',
	58	'noharm;b;;' => "Display the commands but do not actually execute them",
	59	'verbose;b;;' => 'With verbose messages',
	60	'debug;d;;' => "With debug message",
	61	'help;b;;' => "Display this help and exit",
	62	'version,V;b;;' => "Output version information and exit",
56	63	);
57	64
58	65	##

62	69	init_opt(\@OptConfig);
63	70	read_cfg();
64	71	read_opt(\@ARGV); # help?
	72	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
65	73	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
66
67	74	debug_option($opt_debug) if $opt_debug;
68	75
69	76	##

287	294	=item I<-h, --help>
288	295
289	296	Display help message and exit.
	297
	298	=item I<--version>
	299
	300	Output version information and exit.
290	301
291	302	=back
292	303

+29

-12

imsetup.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: May 9, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imsetup version 20031028(IM146)";
16
17	15	$Prog = 'imsetup';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

28	34	use integer;
29	35	use strict;
30	36	use vars qw($Prog $EXPLANATION @OptConfig
31		$opt_fromdomain $opt_noharm $opt_usecl $opt_nosync $opt_help);
	37	$opt_fromdomain $opt_noharm $opt_usecl $opt_nosync
	38	$opt_help $opt_version);
32	39
33	40	##
34	41	## Environments

61	68	";
62	69
63	70	@OptConfig = (
64		'FromDomain;s;;' => 'Default domain name for mail address.',
65		'noharm;b;;' => "Do execute setup, show what will be performed.",
66		'help;b;;' => "Show this message.",
	71	'FromDomain;s;;' => 'Default domain name for mail address',
	72	'noharm;b;;' => "Do execute setup, show what will be performed",
	73	'help;b;;' => "Display this help and exit",
	74	'version,V;b;;' => "Output version information and exit",
67	75	);
68	76
69	77	##

73	81	init_opt(\@OptConfig);
74	82	read_cfg();
75	83	read_opt(\@ARGV); # help?
	84	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
76	85	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
77	86
78	87	##

426	435	#rpath=append # conversion of UNIX From into Return-Path:
427	436	#PopHistory=pophist-{POPSERVERID} # to save last state (relative to ~/.im/)
428	437	#NntpHistory=newshist # to save last state (relative to ~/.im/)
429		#MBoxStyle=qmail # if folder style mbox of qmail is used
430		#Imget.Src=local:\${HOME}/Maildir # in case of qmail
	438	#MboxFilter=bogofilter -p -M -I # filter for mbox file
	439	#MboxFilter=spamoracle mark
	440	#MBoxFilter=bsfilter --spam-cutoff 0.85 --pipe --insert-flag --mbox 2>/dev/null
	441	#MBoxStyle=qmail # in case of qmail (maildir format)
	442	#Imget.Src=local:\${HOME}/Maildir
431	443	UseCL=$usecl # Use value of Content-Length header
432	444	NoSync=$nosync # Do not need fsync(2) on writing file
433	445	#FsyncNumber=0 # if 0, system call number of fsync is guessed

449	461	#Keep=7 # preserve read messages on server
450	462	#ProtoKeep=UIDL # how to know which message is unread
451	463	# (UIDL, LAST, STATUS, MSGID)
452		#IgnorePostPet=yes # leave messages for PostPet on mbox (POP only)
	464	#IgnorePostPet=yes # leave messages for PostPet on POP server
453	465
454	466	---
455	467	if ($src =~ /^imap/i) {
456	468	print CONFIG <<"---";
457		Imget.Src=imap
	469	Imget.Src=imap%INBOX
458	470	ImapAccount=/$auth:$user\@$host
459	471	keep=$keep
460	472	---
461	473	}
462	474	print CONFIG <<"---";
463		#Imget.Src=imap
	475	#Imget.Src=imap%INBOX
464	476	#ImapAccount=/AUTH\@localhost # account info for IMAP access
465	477	#ImapAccount=/AUTH:user\@host # account info with user name
466	478	#HttpProxy=proxy-server:8080 # proxy server for HTTP access

491	503	#FccDir=\$MailDir # directory for FCC folders
492	504	#QueueDir=queue # directory for to store messages to be sent
493	505	#UseXDispatcher=yes # use X-Dispatcher field
	506	#MsgIdUser=\${USER} # user part for creation of Message-Id:
494	507	#MsgIdDomain=\${HOST} # if you want to use FQDN of dispatching host
495	508	#ObeyMTAdomain=yes # do not append domainpart to addresses by imput
496	509	#NoMsgIdForNews=yes # do not insert Message-Id: when posting as news

562	575	=item I<-h, --help>
563	576
564	577	Display help message and exit.
	578
	579	=item I<--version>
	580
	581	Output version information and exit.
565	582
566	583	=back
567	584

+23

-12

imsort.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Jul 2, 1997
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imsort version 20031028(IM146)";
16
17	15	$Prog = 'imsort';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

28	34	use strict;
29	35	use vars qw($Prog $EXPLANATION @OptConfig
30	36	$opt_field $opt_mode $opt_noharm $opt_src
31		$opt_verbose $opt_debug $opt_help);
	37	$opt_verbose $opt_debug $opt_help $opt_version);
32	38
33	39	##
34	40	## Environments

41	47	";
42	48
43	49	@OptConfig = (
44		'src;F;;' => "Set source folder.",
45		'field;s;date;'=> "Sort by the specified field.",
46		'mode;s;date;' => "Set sort mode to date, num, text or ml.",
47		'noharm;b;;' => "Display the commands but do not actually execute them.",
48		'verbose;b;;' => 'With verbose messages.',
49		'debug;d;;' => "With debug message.",
50		'help;b;;' => "Show this message.",
	50	'src;F;;' => "Set source folder",
	51	'field;s;date;'=> "Sort by the specified field",
	52	'mode;s;date;' => "Set sort mode to date, num, text or ml",
	53	'noharm;b;;' => "Display the commands but do not actually execute them",
	54	'verbose;b;;' => 'With verbose messages',
	55	'debug;d;;' => "With debug message",
	56	'help;b;;' => "Display this help and exit",
	57	'version,V;b;;' => "Output version information and exit",
51	58	);
52	59
53	60	##

57	64	init_opt(\@OptConfig);
58	65	read_cfg();
59	66	read_opt(\@ARGV); # help?
	67	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
60	68	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
61
62	69	debug_option($opt_debug) if $opt_debug;
63	70
64	71	##

255	262	=item I<-h, --help>
256	263
257	264	Display help message and exit.
	265
	266	=item I<--version>
	267
	268	Output version information and exit.
258	269
259	270	=back
260	271

+20

-8

imstore.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Dec 31, 1995
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imstore version 20031028(IM146)";
16
17	15	$Prog = 'imstore';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	use IM::Config;
20	26	use IM::MsgStore;

22	28	use integer;
23	29	use strict;
24	30	use vars qw($Prog $EXPLANATION @OptConfig
25		$opt_dst $opt_verbose $opt_debug $opt_help $opt_noscan);
	31	$opt_dst $opt_noscan
	32	$opt_verbose $opt_debug $opt_help $opt_version);
26	33
27	34	##
28	35	## Environments

36	43
37	44	@OptConfig = (
38	45	'dst;s;+inbox;' => 'Set destination folder',
39		'verbose;b;;' => 'With verbose messages.',
40		'debug;d;;' => "With debug message.",
41		'help;b;;' => 'Show this message'
	46	'verbose;b;;' => 'With verbose messages',
	47	'debug;d;;' => "With debug message",
	48	'help;b;;' => "Display this help and exit",
	49	'version,V;b;;' => "Output version information and exit",
42	50	);
43	51
44	52	##

48	56	init_opt(\@OptConfig);
49	57	read_cfg();
50	58	read_opt(\@ARGV); # help?
	59	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
51	60	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
52
53	61	debug_option($opt_debug) if $opt_debug;
54	62
55	63	&process_stdin();

103	111
104	112	Display help message and exit.
105	113
	114	=item I<--version>
	115
	116	Output version information and exit.
	117
106	118	=back
107	119
108	120	=cut

+23

-11

imtar.in less more

4	4	###
5	5	### Author: Internet Message Group <img@mew.org>
6	6	### Created: Apr 08, 1998
7		### Revised: Oct 28, 2003
	7	### Revised: Jul 4, 2004
8	8	###
9	9
10	10	BEGIN {

12	12	@im_src_siteperl@
13	13	};
14	14
15		my $VERSION = "imtar version 20031028(IM146)";
16
17	15	$Prog = 'imtar';
	16	my $VERSION_DATE = "20040704";
	17	my $VERSION_NUMBER = "147";
	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
	20	Copyright (C) 1999 IM developing team
	21	This is free software; see the source for copying conditions. There is NO
	22	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	23	";
18	24
19	25	##
20	26	## Require packages

26	32	use integer;
27	33	use strict;
28	34	use vars qw($Prog $EXPLANATION @OptConfig
29		$opt_src $opt_dst $opt_noharm $opt_verbose $opt_debug $opt_help);
	35	$opt_src $opt_dst $opt_noharm $opt_verbose
	36	$opt_debug $opt_help $opt_version);
30	37
31	38	##
32	39	## Environments

39	46	";
40	47
41	48	@OptConfig =(
42		'src;F;;' => "Set source folder.",
43		'dst;s;./msgbox;' => "Destination MMDF file.",
44		'noharm;b;;' => "No operation. Show what will happen.",
45		'verbose;b;;' => 'With verbose messages.',
46		'debug;d;;' => "With debug message.",
47		'help;b;;' => "Show this message.",
	49	'src;F;;' => "Set source folder",
	50	'dst;s;./msgbox;' => "Destination MMDF file",
	51	'noharm;b;;' => "No operation. Show what will happen",
	52	'verbose;b;;' => 'With verbose messages',
	53	'debug;d;;' => "With debug message",
	54	'help;b;;' => "Display this help and exit",
	55	'version,V;b;;' => "Output version information and exit",
48	56	);
49	57
50	58	##

54	62	init_opt(\@OptConfig);
55	63	read_cfg();
56	64	read_opt(\@ARGV); # help?
	65	print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version;
57	66	help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
58
59	67	debug_option($opt_debug) if $opt_debug;
60	68
61	69	##

163	171	=item I<-h, --help>
164	172
165	173	Display help message and exit.
	174
	175	=item I<--version>
	176
	177	Output version information and exit.
166	178
167	179	=back
168	180