/[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.5 by dpavlin, Thu Feb 6 08:45:46 2003 UTC revision 1.7 by dpavlin, Mon Mar 10 15:49:01 2003 UTC
# Line 21  my $log = $config->{log} || die "config: Line 21  my $log = $config->{log} || die "config:
21    
22  # open log and redirect die to it...  # open log and redirect die to it...
23  open(LOG,">> $log") || warn "open log $log: $!";  open(LOG,">> $log") || warn "open log $log: $!";
24  local $SIG{__DIE__} = sub { print LOG $_[0] ; die $_[0] };  local $SIG{__DIE__} = sub { print scalar localtime LOG $_[0] ; die $_[0] };
25    
26  # directory in which files will be left  # directory in which files will be left
27  my $outdir = $config->{outdir} || die "config: on <outdir> defined";  my $outdir = $config->{outdir} || die "config: on <outdir> defined";
# Line 97  if ($#data != $lines) { Line 97  if ($#data != $lines) {
97          print OUT $first,@data;          print OUT $first,@data;
98          close(OUT);          close(OUT);
99    
100          # cludge filename to nark.0004          # cludge filename to medika
101          #rename "$outdir/$outfile", "$outdir/nark.0004";          link("$outdir/$outfile","$outdir/medika");
102          #$it->FILENAME("nark.0004");          chmod 0664,"$outdir/medika";
103            $it->FILENAME("medika");
104    
105          # call SAP R/3          # call SAP R/3
106          $rfc->callrfc( $it );          $rfc->callrfc( $it );
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.26