Re: [Qmail-scanner-general]cannot close mimeunpacker -

[Troy Frericks]

As I'm a novice with perl, can somebody tell me what the

"close(MIME)"

in /var/qmail/bin/qmail-scanner-queue.pl actually does?. I need to track 
down all of the files it is referencing.

Here are both the 'open' and the 'close' for reference (mimeunpacker_binary 
is reformime)...
==
open(MIME,"$mimeunpacker_binary  <$scandir/$wmaildir/new/$file_id|")
        ||&tempfail("cannot call mimeunpacker - $!");
close(MIME)||&tempfail("cannot close mimeunpacker - $!");
==

Troy Frericks.
[EMAIL PROTECTED]
#
At 11:24 PM 3/4/2003  Tuesday, [EMAIL PROTECTED] wrote:
I'm using [reformime] and am having some problems that were self caused. 
As root, I was testing a script that rather messed up my system. I have 
gotten everything working again except mimeunpacker/qmail-scanner-queue. 
The script used home directories in /etc/passwd and did chmod and chown on 
several of them (why is a completely differenet story). Anyway, it was 
supposed to process just one entry, but processed all. So, somewhere I 
have a file with protection or owner information that is messed up, but I 
can't find which one. Here is what I get when I send an email...
==
[EMAIL PROTECTED] troyf]# mail troyf
Subject: test to troyf
test
.
Cc:
[EMAIL PROTECTED] troyf]# 
X-Qmail-Scanner-1.15:[AnkenyChristianAcademy.com10468399334245397] cannot 
close mimeunpacker -
qmail-inject: fatal: qq temporary problem (#4.3.0)

[EMAIL PROTECTED] troyf]#
==
Here is some base information...
==
[EMAIL PROTECTED] troyf]# ls -l 
/var/qmail/bin/qmail-scanner-queue.pl-rwsr-xr-x    1 
qmailq   qmail       55515 Mar  4 22:09 /var/qmail/bin/qmail-scanner-queue.pl
[EMAIL PROTECTED] troyf]# head -1 
/var/qmail/bin/qmail-scanner-queue.pl
#!/usr/bin/suidperl -T
[EMAIL PROTECTED] troyf]# ls -l /usr/bin/suidperl
-rws--x--x    2 root     root       808426 Apr  1  2002 /usr/bin/suidperl
[EMAIL PROTECTED] troyf]# grep "mimeunpacker_binary" 
/var/qmail/bin/qmail-scanner-queue.pl
my $mimeunpacker_binary='/usr/local/bin/reformime ';
if ($mimeunpacker_binary =~ /reformime/) {
  $mimeunpacker_binary .= " -x$scandir/$file_id/";
  &debug("d_m: starting $mimeunpacker_binary 
<$scandir/$wmaildir/new/$file_id [",&deltatime,"]");
  open(MIME,"$mimeunpacker_binary 
<$scandir/$wmaildir/new/$file_id|")||&tempfail("cannot call mimeunpacker 
- $!");
  &debug("d_m: finished $mimeunpacker_binary [",&deltatime,"]");
[EMAIL PROTECTED] troyf]# ls -l /usr/local/bin/reformime
-rwxr-xr-x    1 root     root        42964 Mar  3 22:52 
/usr/local/bin/reformime
[EMAIL PROTECTED] troyf]# perl --version
This is perl, v5.6.1 built for i386-linux
[snip]
[EMAIL PROTECTED] troyf]# ls -ld /var/spool/qmailscan
drwxrwx---  507 qmailq   qmail       28672 Mar  4 23:01 /var/spool/qmailscan
[EMAIL PROTECTED] troyf]#
==
Here is the log entry...
==
[EMAIL PROTECTED] root]# tail -2 
/var/spool/qmailscan/qmail-queue.log
04/03/2003 23:01:01:5425: d_m: starting 
/usr/local/bin/reformime 
-x/var/spool/qmailscan/AnkenyChristianAcademy.com10468404614245425/ 
</var/spool/qmailscan/working/new/AnkenyChristianAcademy.com10468404614245425 
[1046840461.77484]
04/03/2003 23:01:01:5425: tempfail: X-Qmail-Scanner-1.15: cannot close 
mimeunpacker -
==
And finaly, here is the small section of 
/var/qmail/bin/qmail-scanner-queue.pl that is having problems...
==
  &debug("d_m: starting $mimeunpacker_binary 
<$scandir/$wmaildir/new/$file_id [",&deltatime,"]");
  open(MIME,"$mimeunpacker_binary 
<$scandir/$wmaildir/new/$file_id|")||&tempfail("cannot call mimeunpacker 
- $!");
  while (<MIME>) {
    next if (/exists\./);
    &tempfail("d_m: output spotted from reformime - that shouldn't happen!");
  }
  close(MIME)||&tempfail("cannot close mimeunpacker - $!");
==

Sorry for all the information, but I have been dealing with this for 
almost a week now. Any help would be greatly appreciated!

Thanks!

Troy Frericks.
[EMAIL PROTECTED]
#
-------------------------------------------------------
This SF.net email is sponsored by: Etnus, makers of TotalView, The debugger
for complex code. Debugging C/C++ programs can leave you feeling lost and
disoriented. TotalView can help you find your way. Available on major UNIX
and Linux platforms. Try it free. www.etnus.com
_______________________________________________
Qmail-scanner-general mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/qmail-scanner-general




-------------------------------------------------------
This SF.net email is sponsored by: Etnus, makers of TotalView, The debugger 
for complex code. Debugging C/C++ programs can leave you feeling lost and 
disoriented. TotalView can help you find your way. Available on major UNIX 
and Linux platforms. Try it free. www.etnus.com
_______________________________________________
Qmail-scanner-general mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/qmail-scanner-general