Commit upstream/latest - im

+11

-0

00changes less more

	0	153 (2016/10/10)
	1
	2	* Fix redeclaring my in my for Perl 5.24
	3	* Update config.guess and config.sub with autotools-dev 20160430.1
	4	* Support SMTP Authentication (experimental)
	5	- To specify a submission server, add "/587" to Smtpservers
	6	- To use AUTH LOGIN, set SmtpAccount=/PLAIN:user@host (PLAIN only)
	7	- With a bug fix for "SIZE="
	8	Murata Takashi <tmurata>
	9	* Update gitlog2imchanges to fix version tags
	10
0	11	152 (2015/12/20)
1	12
2	13	* Fix unescaped left brace in regex is deprecated for Perl 5.22

+9

-0

00diff less more

	0	Differences between IM 153 and IM 152
	1
	2	* Support SMTP Authentication (experimental)
	3	- To specify a submission server, add "/587" to Smtpservers
	4	- To use AUTH LOGIN, set SmtpAccount=/PLAIN:user@host (PLAIN only)
	5	- With a bug fix for "SIZE="
	6	* Prevent errors for Perl 5.24
	7	* Update config.guess and config.sub
	8
0	9	Differences between IM 152 and IM 151
1	10
2	11	* Prevent warnings for Perl 5.22

+4

-4

00readme less more

2	2	Kazu Yamamoto
3	3	Tatsuya Kinoshita
4	4
5		Dec 20, 2015
	5	Oct 10, 2016
6	6
7	7
8	8	<<<Copyright>>>

94	94	<<<Contributions and Bug Reports>>>
95	95
96	96	Please send comments, bug reports, and patches to the current maintainer
97		Tatsuya Kinoshita <tats@vega.ocn.ne.jp>
	97	Tatsuya Kinoshita <tats@vega.ocn.ne.jp>
98	98
99	99	For the latest news of IM, please see IM (Internet Message) Official Site
100		http://tats.hauN.org/im/
	100	http://tats.hauN.org/im/
101	101
102	102	You can download IM from Debian mirror sites. For more information of
103	103	the Debian im package, please see
104		http://packages.qa.debian.org/im
	104	http://packages.qa.debian.org/im
105	105
106	106
107	107	<<<Programmers>>>

+1

-1

IM/Address.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Address.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Address.pm version 20161010(IM153)";
11	11
12	12	package IM::Address;
13	13	require 5.003;

+1

-1

IM/Alias.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Alias.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Alias.pm version 20161010(IM153)";
11	11
12	12	package IM::Alias;
13	13	require 5.003;

+8

-3

IM/Config.pm.in less more

7	7	### Revised: May 25, 2011
8	8	###
9	9
10		my $PM_VERSION = "IM::Config.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Config.pm version 20161010(IM153)";
11	11
12	12	package IM::Config;
13	13	require 5.003;

38	38	msgdbfile msgdbtype
39	39	mbox_style mbox_filter
40	40	nntpservers nntphistoryfile nntpauthuser set_nntpauthuser
41		popaccount pophistoryfile imapaccount httpproxy noproxy
	41	popaccount pophistoryfile imapaccount smtpaccount httpproxy noproxy
42	42	usepwagent pwagentport pwagent_tmp_dir pwagent_tmp_path usepwfiles pwfiles
43	43	expand_path use_xdispatcher usetouchfile touchfile
44	44	namazuv2 namazu_dir namazu_path namazu_lock_dir namazu_lock_path

134	134	'popaccount;s;;POPaccount' => 'Account info for POP access',
135	135	'pophistory;s;;POPhistory' => 'Status file of POP access',
136	136	'imapaccount;s;;IMAPaccount' => 'Account info for IMAP access',
	137	'smtpaccount;s;;SMTPaccount' => 'Account info for SMTP authentication',
137	138	'httpproxy;s;;HTTPproxy' => 'Proxy server for HTTP access',
138	139	'noproxy;s;;Noproxy' => 'URL regex not to use Proxy server',
139	140	'usepwagent;b;;UsePwAgent' => 'Use password agent',

904	905
905	906	sub imapaccount() {
906	907	return $IMAPaccount;
	908	}
	909
	910	sub smtpaccount() {
	911	return $SMTPaccount;
907	912	}
908	913
909	914	sub httpproxy() {

1162	1167	msgdbfile msgdbtype
1163	1168	mbox_style mbox_filter
1164	1169	nntpservers nntphistoryfile nntpauthuser set_nntpauthuser
1165		popaccount pophistoryfile imapaccount httpproxy noproxy
	1170	popaccount pophistoryfile imapaccount smtpaccount httpproxy noproxy
1166	1171	usepwagent pwagentport pwagent_tmp_dir pwagent_tmp_path usepwfiles pwfiles
1167	1172	expand_path use_xdispatcher usetouchfile touchfile
1168	1173	namazuv2 namazu_dir namazu_path namazu_lock_dir namazu_lock_path

+1

-1

IM/EncDec.pm less more

7	7	### Revised: Feb 15, 2010
8	8	###
9	9
10		my $PM_VERSION = "IM::EncDec.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::EncDec.pm version 20161010(IM153)";
11	11
12	12	package IM::EncDec;
13	13	require 5.003;

+1

-1

IM/File.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::File.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::File.pm version 20161010(IM153)";
11	11
12	12	package IM::File;
13	13	require 5.003;

+1

-1

IM/Folder.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Folder.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Folder.pm version 20161010(IM153)";
11	11
12	12	package IM::Folder;
13	13	require 5.003;

+1

-1

IM/GetPass.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::GetPass.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::GetPass.pm version 20161010(IM153)";
11	11
12	12	package IM::GetPass;
13	13	require 5.003;

+1

-1

IM/Grep.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Grep.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Grep.pm version 20161010(IM153)";
11	11
12	12	package IM::Grep;
13	13	require 5.003;

+1

-1

IM/History.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::History.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::History.pm version 20161010(IM153)";
11	11
12	12	package IM::History;
13	13	require 5.003;

+1

-1

IM/Http.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Http.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Http.pm version 20161010(IM153)";
11	11
12	12	package IM::Http;
13	13	require 5.003;

+1

-1

IM/Imap.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Imap.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Imap.pm version 20161010(IM153)";
11	11
12	12	package IM::Imap;
13	13	require 5.003;

+1

-1

IM/Iso2022jp.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Iso2022jp.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Iso2022jp.pm version 20161010(IM153)";
11	11
12	12	package IM::Iso2022jp;
13	13	require 5.003;

+1

-1

IM/Japanese.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Japanese.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Japanese.pm version 20161010(IM153)";
11	11
12	12	package IM::Japanese;
13	13	require 5.003;

+1

-1

IM/LocalMbox.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::LocalMbox.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::LocalMbox.pm version 20161010(IM153)";
11	11
12	12	package IM::LocalMbox;
13	13	require 5.003;

+1

-1

IM/Log.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Log.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Log.pm version 20161010(IM153)";
11	11
12	12	package IM::Log;
13	13	require 5.003;

+2

-2

IM/MD5.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::MD5.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::MD5.pm version 20161010(IM153)";
11	11
12	12	package IM::MD5;
13	13	require 5.003;

338	338	# a multiple of 4.
339	339
340	340	sub MD5_Decode($$$) {
341		my($output, $input, my $len) = @_;
	341	my($output, $input, $len) = @_;
342	342	my($i, $j);
343	343
344	344	for ($i = 0, $j = 0; $j < $len; $i++, $j += 4) {

+1

-1

IM/Message.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Message.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Message.pm version 20161010(IM153)";
11	11
12	12	package IM::Message;
13	13	require 5.003;

+1

-1

IM/MsgStore.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::MsgStore.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::MsgStore.pm version 20161010(IM153)";
11	11
12	12	package IM::MsgStore;
13	13	require 5.003;

+1

-1

IM/Nntp.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Nntp.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Nntp.pm version 20161010(IM153)";
11	11
12	12	package IM::Nntp;
13	13	require 5.003;

+1

-1

IM/Pop.pm less more

7	7	### Revised: Feb 15, 2010
8	8	###
9	9
10		my $PM_VERSION = "IM::Pop.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Pop.pm version 20161010(IM153)";
11	11
12	12	package IM::Pop;
13	13	require 5.003;

+1

-1

IM/Recipient.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Recipient.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Recipient.pm version 20161010(IM153)";
11	11
12	12	package IM::Recipient;
13	13	require 5.003;

+1

-1

IM/Scan.pm less more

7	7	### Revised: May 25, 2011
8	8	###
9	9
10		my $PM_VERSION = "IM::Scan.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Scan.pm version 20161010(IM153)";
11	11
12	12	package IM::Scan;
13	13	require 5.003;

+35

-1

IM/Smtp.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Smtp.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Smtp.pm version 20161010(IM153)";
11	11
12	12	package IM::Smtp;
13	13	require 5.003;

19	19	use IM::Message qw(message_size put_header put_body put_mimed_bcc
20	20	put_mimed_partial put_mimed_error_notify set_crlf);
21	21	use IM::TcpTransaction;
	22	use IM::EncDec;
	23	use IM::GetPass;
	24	use IM::MD5;
22	25	use integer;
23	26	use strict;
24	27	use vars qw(@ISA @EXPORT);

73	76	foreach (@resp) {
74	77	if (/^250[ \-]([A-Z0-9]+)$/) {
75	78	$ESMTP{$1} = 1;
	79	} elsif (/^250[ \-]([A-Z0-9]+) ([-A-Z0-9 ]+)$/) {
	80	$ESMTP{$1} = $2;
76	81	}
77	82	}
78	83	$Smtp_opened = 1;

173	178	$btype = ' BODY=8BIT';
174	179	} else {
175	180	$btype = '';
	181	}
	182	if ($server =~ m\|/587$\| && $ESMTP{'AUTH'}) { # Submission port ... use AUTH
	183	$rc = &smtp_authentication();
	184	return $rc if ($rc);
176	185	}
177	186	if ($ESMTP{'SIZE'}) {
178	187	$msg_size = &message_size($Header, $Body, $part);

246	255	}
247	256	}
248	257	return 0;
	258	}
	259
	260	sub smtp_authentication() {
	261	my $rc = 0;
	262	my $s = smtpaccount();
	263	my($s, $auth, $user, $host) = split(m\|[/:@]\|, $s);
	264	my($pass) = getpass('smtp', $auth, $host, $user);
	265	if ($auth eq "PLAIN" && $ESMTP{'AUTH'} =~ /PLAIN/) {
	266	$rc = &tcp_command(\*SMTPd, "AUTH PLAIN", '');
	267	return $rc if ($rc);
	268	my(@resp) = &command_response;
	269	if (@resp[0] !~ /^334/) {
	270	im_warn("AUTH PLAIN command failed.\n");
	271	return 1;
	272	}
	273	my $b = &b_encode_string("$user\@$host\0$user\@$host\0$pass");
	274	$rc = &tcp_command(\SMTPd, "$b", '*******');
	275	return $rc if ($rc);
	276	my(@resp) = &command_response;
	277	if (@resp[0] !~ /^235/) {
	278	im_warn("AUTH PLAIN authentication error.\n");
	279	return 1;
	280	}
	281	}
	282	return $rc;
249	283	}
250	284
251	285	##### SMTP TRANSACTION MANAGEMENT FOR RETURN ERROR NOTIFY #####

+1

-1

IM/Ssh.pm less more

8	8	### Revised: Apr 23, 2007
9	9	###
10	10
11		my $PM_VERSION = "IM::Ssh.pm version 20151220(IM152)";
	11	my $PM_VERSION = "IM::Ssh.pm version 20161010(IM153)";
12	12
13	13	package IM::Ssh;
14	14	require 5.003;

+1

-1

IM/Stdio.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Stdio.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Stdio.pm version 20161010(IM153)";
11	11
12	12	package IM::Stdio;
13	13	require 5.003;

+1

-1

IM/TcpTransaction.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::TcpTransaction.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::TcpTransaction.pm version 20161010(IM153)";
11	11
12	12	package IM::TcpTransaction;
13	13	require 5.003;

+1

-1

IM/Util.pm less more

7	7	### Revised: Apr 23, 2007
8	8	###
9	9
10		my $PM_VERSION = "IM::Util.pm version 20151220(IM152)";
	10	my $PM_VERSION = "IM::Util.pm version 20161010(IM153)";
11	11
12	12	package IM::Util;
13	13	require 5.003;

+63

-50

config.guess less more

0	0	#! /bin/sh
1	1	# Attempt to guess a canonical system name.
2		# Copyright 1992-2015 Free Software Foundation, Inc.
3
4		timestamp='2015-08-20'
	2	# Copyright 1992-2016 Free Software Foundation, Inc.
	3
	4	timestamp='2016-04-02'
5	5
6	6	# This file is free software; you can redistribute it and/or modify it
7	7	# under the terms of the GNU General Public License as published by

26	26	# Originally written by Per Bothner; maintained since 2000 by Ben Elliston.
27	27	#
28	28	# You can get the latest version of this script from:
29		# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD
	29	# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess
30	30	#
31	31	# Please send patches to <config-patches@gnu.org>.
32	32

49	49	GNU config.guess ($timestamp)
50	50
51	51	Originally written by Per Bothner.
52		Copyright 1992-2015 Free Software Foundation, Inc.
	52	Copyright 1992-2016 Free Software Foundation, Inc.
53	53
54	54	This is free software; see the source for copying conditions. There is NO
55	55	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."

236	236	UNAME_MACHINE_ARCH=`arch \| sed 's/OpenBSD.//'`
237	237	echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE}
238	238	exit ;;
	239	:LibertyBSD::*)
	240	UNAME_MACHINE_ARCH=`arch \| sed 's/^.*BSD\.//'`
	241	echo ${UNAME_MACHINE_ARCH}-unknown-libertybsd${UNAME_RELEASE}
	242	exit ;;
239	243	:ekkoBSD::*)
240	244	echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE}
241	245	exit ;;

267	271	ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v \| sed -n -e 's/^ The alpha $.$ processor.$/\1/p' \| head -n 1`
268	272	case "$ALPHA_CPU_TYPE" in
269	273	"EV4 (21064)")
270		UNAME_MACHINE="alpha" ;;
	274	UNAME_MACHINE=alpha ;;
271	275	"EV4.5 (21064)")
272		UNAME_MACHINE="alpha" ;;
	276	UNAME_MACHINE=alpha ;;
273	277	"LCA4 (21066/21068)")
274		UNAME_MACHINE="alpha" ;;
	278	UNAME_MACHINE=alpha ;;
275	279	"EV5 (21164)")
276		UNAME_MACHINE="alphaev5" ;;
	280	UNAME_MACHINE=alphaev5 ;;
277	281	"EV5.6 (21164A)")
278		UNAME_MACHINE="alphaev56" ;;
	282	UNAME_MACHINE=alphaev56 ;;
279	283	"EV5.6 (21164PC)")
280		UNAME_MACHINE="alphapca56" ;;
	284	UNAME_MACHINE=alphapca56 ;;
281	285	"EV5.7 (21164PC)")
282		UNAME_MACHINE="alphapca57" ;;
	286	UNAME_MACHINE=alphapca57 ;;
283	287	"EV6 (21264)")
284		UNAME_MACHINE="alphaev6" ;;
	288	UNAME_MACHINE=alphaev6 ;;
285	289	"EV6.7 (21264A)")
286		UNAME_MACHINE="alphaev67" ;;
	290	UNAME_MACHINE=alphaev67 ;;
287	291	"EV6.8CB (21264C)")
288		UNAME_MACHINE="alphaev68" ;;
	292	UNAME_MACHINE=alphaev68 ;;
289	293	"EV6.8AL (21264B)")
290		UNAME_MACHINE="alphaev68" ;;
	294	UNAME_MACHINE=alphaev68 ;;
291	295	"EV6.8CX (21264D)")
292		UNAME_MACHINE="alphaev68" ;;
	296	UNAME_MACHINE=alphaev68 ;;
293	297	"EV6.9A (21264/EV69A)")
294		UNAME_MACHINE="alphaev69" ;;
	298	UNAME_MACHINE=alphaev69 ;;
295	299	"EV7 (21364)")
296		UNAME_MACHINE="alphaev7" ;;
	300	UNAME_MACHINE=alphaev7 ;;
297	301	"EV7.9 (21364A)")
298		UNAME_MACHINE="alphaev79" ;;
	302	UNAME_MACHINE=alphaev79 ;;
299	303	esac
300	304	# A Pn.n version is a patched version.
301	305	# A Vn.n version is a released version.
302	306	# A Tn.n version is a released field test version.
303	307	# A Xn.n version is an unreleased experimental baselevel.
304	308	# 1.2 uses "1.2" for uname -r.
305		echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} \| sed -e 's/^[PVTX]//' \| tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
	309	echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} \| sed -e 's/^[PVTX]//' \| tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
306	310	# Reset EXIT trap before exiting to avoid spurious non-zero exit code.
307	311	exitcode=$?
308	312	trap '' 0

375	379	exit ;;
376	380	i86pc:SunOS:5.: \| i86xen:SunOS:5.:)
377	381	eval $set_cc_for_build
378		SUN_ARCH="i386"
	382	SUN_ARCH=i386
379	383	# If there is a compiler, see if it is configured for 64-bit objects.
380	384	# Note that the Sun cc does not turn __LP64__ into 1 like gcc does.
381	385	# This test works for both compilers.
382		if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then
	386	if [ "$CC_FOR_BUILD" != no_compiler_found ]; then
383	387	if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') \| \
384		(CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) \| \
	388	(CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) \| \
385	389	grep IS_64BIT_ARCH >/dev/null
386	390	then
387		SUN_ARCH="x86_64"
	391	SUN_ARCH=x86_64
388	392	fi
389	393	fi
390	394	echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}\|sed -e 's/[^.]*//'`

409	413	exit ;;
410	414	sun::4.2BSD:*)
411	415	UNAME_RELEASE=`(sed 1q /etc/motd \| awk '{print substr($5,1,3)}') 2>/dev/null`
412		test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3
	416	test "x${UNAME_RELEASE}" = x && UNAME_RELEASE=3
413	417	case "`/bin/arch`" in
414	418	sun3)
415	419	echo m68k-sun-sunos${UNAME_RELEASE}

634	638	sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
635	639	sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
636	640	case "${sc_cpu_version}" in
637		523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0
638		528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1
	641	523) HP_ARCH=hppa1.0 ;; # CPU_PA_RISC1_0
	642	528) HP_ARCH=hppa1.1 ;; # CPU_PA_RISC1_1
639	643	532) # CPU_PA_RISC2_0
640	644	case "${sc_kernel_bits}" in
641		32) HP_ARCH="hppa2.0n" ;;
642		64) HP_ARCH="hppa2.0w" ;;
643		'') HP_ARCH="hppa2.0" ;; # HP-UX 10.20
	645	32) HP_ARCH=hppa2.0n ;;
	646	64) HP_ARCH=hppa2.0w ;;
	647	'') HP_ARCH=hppa2.0 ;; # HP-UX 10.20
644	648	esac ;;
645	649	esac
646	650	fi

679	683	exit (0);
680	684	}
681	685	EOF
682		(CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy`
	686	(CCOPTS="" $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy`
683	687	test -z "$HP_ARCH" && HP_ARCH=hppa
684	688	fi ;;
685	689	esac
686		if [ ${HP_ARCH} = "hppa2.0w" ]
	690	if [ ${HP_ARCH} = hppa2.0w ]
687	691	then
688	692	eval $set_cc_for_build
689	693

696	700	# $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess
697	701	# => hppa64-hp-hpux11.23
698	702
699		if echo __LP64__ \| (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) \|
	703	if echo __LP64__ \| (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) \|
700	704	grep -q __LP64__
701	705	then
702		HP_ARCH="hppa2.0w"
	706	HP_ARCH=hppa2.0w
703	707	else
704		HP_ARCH="hppa64"
	708	HP_ARCH=hppa64
705	709	fi
706	710	fi
707	711	echo ${HP_ARCH}-hp-hpux${HPUX_REV}

806	810	echo craynv-cray-unicosmp${UNAME_RELEASE} \| sed -e 's/\.[^.]*$/.X/'
807	811	exit ;;
808	812	F30[01]:UNIX_System_V:: \| F700:UNIX_System_V::)
809		FUJITSU_PROC=`uname -m \| tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
810		FUJITSU_SYS=`uname -p \| tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' \| sed -e 's/\///'`
	813	FUJITSU_PROC=`uname -m \| tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
	814	FUJITSU_SYS=`uname -p \| tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz \| sed -e 's/\///'`
811	815	FUJITSU_REL=`echo ${UNAME_RELEASE} \| sed -e 's/ /_/'`
812	816	echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
813	817	exit ;;
814	818	5000:UNIX_System_V:4.:)
815		FUJITSU_SYS=`uname -p \| tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' \| sed -e 's/\///'`
816		FUJITSU_REL=`echo ${UNAME_RELEASE} \| tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' \| sed -e 's/ /_/'`
	819	FUJITSU_SYS=`uname -p \| tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz \| sed -e 's/\///'`
	820	FUJITSU_REL=`echo ${UNAME_RELEASE} \| tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz \| sed -e 's/ /_/'`
817	821	echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
818	822	exit ;;
819	823	i86:BSD/386::* \| i86:BSD/OS::* \| :Ascend\ Embedded/OS::*)

895	899	exit ;;
896	900	:GNU/::)
897	901	# other systems with GNU libc and userland
898		echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} \| sed 's,^[^/]/,,' \| tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}\|sed -e 's/[-(].//'`-${LIBC}
	902	echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} \| sed 's,^[^/]/,,' \| tr "[:upper:]" "[:lower:]"``echo ${UNAME_RELEASE}\|sed -e 's/[-(].//'`-${LIBC}
899	903	exit ;;
900	904	i86:Minix::*)
901	905	echo ${UNAME_MACHINE}-pc-minix

918	922	EV68*) UNAME_MACHINE=alphaev68 ;;
919	923	esac
920	924	objdump --private-headers /bin/sh \| grep -q ld.so.1
921		if test "$?" = 0 ; then LIBC="gnulibc1" ; fi
	925	if test "$?" = 0 ; then LIBC=gnulibc1 ; fi
922	926	echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
923	927	exit ;;
924	928	arc:Linux:: \| arceb:Linux::)

962	966	echo ${UNAME_MACHINE}-pc-linux-${LIBC}
963	967	exit ;;
964	968	ia64:Linux::)
	969	echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
	970	exit ;;
	971	k1om:Linux::)
965	972	echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
966	973	exit ;;
967	974	m32r:Linux::*)

1119	1126	# uname -m prints for DJGPP always 'pc', but it prints nothing about
1120	1127	# the processor, so we play safe by assuming i586.
1121	1128	# Note: whatever this is, it MUST be the same as what config.sub
1122		# prints for the "djgpp" host, or else GDB configury will decide that
	1129	# prints for the "djgpp" host, or else GDB configure will decide that
1123	1130	# this is a cross-build.
1124	1131	echo i586-pc-msdosdjgpp
1125	1132	exit ;;

1268	1275	SX-8R:SUPER-UX::)
1269	1276	echo sx8r-nec-superux${UNAME_RELEASE}
1270	1277	exit ;;
	1278	SX-ACE:SUPER-UX::)
	1279	echo sxace-nec-superux${UNAME_RELEASE}
	1280	exit ;;
1271	1281	Power:Rhapsody::*)
1272	1282	echo powerpc-apple-rhapsody${UNAME_RELEASE}
1273	1283	exit ;;

1281	1291	UNAME_PROCESSOR=powerpc
1282	1292	fi
1283	1293	if test `echo "$UNAME_RELEASE" \| sed -e 's/\..*//'` -le 10 ; then
1284		if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then
	1294	if [ "$CC_FOR_BUILD" != no_compiler_found ]; then
1285	1295	if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') \| \
1286		(CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) \| \
	1296	(CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) \| \
1287	1297	grep IS_64BIT_ARCH >/dev/null
1288	1298	then
1289	1299	case $UNAME_PROCESSOR in

1305	1315	exit ;;
1306	1316	:procnto:: \| :QNX:[0123456789]:*)
1307	1317	UNAME_PROCESSOR=`uname -p`
1308		if test "$UNAME_PROCESSOR" = "x86"; then
	1318	if test "$UNAME_PROCESSOR" = x86; then
1309	1319	UNAME_PROCESSOR=i386
1310	1320	UNAME_MACHINE=pc
1311	1321	fi

1336	1346	# "uname -m" is not consistent, so use $cputype instead. 386
1337	1347	# is converted to i386 for consistency with other x86
1338	1348	# operating systems.
1339		if test "$cputype" = "386"; then
	1349	if test "$cputype" = 386; then
1340	1350	UNAME_MACHINE=i386
1341	1351	else
1342	1352	UNAME_MACHINE="$cputype"

1378	1388	echo i386-pc-xenix
1379	1389	exit ;;
1380	1390	i86:skyos::*)
1381		echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` \| sed -e 's/ .*$//'
	1391	echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE} \| sed -e 's/ .*$//'`
1382	1392	exit ;;
1383	1393	i86:rdos::*)
1384	1394	echo ${UNAME_MACHINE}-pc-rdos

1388	1398	exit ;;
1389	1399	x86_64:VMkernel::)
1390	1400	echo ${UNAME_MACHINE}-unknown-esx
	1401	exit ;;
	1402	amd64:Isilon\ OneFS::)
	1403	echo x86_64-unknown-onefs
1391	1404	exit ;;
1392	1405	esac
1393	1406

1398	1411	the operating system you are using. It is advised that you
1399	1412	download the most up to date version of the config scripts from
1400	1413
1401		http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD
	1414	http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess
1402	1415	and
1403		http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD
	1416	http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub
1404	1417
1405	1418	If the version you run ($0) is already up to date, please
1406	1419	send the following data and any information you think might be

+12

-10

config.sub less more

0	0	#! /bin/sh
1	1	# Configuration validation subroutine script.
2		# Copyright 1992-2015 Free Software Foundation, Inc.
3
4		timestamp='2015-08-20'
	2	# Copyright 1992-2016 Free Software Foundation, Inc.
	3
	4	timestamp='2016-03-30'
5	5
6	6	# This file is free software; you can redistribute it and/or modify it
7	7	# under the terms of the GNU General Public License as published by

32	32	# Otherwise, we print the canonical config type on stdout and succeed.
33	33
34	34	# You can get the latest version of this script from:
35		# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD
	35	# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub
36	36
37	37	# This file is supposed to be the same for all GNU packages
38	38	# and recognize all the CPU types, system types and aliases

52	52	me=`echo "$0" \| sed -e 's,.*/,,'`
53	53
54	54	usage="\
55		Usage: $0 [OPTION] CPU-MFR-OPSYS
56		$0 [OPTION] ALIAS
	55	Usage: $0 [OPTION] CPU-MFR-OPSYS or ALIAS
57	56
58	57	Canonicalize a configuration name.
59	58

67	66	version="\
68	67	GNU config.sub ($timestamp)
69	68
70		Copyright 1992-2015 Free Software Foundation, Inc.
	69	Copyright 1992-2016 Free Software Foundation, Inc.
71	70
72	71	This is free software; see the source for copying conditions. There is NO
73	72	warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."

520	519	basic_machine=i386-pc
521	520	os=-aros
522	521	;;
523		asmjs)
	522	asmjs)
524	523	basic_machine=asmjs-unknown
525	524	;;
526	525	aux)

1382	1381	\| -nindy* \| -vxsim* \| -vxworks* \| -ebmon* \| -hms* \| -mvs* \
1383	1382	\| -clix* \| -riscos* \| -uniplus* \| -iris* \| -rtu* \| -xenix* \
1384	1383	\| -hiux* \| -386bsd* \| -knetbsd* \| -mirbsd* \| -netbsd* \
1385		\| -bitrig* \| -openbsd* \| -solidbsd* \
	1384	\| -bitrig* \| -openbsd* \| -solidbsd* \| -libertybsd* \
1386	1385	\| -ekkobsd* \| -kfreebsd* \| -freebsd* \| -riscix* \| -lynxos* \
1387	1386	\| -bosx* \| -nextstep* \| -cxux* \| -aout* \| -elf* \| -oabi* \
1388	1387	\| -ptx* \| -coff* \| -ecoff* \| -winnt* \| -domain* \| -vsta* \

1398	1397	\| -os2* \| -vos* \| -palmos* \| -uclinux* \| -nucleus* \
1399	1398	\| -morphos* \| -superux* \| -rtmk* \| -rtmk-nova* \| -windiss* \
1400	1399	\| -powermax* \| -dnix* \| -nx6 \| -nx7 \| -sei* \| -dragonfly* \
1401		\| -skyos* \| -haiku* \| -rdos* \| -toppers* \| -drops* \| -es* \| -tirtos*)
	1400	\| -skyos* \| -haiku* \| -rdos* \| -toppers* \| -drops* \| -es* \
	1401	\| -onefs* \| -tirtos*)
1402	1402	# Remember, each alternative MUST END IN *, to match a version number.
1403	1403	;;
1404	1404	-qnx*)

1530	1530	;;
1531	1531	-nacl*)
1532	1532	;;
	1533	-ios)
	1534	;;
1533	1535	-none)
1534	1536	;;
1535	1537	*)

+1

-1

gitlog2imchanges less more

78	78	if ($author && $date) {
79	79	&print_entry;
80	80	}
81		if (/$(tag: v\d[^$]+)\)$/) {
	81	if (/$(tag: v\d[^$,]+)[^\)]*\)$/) {
82	82	$version = $1;
83	83	$version =~ s/tag: v//g;
84	84	}

+2

-2

imali.in less more

13	13	};
14	14
15	15	$Prog = 'imali';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imcat.in less more

13	13	};
14	14
15	15	$Prog = 'imcat';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imcd.in less more

13	13	};
14	14
15	15	$Prog = 'imcd';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imclean.in less more

13	13	};
14	14
15	15	$Prog = 'imclean';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imget.in less more

13	13	};
14	14
15	15	$Prog = 'imget';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imgrep.in less more

13	13	};
14	14
15	15	$Prog = 'imgrep';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imhist.in less more

13	13	};
14	14
15	15	$Prog = 'imhist';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imhsync.in less more

13	13	};
14	14
15	15	$Prog = 'imhsync';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imjoin.in less more

13	13	};
14	14
15	15	$Prog = 'imjoin';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imls.in less more

13	13	};
14	14
15	15	$Prog = 'imls';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

immknmz.in less more

14	14	};
15	15
16	16	$Prog = 'immknmz';
17		my $VERSION_DATE = "20151220";
18		my $VERSION_NUMBER = "152";
	17	my $VERSION_DATE = "20161010";
	18	my $VERSION_NUMBER = "153";
19	19	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
20	20	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
21	21	Copyright (C) 1999 IM developing team

+2

-2

immv.in less more

13	13	};
14	14
15	15	$Prog = 'immv';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

impack.in less more

13	13	};
14	14
15	15	$Prog = 'impack';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

impath.in less more

13	13	};
14	14
15	15	$Prog = 'impath';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imput.in less more

13	13	};
14	14
15	15	$Prog = 'imput';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	$VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

impwagent.in less more

13	13	};
14	14
15	15	$Prog = 'impwagent';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imrm.in less more

13	13	};
14	14
15	15	$Prog = 'imrm';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imsetup.in less more

13	13	};
14	14
15	15	$Prog = 'imsetup';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imsort.in less more

13	13	};
14	14
15	15	$Prog = 'imsort';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imstore.in less more

13	13	};
14	14
15	15	$Prog = 'imstore';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

+2

-2

imtar.in less more

13	13	};
14	14
15	15	$Prog = 'imtar';
16		my $VERSION_DATE = "20151220";
17		my $VERSION_NUMBER = "152";
	16	my $VERSION_DATE = "20161010";
	17	my $VERSION_NUMBER = "153";
18	18	my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})";
19	19	my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE}
20	20	Copyright (C) 1999 IM developing team

78	78	if ($author && $date) {
79	79	&print_entry;
80	80	}
81		if (/\((tag: v\d[^\)]+)\)$/) {
	81	if (/\((tag: v\d[^\),]+)[^\)]*\)$/) {
82	82	$version = $1;
83	83	$version =~ s/tag: v//g;
84	84	}