1 |
#!/usr/bin/suidperl -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 |
# |
# |
82 |
|
|
83 |
my $it = $rfc->discover($config->{sap}->{discover}) || die "discover: $!"; |
my $it = $rfc->discover($config->{sap}->{discover}) || die "discover: $!"; |
84 |
|
|
85 |
$it->FILEPATH( $config->{sap}->{filepath} ); |
foreach my $p ($config->{sap}->{params}) { |
86 |
|
foreach my $p_name (keys %{$p}) { |
87 |
|
$it->$p_name($p->{$p_name}); |
88 |
|
} |
89 |
|
} |
90 |
|
|
91 |
$it->FILENAME( $new ); |
$it->FILENAME( $new ); |
|
$it->PORT( $config->{sap}->{port} ); |
|
92 |
|
|
93 |
$rfc->callrfc( $it ); |
$rfc->callrfc( $it ); |
94 |
|
|