Changeset 208

Timestamp:

Jul 2, 2007, 5:17:18 PM (17 years ago)

Author:

joergs

Message:

perltidy

File:

• trunk/dasscm/dasscm (modified) (12 diffs)

trunk/dasscm/dasscm

@@ -5 +5 @@
 use strict;
 
-use Env qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USERNAME $DASSCM_USER $DASSCM_PASSWORD);
+use Env
+  qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USERNAME $DASSCM_USER $DASSCM_PASSWORD);
 use Cwd;
 use Term::ReadKey;
@@ -68 +69 @@
     print
       "svn checkout --no-auth-cache --username USERNAME https://dass-it.de/svn/dasscm/HOSTNAME\n";
-    print
-      "environment variables\n",
-      "    DASSCM_REPO\n", 
-      "    DASSCM_PROD¸n",
-      "    DASSCM_USERNAME\n",
-      "    DASSCM_PASSWORD\n",
-      "are evaluated.\n";
+    print "environment variables\n", "    DASSCM_REPO\n", "    DASSCM_PROD¸n",
+      "    DASSCM_USERNAME\n", "    DASSCM_PASSWORD\n", "are evaluated.\n";
     print "\n";
 }
@@ -91 +87 @@
     if ($verbose) { print "DASSCM_PROD: " . $DASSCM_PROD . "\n"; }
 
-
     # DASSCM_REPOSITORY_NAME
-        if ( !$DASSCM_REPOSITORY_NAME ) {
-            die
-              "Variable DASSCM_REPOSITORY_NAME is not defined.\nIt needs to be a unique name.\nNormally the full qualified host name is used.\nUse file $config_file to configure it.\n";
-        }
-
+    if ( !$DASSCM_REPOSITORY_NAME ) {
+        die
+          "Variable DASSCM_REPOSITORY_NAME is not defined.\nIt needs to be a unique name.\nNormally the full qualified host name is used.\nUse file $config_file to configure it.\n";
+    }
 
     # DASSCM_REPO
@@ -117 +111 @@
         if ( not -d $DASSCM_REPO ) {
             die
-            "Can't access local repository DASSCM_REPO\n($DASSCM_REPO)\nCheck configuration and execute\n    dasscm init\n";
-        }
-    
+              "Can't access local repository DASSCM_REPO\n($DASSCM_REPO)\nCheck configuration and execute\n    dasscm init\n";
+        }
+
         #
         # user settings
         #
-        
+
         # DASSCM_USER is legacy. Use DASSCM_USERNAME instead
-        if( !$DASSCM_USERNAME ) {
-            $DASSCM_USERNAME=$DASSCM_USER;
+        if ( !$DASSCM_USERNAME ) {
+            $DASSCM_USERNAME = $DASSCM_USER;
         }
 
@@ -133 +127 @@
         # otherwise USER can be used
         if ( "$USER" eq "root" ) {
-            if (( not $DASSCM_USERNAME ) and ( $command ne "login" )) {
+            if ( ( not $DASSCM_USERNAME ) and ( $command ne "login" ) ) {
                 die
-                "Envirnonment variable DASSCM_USERNAME not set.\nSet DASSCM_USERNAME to your subversion user account.\n";
+                  "Envirnonment variable DASSCM_USERNAME not set.\nSet DASSCM_USERNAME to your subversion user account.\n";
             }
             $svnOptions .= " --no-auth-cache ";
@@ -145 +139 @@
         # password
         #
-        if( $DASSCM_PASSWORD ) {
+        if ($DASSCM_PASSWORD) {
             $svnPasswordCredentials = " --password $DASSCM_PASSWORD ";
         }
@@ -205 +199 @@
 {
 
-    if( $verbose ) { 
+    if ($verbose) {
         print "run_interactive:" . join( " ", @_ ) . "\n";
     }
@@ -301 +295 @@
 }
 
-
-
 sub init(@)
 {
@@ -309 +301 @@
 
     # update complete repository
-    my $retcode = run_interactive("cd $DASSCM_LOCAL_REPOSITORY_BASE; $SVN checkout $svnCheckoutCredentials $svnOptions $DASSCM_SVN_REPOSITORY");
-}
-
+    my $retcode =
+      run_interactive(
+        "cd $DASSCM_LOCAL_REPOSITORY_BASE; $SVN checkout $svnCheckoutCredentials $svnOptions $DASSCM_SVN_REPOSITORY"
+      );
+}
 
 #
@@ -361 +355 @@
     $retcode =
       run_interactive(
-        "$SVN commit $svnOptions --username $DASSCM_USERNAME $svnPasswordCredentials $DASSCM_REPO");
+        "$SVN commit $svnOptions --username $DASSCM_USERNAME $svnPasswordCredentials $DASSCM_REPO"
+      );
 
     print $filename_prod. "\n";
@@ -459 +454 @@
         help(@ARGV);
     } elsif (m/login/i) {
-        $command ="login";
+        $command = "login";
         login(@ARGV);
     } elsif (m/init/i) {
-        $command ="init";
+        $command = "init";
         init(@ARGV);
     } elsif (m/add/i) {
@@ -472 +467 @@
         add(@ARGV);
     } elsif (m/blame/i) {
-        $command ="blame";
+        $command = "blame";
         blame(@ARGV);
     } elsif (m/diff/i) {
-        $command ="diff";
+        $command = "diff";
         diff(@ARGV);
     } elsif (m/activate/i) {