Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv2736
Modified Files:
mhexternal.pl
Log Message:
Removed newsserver option. Client no longer requires it.
Index: mhexternal.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhexternal.pl,v
retrieving revision 2.16
retrieving revision 2.17
diff -C2 -r2.16 -r2.17
*** mhexternal.pl 2 Aug 2003 06:04:47 -0000 2.16
--- mhexternal.pl 7 Aug 2003 05:49:47 -0000 2.17
***************
*** 136,141 ****
}
- my($newsserver) = $args =~ /\bnewsserver=(\S+)/i;
-
## Get content-type
if (!defined($ctype = $fields->{'x-mha-content-type'})) {
--- 136,139 ----
***************
*** 204,221 ****
## Write file
! if ($newsserver) {
! $urlfile = 'news://'.$newsserver.'/'.
! mhonarc::urlize($mhonarc::MHAmsgid).'?part='.
! readmail::gen_full_part_number($fields).'&type='.
! $fields->{'x-mha-content-type'};
! $urlfile .= '&filename='.$nameparm if $nameparm;
!
! } else {
! $filename =
! mhonarc::write_attachment($ctype, $data, $path, $name, $inext);
! ($urlfile = $filename) =~
! s/([^\w.\-\/])/sprintf("%%%X",unpack("C",$1))/ge;
! &debug("File-written: $filename") if $debug;
! }
## Check if inlining when CT not image/*
--- 202,210 ----
## Write file
! $filename =
! mhonarc::write_attachment($ctype, $data, $path, $name, $inext);
! ($urlfile = $filename) =~
! s/([^\w.\-\/])/sprintf("%%%X",unpack("C",$1))/ge;
! &debug("File-written: $filename") if $debug;
## Check if inlining when CT not image/*
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV