Codebase list im / 985b972
Imported Upstream version 146 Tatsuya Kinoshita 11 years ago
51 changed file(s) with 197 addition(s) and 204 deletion(s). Raw diff Collapse all Expand all
+7
-1
00changes less more
0 146 (2003/10/28)
1
2 * IM/TcpTransaction.pm, IM/Pop.pm, IM/Nntp.pm, IM/Imap.pm: Don't use $! as
3 an error indicator.
4 * IM/Nntp.pm (nntp_head_as_string): Don't use `next' outside a loop block.
5
06 145 (2003/06/01)
17
28 * IM/LocalMbox.pm (process_maildir): Fix for modern delivery identifiers in
7783 * IM/Config.pm.in, IM/EncDec.pm: Prevent a warning of `called too early to
7884 check prototype'.
7985 * IM/MsgStore.pm (new_message): Use message_number() instead of $MsgNum++.
80 * install-sh: Bug fix from GNU libtool 1.4.3. This file is under M.I.T.
86 * install-sh: Bug fix from GNU libtool 1.4.3. This file is under the X11
8187 license.
8288 * imhsync.in, immknmz.in, IM/Ssh.pm: Clarify copyright notice.
8389 * imcat.in: `-S' option for SSHServer.
+4
-0
00diff less more
0 Differences between IM146 and IM145
1
2 * Fix that TCP transaction fails with Perl 5.8.1.
3
04 Differences between IM145 and IM144
15
26 * Fix that imget fails when modern delivery identifiers are used in a
+1
-1
00readme less more
2525 <motonori@econ.kyoto-u.ac.jp>. It is converted to Perl4 from C version
2626 derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm.
2727
28 install-sh is under the M.I.T. license.
28 install-sh is under the X11 license.
2929
3030
3131 <<<Installing under the root privilege>>>
+2
-2
IM/Address.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Address.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Address.pm version 20031028(IM146)";
1111
1212 package IM::Address;
1313 require 5.003;
+2
-2
IM/Alias.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Alias.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Alias.pm version 20031028(IM146)";
1111
1212 package IM::Alias;
1313 require 5.003;
+2
-2
IM/Config.pm.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Config.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Config.pm version 20031028(IM146)";
1111
1212 package IM::Config;
1313 require 5.003;
+2
-2
IM/EncDec.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::EncDec.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::EncDec.pm version 20031028(IM146)";
1111
1212 package IM::EncDec;
1313 require 5.003;
+2
-2
IM/File.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Jul 7, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::File.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::File.pm version 20031028(IM146)";
1111
1212 package IM::File;
1313 require 5.003;
+2
-2
IM/Folder.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Folder.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Folder.pm version 20031028(IM146)";
1111
1212 package IM::Folder;
1313 require 5.003;
+2
-2
IM/GetPass.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 30, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::GetPass.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::GetPass.pm version 20031028(IM146)";
1111
1212 package IM::GetPass;
1313 require 5.003;
+2
-2
IM/Grep.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Nov 03, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Grep.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Grep.pm version 20031028(IM146)";
1111
1212 package IM::Grep;
1313 require 5.003;
+2
-2
IM/History.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Jul 6, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::History.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::History.pm version 20031028(IM146)";
1111
1212 package IM::History;
1313 require 5.003;
+2
-2
IM/Http.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Http.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Http.pm version 20031028(IM146)";
1111
1212 package IM::Http;
1313 require 5.003;
+26
-34
IM/Imap.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Imap.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Imap.pm version 20031028(IM146)";
1111
1212 package IM::Imap;
1313 require 5.003;
194194 if ($resp =~ /^\* \d+ FETCH \((UID $num )?RFC822 \{(\d+)\}/i) {
195195 my $size = $2;
196196 alarm(imap_timeout()) unless win95p();
197 $! = 0;
198197 while (<$HANDLE>) {
199 unless (win95p()) {
200 alarm(0);
201 if ($!) { # may be channel truoble
202 im_warn("lost connection for FETCH(get).\n");
203 return (-1, 0);
204 }
205 }
198 alarm(0) unless win95p();
206199 $size -= length($_);
207200 s/\r\n$/\n/;
208201 im_debug($_) if (&debug('imap'));
210203 last if ($size <= 0);
211204 }
212205 alarm(0) unless win95p();
206 if ($size > 0) {
207 # may be channel trouble
208 im_warn("lost connection for FETCH(get).\n");
209 return (-1, 0);
210 }
213211 $resp = &next_response($HANDLE);
214212 return (-1, 0) if ($resp !~ /^\)/ &&
215213 $resp !~ /^( FLAGS \(.*\)| UID $num)+\)/);
239237 my($size, $len) = ($2, $3);
240238 my $field = '';
241239 alarm(imap_timeout()) unless win95p();
242 $! = 0;
243240 while (<$HANDLE>) {
244 unless (win95p()) {
245 alarm(0);
246 if ($!) { # may be channel truoble
247 im_warn("lost connection for FETCH(head).\n");
248 return (-1, 0);
249 }
250 }
241 alarm(0) unless win95p();
251242 $len -= length($_);
252243 s/\r?\n$//;
253244 im_debug("$_\n") if (&debug('imap'));
268259 last if ($len <= 0);
269260 }
270261 alarm(0) unless win95p();
262 if ($len > 0) {
263 # may be channel trouble
264 im_warn("lost connection for FETCH(head).\n");
265 return (-1, 0);
266 }
271267 # $head{'bytes:'} = $size;
272268 $head{'kbytes:'} = int(($size + 1023) / 1024);
273269 $resp = &next_response($HANDLE);
298294 my $found = 0;
299295 my $f;
300296 alarm(imap_timeout()) unless win95p();
301 $! = 0;
302297 while (<$HANDLE>) {
303 unless (win95p()) {
304 alarm(0);
305 if ($!) { # may be channel truoble
306 im_warn("lost connection for FETCH(from).\n");
307 return -1;
308 }
309 }
298 alarm(0) unless win95p();
310299 $size -= length($_);
311300 s/\r\n$/\n/;
312301 im_debug($_) if (&debug('imap'));
321310 last if ($size <= 0);
322311 }
323312 alarm(0) unless win95p();
313 if ($size > 0) {
314 # may be channel trouble
315 im_warn("lost connection for FETCH(from).\n");
316 return -1;
317 }
324318 $f =~ s/\n[ \t]*/ /g;
325319 $f = '(sender unknown)' unless ($f);
326320 print "From $f\n";
792786 ($uid, $size, $len) = ($2, $3, $4);
793787 my @hdr;
794788 alarm(imap_timeout()) unless win95p();
795 $! = 0;
796789 while (<$HANDLE>) {
797 unless (win95p()) {
798 alarm(0);
799 if ($!) { # may be channel truoble
800 im_warn("lost connection for FETCH(scan).\n");
801 return -1;
802 }
803 }
790 alarm(0) unless win95p();
804791 $len -= length;
805792 s/\r?\n$/\n/;
806793 im_warn($_) if (&debug('imap'));
808795 last if ($len <= 0);
809796 }
810797 alarm(0) unless win95p();
798 if ($len > 0) {
799 # may be channel trouble
800 im_warn("lost connection for FETCH(scan).\n");
801 return -1;
802 }
811803 $resp = &next_response($HANDLE);
812804 if (!$uid) {
813805 return -1 if ($resp !~ /^ UID (\d+)\)/);
+2
-2
IM/Iso2022jp.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Iso2022jp.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Iso2022jp.pm version 20031028(IM146)";
1111
1212 package IM::Iso2022jp;
1313 require 5.003;
+2
-2
IM/Japanese.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Japanese.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Japanese.pm version 20031028(IM146)";
1111
1212 package IM::Japanese;
1313 require 5.003;
+2
-2
IM/LocalMbox.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::LocalMbox.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::LocalMbox.pm version 20031028(IM146)";
1111
1212 package IM::LocalMbox;
1313 require 5.003;
+2
-2
IM/Log.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Log.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Log.pm version 20031028(IM146)";
1111
1212 package IM::Log;
1313 require 5.003;
+2
-2
IM/MD5.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::MD5.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::MD5.pm version 20031028(IM146)";
1111
1212 package IM::MD5;
1313 require 5.003;
+2
-2
IM/Message.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Message.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Message.pm version 20031028(IM146)";
1111
1212 package IM::Message;
1313 require 5.003;
+2
-2
IM/MsgStore.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::MsgStore.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::MsgStore.pm version 20031028(IM146)";
1111
1212 package IM::MsgStore;
1313 require 5.003;
+22
-28
IM/Nntp.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Nntp.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Nntp.pm version 20031028(IM146)";
1111
1212 package IM::Nntp;
1313 require 5.003;
169169
170170 im_notice("getting article $i.\n");
171171 $rc = &tcp_command(\*NNTPd, "HEAD $i", '');
172 next if ($rc > 0);
173 if ($rc < 0) {
172 if ($rc != 0) {
174173 im_warn("HEAD command failed.\n");
175174 return -1;
176175 }
177176 $count++;
178177 my($found, $f) = (0, '');
179178 alarm(nntp_timeout()) unless win95p();
180 $! = 0;
181179 while (<NNTPd>) {
182 unless (win95p()) {
183 alarm(0);
184 if ($!) { # may be channel truoble
185 im_warn("lost connection for HEAD.\n");
186 return -1;
187 }
188 }
180 alarm(0) unless win95p();
189181 s/\r\n$/\n/;
190182 last if ($_ =~ /^\.\n$/);
191183 s/^\.//;
193185 $f .= $_;
194186 }
195187 alarm(0) unless win95p();
188 if (!defined($_)) {
189 # may be channel trouble
190 im_warn("lost connection for HEAD.\n");
191 return -1;
192 }
196193 return $f;
197194 }
198195
213210 $count++;
214211 my($found, $f) = (0, '');
215212 alarm(nntp_timeout()) unless win95p();
216 $! = 0;
217213 while (<NNTPd>) {
218 unless (win95p()) {
219 alarm(0);
220 if ($!) { # may be channel truoble
221 im_warn("lost connection for HEAD.\n");
222 return -1;
223 }
224 }
214 alarm(0) unless win95p();
225215 s/\r\n$/\n/;
226216 last if ($_ =~ /^\.\n$/);
227217 s/^\.//;
235225 $found = 0;
236226 }
237227 }
228 alarm(0) unless win95p();
229 if (!defined($_)) {
230 # may be channel trouble
231 im_warn("lost connection for HEAD.\n");
232 return -1;
233 }
238234 $f =~ s/\n[ \t]*/ /g;
239235 $f = '(sender unknown)' unless ($f);
240236 print "From $f\n";
284280 }
285281 my @Article = ();
286282 alarm(nntp_timeout()) unless win95p();
287 $! = 0;
288283 while (<NNTPd>) {
289 unless (win95p()) {
290 alarm(0);
291 if ($!) { # may be channel truoble
292 im_warn("lost connection for ARTICLE.\n");
293 return(-1, '');
294 }
295 }
284 alarm(0) unless win95p();
296285 s/\r\n$/\n/;
297286 last if ($_ =~ /^\.\n$/);
298287 s/^\.//;
300289 im_debug($_) if (&debug('nntp'));
301290 }
302291 alarm(0) unless win95p();
292 if (!defined($_)) {
293 # may be channel trouble
294 im_warn("lost connection for ARTICLE.\n");
295 return(-1, '');
296 }
303297 return(0, \@Article);
304298 }
305299
+20
-26
IM/Pop.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Pop.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Pop.pm version 20031028(IM146)";
1111
1212 package IM::Pop;
1313 require 5.003;
147147 return -1;
148148 }
149149 alarm(pop_timeout()) unless win95p();
150 $! = 0;
151150 while (<POPd>) {
152 unless (win95p()) {
153 alarm(0);
154 if ($!) { # may be channel truoble
155 im_warn("lost connection for RETR.\n");
156 return -1;
157 }
158 }
151 alarm(0) unless win95p();
159152 s/\r\n$/\n/;
160153 last if ($_ =~ /^\.\n$/);
161154 s/^\.//;
163156 push (@Message, $_);
164157 }
165158 alarm(0) unless win95p();
159 if (!defined($_)) {
160 # may be channel trouble
161 im_warn("lost connection for RETR.\n");
162 return -1;
163 }
166164
167165 return -1 if (store_message(\@Message, $dst, $noscan) < 0);
168166 &exec_getsbrfile($dst);
183181 my(%head);
184182 undef %head;
185183 alarm(pop_timeout()) unless win95p();
186 $! = 0;
187184 while (<POPd>) {
188 unless (win95p()) {
189 alarm(0);
190 if ($!) { # may be channel truoble
191 im_warn("lost connection for HEAD.\n");
192 return 0;
193 }
194 }
185 alarm(0) unless win95p();
195186 s/\r?\n$//;
196187 last if ($_ =~ /^\.$/);
197188 s/^\.//;
213204 }
214205 }
215206 alarm(0) unless win95p();
207 if (!defined($_)) {
208 # may be channel trouble
209 im_warn("lost connection for HEAD.\n");
210 return 0;
211 }
216212 return \%head;
217213 }
218214
237233 return -1;
238234 }
239235 alarm(pop_timeout()) unless win95p();
240 $! = 0;
241236 while (<POPd>) {
242 unless (win95p()) {
243 alarm(0);
244 if ($!) { # may be channel truoble
245 im_warn("lost connection for UIDL.\n");
246 return -1;
247 }
248 }
237 alarm(0) unless win95p();
249238 s/\r\n$/\n/;
250239 last if ($_ =~ /^\.\n$/);
251240 im_debug($_) if (&debug('pop'));
254243 }
255244 }
256245 alarm(0) unless win95p();
246 if (!defined($_)) {
247 # may be channel trouble
248 im_warn("lost connection for UIDL.\n");
249 return -1;
250 }
257251 return 0;
258252 }
259253
+2
-2
IM/Recipient.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 27, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Recipient.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Recipient.pm version 20031028(IM146)";
1111
1212 package IM::Recipient;
1313 require 5.003;
+2
-2
IM/Scan.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Scan.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Scan.pm version 20031028(IM146)";
1111
1212 package IM::Scan;
1313 require 5.003;
+2
-2
IM/Smtp.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Smtp.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Smtp.pm version 20031028(IM146)";
1111
1212 package IM::Smtp;
1313 require 5.003;
+2
-2
IM/Ssh.pm less more
55 ### Author: Masatoshi Tsuchiya <tsuchiya@pine.kuee.kyoto-u.ac.jp>
66 ### Internet Message Group <img@mew.org>
77 ### Created: Oct 05, 1999
8 ### Revised: Jun 1, 2003
8 ### Revised: Oct 28, 2003
99 ###
1010
11 my $PM_VERSION = "IM::Ssh.pm version 20030601(IM145)";
11 my $PM_VERSION = "IM::Ssh.pm version 20031028(IM146)";
1212
1313 package IM::Ssh;
1414 require 5.003;
+2
-2
IM/Stdio.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: May 7, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::Stdio.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::Stdio.pm version 20031028(IM146)";
1111
1212 package IM::Stdio;
1313 require 5.003;
+27
-24
IM/TcpTransaction.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
10 my $PM_VERSION = "IM::TcpTransaction.pm version 20030601(IM145)";
10 my $PM_VERSION = "IM::TcpTransaction.pm version 20031028(IM146)";
1111
1212 package IM::TcpTransaction;
1313 require 5.003;
206206 im_notice("<<< $logcmd\n");
207207 $Session_log .= "<<< $logcmd\n" if ($Logging);
208208 unless (print $CHAN "$command\r\n") {
209 # may be channel truoble
209 # may be channel trouble
210210 @Response = ($!);
211211 return 1;
212212 }
219219 }
220220 do {
221221 alarm(command_timeout()) unless win95p();
222 $! = 0;
223222 $resp = <$CHAN>;
224 unless (win95p()) {
225 alarm(0);
226 if ($!) { # may be channel truoble
227 @Response = ("$!");
228 return 1;
229 }
223 if (!defined($resp)) {
224 # may be channel trouble
225 @Response = ("$!");
226 }
227 alarm(0) unless win95p();
228 if (!defined($resp)) {
229 # may be channel trouble
230 return 1;
230231 }
231232 $resp =~ s/[\r\n]+$//;
232233 if ($resp =~ /^([0-9][0-9][0-9])/) {
267268 $0 = progname() . ": greeting ($Cur_server)";
268269 }
269270 alarm(command_timeout()) unless win95p();
270 $! = 0;
271271 $resp = <$CHAN>;
272 unless (win95p()) {
273 alarm(0);
274 if ($!) { # may be channel truoble
275 im_notice("$!\n");
276 return '';
277 }
272 if (!defined($resp)) {
273 # may be channel trouble
274 im_notice("$!\n");
275 }
276 alarm(0) unless win95p();
277 if (!defined($resp)) {
278 # may be channel trouble
279 return '';
278280 }
279281 $resp =~ s/[\r\n]+/\n/;
280282 im_notice(">>> $resp");
302304 my $resp;
303305
304306 alarm(command_timeout()) unless win95p();
305 $! = 0;
306307 $resp = <$CHAN>;
307 unless (win95p()) {
308 alarm(0);
309 if ($!) { # may be channel truoble
310 im_notice("$!\n");
311 return '';
312 }
308 if (!defined($resp)) {
309 # may be channel trouble
310 im_notice("$!\n");
311 }
312 alarm(0) unless win95p();
313 if (!defined($resp)) {
314 # may be channel trouble
315 return '';
313316 }
314317 $resp =~ s/[\r\n]+/\n/;
315318 im_notice(">>> $resp");
+4
-4
IM/Util.pm less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
8 ###
9
10 my $PM_VERSION = "IM::Util.pm version 20030601(IM145)";
7 ### Revised: Oct 28, 2003
8 ###
9
10 my $PM_VERSION = "IM::Util.pm version 20031028(IM146)";
1111
1212 package IM::Util;
1313 require 5.003;
+2
-2
imali.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imali version 20030601(IM145)";
15 my $VERSION = "imali version 20031028(IM146)";
1616
1717 $Prog = 'imali';
1818
+2
-2
imcat.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: May 5, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imcat version 20030601(IM145)";
15 my $VERSION = "imcat version 20031028(IM146)";
1616
1717 $Prog = 'imcat';
1818
+2
-2
imcd.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imcd version 20030601(IM145)";
15 my $VERSION = "imcd version 20031028(IM146)";
1616
1717 $Prog = 'imcd';
1818
+2
-2
imclean.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imclean version 20030601(IM145)";
15 my $VERSION = "imclean version 20031028(IM146)";
1616
1717 $Prog = 'imclean';
1818
+2
-2
imget.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Jan 14, 1996
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imget version 20030601(IM145)";
15 my $VERSION = "imget version 20031028(IM146)";
1616
1717 $Prog = 'imget';
1818
+2
-2
imgrep.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imgrep version 20030601(IM145)";
15 my $VERSION = "imgrep version 20031028(IM146)";
1616
1717 $Prog = 'imgrep';
1818
+2
-2
imhist.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Jul 6, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imhist version 20030601(IM145)";
15 my $VERSION = "imhist version 20031028(IM146)";
1616
1717 $Prog = 'imhist';
1818
+2
-2
imhsync.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Jul 02, 1998
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imhsync version 20030601(IM145)";
15 my $VERSION = "imhsync version 20031028(IM146)";
1616
1717 $Prog = 'imhsync';
1818
+2
-2
imjoin.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: May 5, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imjoin version 20030601(IM145)";
15 my $VERSION = "imjoin version 20031028(IM146)";
1616
1717 $Prog = 'imjoin';
1818
+2
-2
imls.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Dec 31, 1995
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imls version 20030601(IM145)";
15 my $VERSION = "imls version 20031028(IM146)";
1616
1717 $Prog = 'imls';
1818
+2
-2
immknmz.in less more
55 ### Author: Shuichi Kitaguchi <kit@Mew.org>
66 ### Internet Message Group <img@mew.org>
77 ### Created: Sep 23, 1999
8 ### Revised: Jun 1, 2003
8 ### Revised: Oct 28, 2003
99 ###
1010
1111 BEGIN {
1313 @im_src_siteperl@
1414 };
1515
16 my $VERSION = "immknmz version 20030601(IM145)";
16 my $VERSION = "immknmz version 20031028(IM146)";
1717
1818 $Prog = 'immknmz';
1919
+2
-2
immv.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "immv version 20030601(IM145)";
15 my $VERSION = "immv version 20031028(IM146)";
1616
1717 $Prog = 'immv';
1818
+2
-2
impack.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "impack version 20030601(IM145)";
15 my $VERSION = "impack version 20031028(IM146)";
1616
1717 $Prog = 'impack';
1818
+2
-2
impath.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "impath version 20030601(IM145)";
15 my $VERSION = "impath version 20031028(IM146)";
1616
1717 $Prog = 'impath';
1818
+2
-2
imput.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Aug 31, 1995
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 $VERSION = "imput version 20030601(IM145)";
15 $VERSION = "imput version 20031028(IM146)";
1616
1717 $Prog = 'imput';
1818
+2
-2
impwagent.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Sep 13, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "impwagent version 20030601(IM145)";
15 my $VERSION = "impwagent version 20031028(IM146)";
1616
1717 $Prog = 'impwagent';
1818
+2
-2
imrm.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 23, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imrm version 20030601(IM145)";
15 my $VERSION = "imrm version 20031028(IM146)";
1616
1717 $Prog = 'imrm';
1818
+2
-2
imsetup.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: May 9, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imsetup version 20030601(IM145)";
15 my $VERSION = "imsetup version 20031028(IM146)";
1616
1717 $Prog = 'imsetup';
1818
+2
-2
imsort.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Jul 2, 1997
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imsort version 20030601(IM145)";
15 my $VERSION = "imsort version 20031028(IM146)";
1616
1717 $Prog = 'imsort';
1818
+2
-2
imstore.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Dec 31, 1995
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imstore version 20030601(IM145)";
15 my $VERSION = "imstore version 20031028(IM146)";
1616
1717 $Prog = 'imstore';
1818
+2
-2
imtar.in less more
44 ###
55 ### Author: Internet Message Group <img@mew.org>
66 ### Created: Apr 08, 1998
7 ### Revised: Jun 1, 2003
7 ### Revised: Oct 28, 2003
88 ###
99
1010 BEGIN {
1212 @im_src_siteperl@
1313 };
1414
15 my $VERSION = "imtar version 20030601(IM145)";
15 my $VERSION = "imtar version 20031028(IM146)";
1616
1717 $Prog = 'imtar';
1818