Changeset 431 for wiki-toolkit/trunk/bin/wiki-toolkit-rename-node

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-rename-node (modified) (6 diffs)

wiki-toolkit/trunk/bin/wiki-toolkit-rename-node

@@ -13 +13 @@
             "oldname=s"      => \$oldname,
             "newname=s"      => \$newname,
-           );
+          );
 
 unless (defined($dbtype)) {
@@ -28 +28 @@
 
 unless (defined($oldname)) {
-        print "You must supply the old node name with the --oldname option.\n";
-        print "Further help can be found by typing 'perldoc $0'\n";
-        exit 1;
+    print "You must supply the old node name with the --oldname option.\n";
+    print "Further help can be found by typing 'perldoc $0'\n";
+    exit 1;
 }
 
 unless (defined($newname)) {
-        print "You must supply the new node name with the --newname option.\n";
-        print "Further help can be found by typing 'perldoc $0'\n";
-        exit 1;
+    print "You must supply the new node name with the --newname option.\n";
+    print "Further help can be found by typing 'perldoc $0'\n";
+    exit 1;
 }
 
@@ -45 +45 @@
 
 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"
 );
 
@@ -67 +67 @@
 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 @@
 print "Renamed '$oldname' to '$newname'\n";
 
-
 =head1 NAME
 
@@ -92 +97 @@
 
   wiki-toolkit-rename-node --type postgres
-                   --name mywiki \
-                   --user wiki  \
-                   --pass wiki \
-                   --host 'db.example.com' \
-                   --port 1234
-                   --oldname MyOldNodeName \
-                   --nemname FancyNewNodeName
+           --name mywiki \
+           --user wiki  \
+           --pass wiki \
+           --host 'db.example.com' \
+           --port 1234
+           --oldname MyOldNodeName \
+           --nemname FancyNewNodeName
 
 =head1 DESCRIPTION