--- mail2sap.pl	2002/11/19 12:16:02	1.6
+++ mail2sap.pl	2002/11/19 18:20:55	1.7
@@ -1,4 +1,4 @@
-#!/usr/bin/suidperl -w
+#!/usr/bin/suidperl 
 
 # read e-mail from stdit (pipe from /etc/aliases) and call SAP rfc function
 #
@@ -82,9 +82,13 @@
 
 		my $it = $rfc->discover($config->{sap}->{discover}) || die "discover: $!";
 
-		$it->FILEPATH( $config->{sap}->{filepath} );
+		foreach my $p ($config->{sap}->{params}) {
+			foreach my $p_name (keys %{$p}) {
+				$it->$p_name($p->{$p_name});
+			}
+		}
+
 		$it->FILENAME( $new );
-		$it->PORT( $config->{sap}->{port} );
 
 		$rfc->callrfc( $it );