1 |
#!/usr/bin/perl -w |
#!/usr/bin/suidperl -w |
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 |
# |
# |
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 |
$it->FILEPATH( "ZSIGMA" ); |
$it->FILEPATH( $config->{sap}->{filepath} ); |
86 |
$it->FILENAME( $new ); |
$it->FILENAME( $new ); |
87 |
$it->PORT( "ZIDOC" ); |
$it->PORT( $config->{sap}->{port} ); |
88 |
|
|
89 |
$rfc->callrfc( $it ); |
$rfc->callrfc( $it ); |
90 |
|
|