--- trunk/bin/BackupPC_updatedb	2005/07/11 00:07:25	15
+++ trunk/bin/BackupPC_updatedb	2005/07/31 20:53:40	34
@@ -9,6 +9,7 @@
 use Getopt::Std;
 use constant BPC_FTYPE_DIR => 5;
 
+my $debug = 0;
 $|=1;
 
 my $hosts;
@@ -23,7 +24,7 @@
 
 my %opt;
 
-if ( !getopts("cdm:", \%opt ) ) {
+if ( !getopts("cdm:v", \%opt ) ) {
 	print STDERR <<EOF;
 usage: $0 [-c|-d] [-m num]
 
@@ -81,7 +82,7 @@
 		create table files (
 			ID	INTEGER		NOT NULL PRIMARY KEY,  
 			shareID	INTEGER		NOT NULL references shares(id),
-			backupNum  INTEGER	NOT NULL references backups(id),
+			backupNum  INTEGER	NOT NULL references backups(num),
 			name       VARCHAR(255)	NOT NULL,
 			path       VARCHAR(255)	NOT NULL,
 			fullpath   VARCHAR(255)	NOT NULL,
@@ -122,6 +123,11 @@
 	print " done...\n";
 }
 
+if ($opt{v}) {
+	print "Debug level at $opt{v}\n";
+	$debug = $opt{v};
+}
+
 #################################INSERT VALUES#############################
 
 # get hosts
@@ -192,15 +198,7 @@
 		my ($broj) = $sth->{backups_broj}->fetchrow_array();
 		next if ($broj > 0);
 
-		$sth->{insert_backups}->execute(
-			$hostID,
-			$backupNum,
-			$backup->{'endTime'},
-			$backup->{'type'}
-		);
-		$dbh->commit();
-
-		my $files = BackupPC::View->new($bpc, $hostname, \@backups);
+		my $files = BackupPC::View->new($bpc, $hostname, \@backups, 1);
 		foreach my $share ($files->shareList($backupNum)) {
 
 			print "\t$share";
@@ -210,6 +208,15 @@
 			print " $nf/$f files $nd/$d dirs\n";
 			$dbh->commit();
 		}
+
+		$sth->{insert_backups}->execute(
+			$hostID,
+			$backupNum,
+			$backup->{'endTime'},
+			$backup->{'type'}
+		);
+		$dbh->commit();
+
 	}
 }
 undef $sth;
@@ -236,7 +243,10 @@
 		VALUES (?,?,?,?)
 	});
 
-	$sth->{insert_share}->execute($hostID,$share, $hostname . $share,undef);
+	my $drop_down = $hostname . '/' . $share;
+	$drop_down =~ s#//+#/#g;
+
+	$sth->{insert_share}->execute($hostID,$share, $drop_down ,undef);
 	return $dbh->func('last_insert_rowid');      	
 }
 
@@ -268,57 +278,80 @@
 
 	my ($bpc, $hostname, $backups, $backupNum, $share, $dir, $shareID) = @_;
 
-	my ($nr_files, $new_files, $nr_dirs, $new_dirs) = (0,0,0,0);
+	print STDERR "recurse($hostname,$backupNum,$share,$dir,$shareID)\n" if ($debug >= 1);
 
-	my $files = BackupPC::View->new($bpc, $hostname, $backups);             
-	my $filesInBackup = $files->dirAttrib($backupNum, $share, $dir);
+	my ($nr_files, $new_files, $nr_dirs, $new_dirs) = (0,0,0,0);
 
-	# first, add all the entries in current directory
-	foreach my $path_key (keys %{$filesInBackup}) {
-		my @data = (
-			$shareID,
-			$backupNum,
-			$path_key,
-			$filesInBackup->{$path_key}->{'relPath'},
-			$filesInBackup->{$path_key}->{'fullPath'},
-#			$filesInBackup->{$path_key}->{'sharePathM'},
-			$filesInBackup->{$path_key}->{'mtime'},
-			$filesInBackup->{$path_key}->{'type'},
-			$filesInBackup->{$path_key}->{'size'}
-		);
+	{ # scope
+		my @stack;
 
-		my $key = join(" ", (
-			$shareID,
-			$dir,
-			$path_key,
-			$filesInBackup->{$path_key}->{'mtime'},
-			$filesInBackup->{$path_key}->{'size'}
-		));
+		my $files = BackupPC::View->new($bpc, $hostname, $backups, 1);
+		my $filesInBackup = $files->dirAttrib($backupNum, $share, $dir);
 
+		# first, add all the entries in current directory
+		foreach my $path_key (keys %{$filesInBackup}) {
+			my @data = (
+				$shareID,
+				$backupNum,
+				$path_key,
+				$filesInBackup->{$path_key}->{'relPath'},
+				$filesInBackup->{$path_key}->{'fullPath'},
+	#			$filesInBackup->{$path_key}->{'sharePathM'},
+				$filesInBackup->{$path_key}->{'mtime'},
+				$filesInBackup->{$path_key}->{'type'},
+				$filesInBackup->{$path_key}->{'size'}
+			);
+
+			my $key = join(" ", (
+				$shareID,
+				$dir,
+				$path_key,
+				$filesInBackup->{$path_key}->{'mtime'},
+				$filesInBackup->{$path_key}->{'size'}
+			));
+
+
+			if (! $beenThere->{$key} && ! found_in_db(@data)) {
+				print STDERR "# key: $key [", $beenThere->{$key},"]" if ($debug >= 2);
+				$sth->{'insert_files'}->execute(@data);
+				if ($filesInBackup->{$path_key}->{'type'} == BPC_FTYPE_DIR) {
+					$new_dirs++;
+					print STDERR " dir\n" if ($debug >= 2);
+				} else {
+					$new_files++;
+					print STDERR " file\n" if ($debug >= 2);
+				}
+			}
+			$beenThere->{$key}++;
 
-		if (! $beenThere->{$key} && ! found_in_db(@data)) {
-			$sth->{'insert_files'}->execute(@data);
-#			print STDERR "$key\n";
 			if ($filesInBackup->{$path_key}->{'type'} == BPC_FTYPE_DIR) {
-				$new_dirs++;
+				$nr_dirs++;
+
+				my $full_path = $dir . '/' . $path_key;
+				push @stack, $full_path;
+				print STDERR "### store to stack: $full_path\n" if ($debug >= 3);
+
+#				my ($f,$nf,$d,$nd) = recurseDir($bpc, $hostname, $backups, $backupNum, $share, $path_key, $shareID) unless ($beenThere->{$key});
+#
+#				$nr_files += $f;
+#				$new_files += $nf;
+#				$nr_dirs += $d;
+#				$new_dirs += $nd;
+
 			} else {
-				$new_files++;
+				$nr_files++;
 			}
 		}
-		$beenThere->{$key}++;
-
-		if ($filesInBackup->{$path_key}->{'type'} == BPC_FTYPE_DIR) {
-			$nr_dirs++;
 
-			my ($f,$nf,$d,$nd) = recurseDir($bpc, $hostname, $backups, $backupNum, $share, $path_key, $shareID);
+		print STDERR "## STACK ",join(", ", @stack),"\n" if ($debug >= 2);
 
+		while ( my $dir = shift @stack ) {
+			my ($f,$nf,$d,$nd) = recurseDir($bpc, $hostname, $backups, $backupNum, $share, $dir, $shareID);
+			print STDERR "# $dir f: $f nf: $nf d: $d nd: $nd\n" if ($debug >= 1);
 			$nr_files += $f;
 			$new_files += $nf;
 			$nr_dirs += $d;
 			$new_dirs += $nd;
-
-		} else {
-			$nr_files++;
 		}
 	}