/[sap_import]/mail2sap.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 /mail2sap.pl

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

revision 1.4 by dpavlin, Tue Nov 19 09:24:55 2002 UTC revision 1.7 by dpavlin, Tue Nov 19 18:20:55 2002 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/suidperl
2    
3  # read e-mail from stdit (pipe from /etc/aliases) and call SAP rfc function  # read e-mail from stdit (pipe from /etc/aliases) and call SAP rfc function
4  #  #
# Line 80  sub dump_entity { Line 80  sub dump_entity {
80    
81                  $rfc->is_connected || die "SAP rfc: not connected";                  $rfc->is_connected || die "SAP rfc: not connected";
82    
83                  my $it = $rfc->discover("Z_ZDMM0123_SIGMA_RFC") || die "discover: $!";                  my $it = $rfc->discover($config->{sap}->{discover}) || die "discover: $!";
84    
85                    foreach my $p ($config->{sap}->{params}) {
86                            foreach my $p_name (keys %{$p}) {
87                                    $it->$p_name($p->{$p_name});
88                            }
89                    }
90    
                 $it->FILEPATH( "ZSIGMA" );  
91                  $it->FILENAME( $new );                  $it->FILENAME( $new );
                 $it->PORT( "ZIDOC" );  
92    
93                  $rfc->callrfc( $it );                  $rfc->callrfc( $it );
94    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.26