Changeset 194

Timestamp:

Dec 1, 2004, 3:50:45 PM (19 years ago)

Author:

joergs

Message:

uses DASSCM_REPO now. Cleanup

File:

• trunk/admin/sc_chkconf.pl (modified) (3 diffs)

trunk/admin/sc_chkconf.pl

@@ -13 +13 @@
 #            z.B. etc, var usw.
 
+use strict;
+
+use Env qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USER $DASSCM_PW);
+use Cwd;
 use POSIX qw/getpgrp tcgetpgrp/;
-
 use File::Find;
 use File::Compare;
 use File::Copy;
-use strict;
+
 
 my $cvsworkdir = $ARGV[0];
+if(! defined $cvsworkdir) {
+        $cvsworkdir = $DASSCM_REPO;
+}
 usage() if (! defined $cvsworkdir);
 # Mit "." als Pfadangabe funktionieren diverse Funktionen nicht
@@ -72 +78 @@
   return unless -f;     # keine Directories
   return if $File::Find::dir =~ /\/CVS$/;       # ignoriere CVS-Verzeichnisse
-  return if $File::Find::dir =~ /\/\.svn$/;     # ignoriere Subversion Verzeichnisse (inkl. Unterverzeichnisse)
+  return if $File::Find::dir =~ /\/\.svn/;      # ignoriere Subversion Verzeichnisse (inkl. Unterverzeichnisse)
   my $cvsworkfile = "$File::Find::dir/$_";
   #print "$cvsworkfile\n";
@@ -106 +112 @@
 Es sollen Konfigurationsdatei (z.B. in /etc und /var) 
 im Versionskontrollsystem (Subversion oder CVS) gepflegt werden.
-Überprüfen welche Dateien sich gegenüber der CVS-Arbeitskopie geändert haben und kopiert diese auf Wunsch in das CVS-Arbeitsverzeichnis
+Überprüfen welche Dateien sich gegenüber der CVS-Arbeitskopie geändert haben und kopiert diese auf Wunsch in das Subversion/CVS-Arbeitsverzeichnis
 
-Parameter: CVS-Arbeitsverzeichnis
+Parameter: Subversion/CVS-Arbeitsverzeichnis
            (dort muß die Verzeichnisstruktur bezogen auf / abgebildet sein, 
-           z.B. etc, var usw.
+           z.B. etc, var usw.)
+           Alternativ kann dieses über die Umgebungsvariable
+           \$DASSCM_REPO gesetzt sein.
 
 EOF