/[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.1 by dpavlin, Tue Dec 17 19:24:37 2002 UTC revision 1.2 by dpavlin, Mon Feb 3 13:36:52 2003 UTC
# Line 31  my ($ss,$mm,$hh,$dd,$mm,$yy) = localtime Line 31  my ($ss,$mm,$hh,$dd,$mm,$yy) = localtime
31  $yy += 1900;  $yy += 1900;
32  my $outfile = $config_file;  my $outfile = $config_file;
33  $outfile =~ s/\.xml//i;  $outfile =~ s/\.xml//i;
34    $outfile =~ s/^.*\/([^\/]+)/$1/i;       # basename
35  $outfile .= "_${yy}-${mm}-${dd}_${hh}:${mm}:${ss}_$$";  $outfile .= "_${yy}-${mm}-${dd}_${hh}:${mm}:${ss}_$$";
36    
37  my $rfc = new SAP::Rfc(  my $rfc = new SAP::Rfc(
# Line 64  my $lines;     # number of lines in order Line 65  my $lines;     # number of lines in order
65  my $first = <STDIN>;  my $first = <STDIN>;
66  push @data,$first;  push @data,$first;
67  chomp $first;  chomp $first;
68  if ($first =~ m/\s+(\d+)\w+$/) {  $first=~s/ //g;
69    if ($first =~ m/\s+(\d+)\w+\s*$/) {
70          $lines = $1;          $lines = $1;
71          print "Processing $lines lines\n";          print "Processing $lines lines\n";
72  } else {  } else {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26