--- pipe2sap.pl	2003/02/03 14:30:50	1.4
+++ pipe2sap.pl	2003/02/18 14:13:03	1.6
@@ -33,7 +33,7 @@
 my $outfile = $config_file;
 $outfile =~ s/\.xml//i;
 $outfile =~ s/^.*\/([^\/]+)/$1/i;	# basename
-$outfile .= "_${yy}-${mm}-${dd}_${hh}:${mm}:${ss}_$$";
+$outfile .= sprintf("_%04d-%02d-%02d_%02d:%02d:%02d_%d",$yy,$mm,$dd,$hh,$mm,$ss,$$);
 
 my $rfc = new SAP::Rfc(
 	ASHOST	=> $config->{sap}->{ashost},
@@ -97,9 +97,10 @@
 	print OUT $first,@data;
 	close(OUT);
 
-	# cludge filename to nark.0004
-	rename "$outdir/$outfile", "$outdir/nark.0004";
-	$it->FILENAME("nark.0004");
+	# cludge filename to medika
+	link("$outdir/$outfile","$outdir/medika");
+	chmod 0664,"$outdir/medika";
+	$it->FILENAME("medika");
 
 	# call SAP R/3
 	$rfc->callrfc( $it );