/[sap_import]/pipe2sap.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /pipe2sap.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by dpavlin, Mon Feb 3 14:30:50 2003 UTC revision 1.5 by dpavlin, Thu Feb 6 08:45:46 2003 UTC
# Line 33  $mm++; Line 33  $mm++;
33  my $outfile = $config_file;  my $outfile = $config_file;
34  $outfile =~ s/\.xml//i;  $outfile =~ s/\.xml//i;
35  $outfile =~ s/^.*\/([^\/]+)/$1/i;       # basename  $outfile =~ s/^.*\/([^\/]+)/$1/i;       # basename
36  $outfile .= "_${yy}-${mm}-${dd}_${hh}:${mm}:${ss}_$$";  $outfile .= sprintf("_%04d-%02d-%02d_%02d:%02d:%02d_%d",$yy,$mm,$dd,$hh,$mm,$ss,$$);
37    
38  my $rfc = new SAP::Rfc(  my $rfc = new SAP::Rfc(
39          ASHOST  => $config->{sap}->{ashost},          ASHOST  => $config->{sap}->{ashost},
# Line 98  if ($#data != $lines) { Line 98  if ($#data != $lines) {
98          close(OUT);          close(OUT);
99    
100          # cludge filename to nark.0004          # cludge filename to nark.0004
101          rename "$outdir/$outfile", "$outdir/nark.0004";          #rename "$outdir/$outfile", "$outdir/nark.0004";
102          $it->FILENAME("nark.0004");          #$it->FILENAME("nark.0004");
103    
104          # call SAP R/3          # call SAP R/3
105          $rfc->callrfc( $it );          $rfc->callrfc( $it );
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.26