Changeset 431 for wiki-toolkit/trunk/bin/wiki-toolkit-revert-to-date

Timestamp:

05/11/08 17:04:41 (4 years ago)

Author:

dom

Message:

fix much tab/whitespace damage; no functional changes.

Files:

• wiki-toolkit/trunk/bin/wiki-toolkit-revert-to-date (modified) (8 diffs)

wiki-toolkit/trunk/bin/wiki-toolkit-revert-to-date

@@ -13 +13 @@
             "date=s"         => \$date,
             "time=s"         => \$time,
-           );
+          );
 
 unless (defined($dbtype)) {
@@ -28 +28 @@
 
 unless (defined($date)) {
-        print "You must supply the date with the --date option.\n";
-        print "Further help can be found by typing 'perldoc $0'\n";
-        exit 1;
+    print "You must supply the date with the --date option.\n";
+    print "Further help can be found by typing 'perldoc $0'\n";
+    exit 1;
 }
 
 unless ($date =~ /^\d{4}\-\d{2}\-\d{2}$/) {
-        print "You must supply the date with --date in the format YYYY-MM-DD.\n";
-        print "Further help can be found by typing 'perldoc $0'\n";
-        exit 1;
+    print "You must supply the date with --date in the format YYYY-MM-DD.\n";
+    print "Further help can be found by typing 'perldoc $0'\n";
+    exit 1;
 }
 unless (!$time || $time =~ /^\d{2}:\d{2}:\d{2}$/) {
-        print "You must supply either no time, or the time in the format HH:MM:SS.\n";
-        print "Further help can be found by typing 'perldoc $0'\n";
-        exit 1;
+    print "You must supply either no time, or the time in the format HH:MM:SS.\n";
+    print "Further help can be found by typing 'perldoc $0'\n";
+    exit 1;
 }
 
@@ -50 +50 @@
 
 my %setup_modules = ( postgres => "Wiki::Toolkit::Store::Pg",
-                      mysql    => "Wiki::Toolkit::Store::MySQL",
-                      sqlite  => "Wiki::Toolkit::Store::SQLite"
+                      mysql    => "Wiki::Toolkit::Store::MySQL",
+                      sqlite  => "Wiki::Toolkit::Store::SQLite"
 );
 
@@ -72 +72 @@
 my $store;
 my $args = "dbname=>'$dbname', dbuser=>'$dbuser'";
-if($dbpass) { $args .= ", dbpass=>'$dbpass'"; }
-if($dbhost) { $args .= ", dbhost=>'$dbhost'"; }
-if($dbport) { $args .= ", dbport=>'$dbport'"; }
+if($dbpass) {
+    $args .= ", dbpass=>'$dbpass'";
+}
+if($dbhost) {
+    $args .= ", dbhost=>'$dbhost'";
+}
+if($dbport) {
+    $args .= ", dbport=>'$dbport'";
+}
 eval "\$store = $class->new($args);";
 
@@ -81 +87 @@
 
 # Grab the state as of then
-if($time) { $date .= " ".$time; }
+if($time) {
+    $date .= " ".$time;
+}
 print "Reverting to the state as of $date\n";
 
 my @nodes = $wiki->list_last_version_before($date);
 foreach my $node (@nodes) {
-        my %newnode = $wiki->retrieve_node($node->{name});
-        my $thenver = $node->{version};
-        if($thenver) { $thenver = sprintf("v%02d", $thenver); }
-        else         { $thenver = "(d)"; }
-
-        print sprintf('  %03d  - %s (now v%02d) - %s', $node->{id}, $thenver, $newnode{version}, $node->{name})."\n";
+    my %newnode = $wiki->retrieve_node($node->{name});
+    my $thenver = $node->{version};
+    if($thenver) {
+        $thenver = sprintf("v%02d", $thenver); }
+    else {
+        $thenver = "(d)";
+    }
+
+    print sprintf('  %03d  - %s (now v%02d) - %s', $node->{id}, $thenver, $newnode{version}, $node->{name})."\n";
 }
 
@@ -98 +109 @@
 chomp $ok;
 unless($ok eq "y") {
-        die("Aborting revert\n");
+    die("Aborting revert\n");
 }
 
 # Revert each node
 foreach my $node (@nodes) {
-        if($node->{version}) {
-                # Delete versions between now and then
-                my %newnode = $wiki->retrieve_node($node->{name});
-                for(my $ver=$newnode{version}; $ver>$node->{version}; $ver--) {
-                        $wiki->delete_node(
-                                                        name=>$node->{name}, 
-                                                        version=>$ver,
-                                                        wiki=>$wiki
-                        );
-                        print sprintf('Deleted node v%02d of %03d - %s',$ver, $node->{id},$node->{name})."\n";
-                }
-        } else {
-                # No version then, delete
-                $wiki->delete_node(
-                                                        name=>$node->{name},
-                                                        wiki=>$wiki
-                );
-                print sprintf('Deleted node %03d - %s',$node->{id},$node->{name})."\n";
-        }
+    if($node->{version}) {
+        # Delete versions between now and then
+        my %newnode = $wiki->retrieve_node($node->{name});
+        for (my $ver=$newnode{version}; $ver>$node->{version}; $ver--) {
+            $wiki->delete_node(
+                                name=>$node->{name}, 
+                                version=>$ver,
+                                wiki=>$wiki
+            );
+            print sprintf('Deleted node v%02d of %03d - %s',$ver, $node->{id},$node->{name})."\n";
+        }
+    } else {
+        # No version then, delete
+        $wiki->delete_node(
+                            name=>$node->{name},
+                            wiki=>$wiki
+        );
+        print sprintf('Deleted node %03d - %s',$node->{id},$node->{name})."\n";
+    }
 }
 
@@ -127 +138 @@
 print "\nDone revert to $date\n";
 
-
 =head1 NAME
 
@@ -138 +148 @@
 
   wiki-toolkit-revert-to-date --type postgres
-                   --name mywiki \
-                   --user wiki  \
-                   --pass wiki \
-                   --host 'db.example.com' \
-                   --port 1234 \
-                   --date 2007-01-05 \
-                   --time 11:23:21
+           --name mywiki \
+           --user wiki  \
+           --pass wiki \
+           --host 'db.example.com' \
+           --port 1234 \
+           --date 2007-01-05 \
+           --time 11:23:21
 
 =head1 DESCRIPTION