--- mail2sap.pl	2003/03/24 13:02:30	1.10
+++ mail2sap.pl	2003/04/02 07:16:44	1.11
@@ -44,9 +44,8 @@
     if (@parts) {	# multipart...
 	map { dump_entity($_) } @parts;
     } else {		# single part...
-#	print "    Part: ", $ent->bodyhandle->path, 
-#	      " (", scalar($ent->head->mime_type), ")\n";
-	if ($ent->head->mime_type =~ m,text/plain,i) {
+	print LOG scalar localtime," Att: ", $ent->bodyhandle->path, " (", scalar($ent->head->mime_type), ")\n";
+	if ($ent->head->mime_type =~ m,text/plain,i && $ent->bodyhandle->path !~ m/(Orders|edi)/i) {
 #		open(I,$ent->bodyhandle->path) || die "$ent->bodyhandle->path: $!";
 #		while(<I>) { print LOG $_; }
 #		close(I);
@@ -64,9 +63,6 @@
 		$new .= $suffix;
 
 		rename $file,"$outdir/$new" || die "move $file -> $outdir/$new: $!";
-		my $prog = $0;
-		$prog =~ s/^.*\/([^\/])+$/$1/g;
-		print LOG scalar localtime," $prog $new\n";
 
 		# now, call SAP rfc
 
@@ -94,6 +90,7 @@
 
 		$it->FILENAME( $new );
 
+		print LOG scalar localtime," RFC: $new\n";
 		$rfc->callrfc( $it );
 
 		$rfc->close();