--- dir2sap.pl	2003/03/24 16:35:39	1.2
+++ dir2sap.pl	2003/03/24 17:12:15	1.3
@@ -8,7 +8,7 @@
 use Data::Dumper;
 use XML::Simple;
 use Fcntl;   # For O_RDWR
-use NDBM_File;
+use DB_File;
 
 my $config_file;
 
@@ -36,7 +36,7 @@
 my $dbm = $config->{dbm} || die "config: no <dbm> defined";
 
 my %dbmhash;
-tie %dbmhash, "NDBM_File", $dbm, O_RDWR, 0666 || die "tie: can't tie to '$dbm': $!";
+dbmopen %dbmhash, $dbm, 0666 || die "tie: can't tie to '$dbm': $!";
 
 my $rfc = new SAP::Rfc(
 	ASHOST	=> $config->{sap}->{ashost},
@@ -50,8 +50,6 @@
 
 $rfc->is_connected || die "FATAL: SAP not connected";
 
-print STDERR "Using '$indir' as input directory...\n";
-
 opendir(DIR, $indir) || die "can't opendir $indir: $!";
 my @files = grep { !/^\./ && -f "$indir/$_" } readdir(DIR);
 closedir DIR;
@@ -59,11 +57,11 @@
 print LOG scalar localtime," Found ",$#files+1," files in directory...\n";
 
 foreach my $file (@files) {
-	if ($dbmhash{$file}) {
+	if (exists $dbmhash{$file}) {
+		print STDERR scalar localtime," Skipping file '$file'\n";
+	} else {
 		print LOG scalar localtime," New file '$file', processing...\n";
 		$dbmhash{$file}++;
-	} else {
-		print STDERR scalar localtime," Skipping file '$file'\n";
 	}
 }