[TWiki-Dev] [SVN] CrawfordCurrie r12683 - twiki/branches/MAIN/lib/TWiki/Configure/Checkers/RCS

[<de...@de...>]

Author: CrawfordCurrie
Date: 2007-01-31 06:06:28 -0600 (Wed, 31 Jan 2007)
New Revision: 12683

Added:
   twiki/branches/MAIN/lib/TWiki/Configure/Checkers/RCS/WorkAreaDir.pm
Log:
Item3538: Added checker for WorkAreaDir

Added: twiki/branches/MAIN/lib/TWiki/Configure/Checkers/RCS/WorkAreaDir.pm
===================================================================
--- twiki/branches/MAIN/lib/TWiki/Configure/Checkers/RCS/WorkAreaDir.pm	2007-01-31 11:22:32 UTC (rev 12682)
+++ twiki/branches/MAIN/lib/TWiki/Configure/Checkers/RCS/WorkAreaDir.pm	2007-01-31 12:06:28 UTC (rev 12683)
@@ -0,0 +1,33 @@
+#
+# TWiki Enterprise Collaboration Platform, http://TWiki.org/
+#
+# Copyright (C) 2000-2006 TWiki Contributors.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version. For
+# more details read LICENSE in the root of this distribution.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+#
+# As per the GPL, removal of this notice is prohibited.
+package TWiki::Configure::Checkers::RCS::WorkAreaDir;
+
+use strict;
+
+use TWiki::Configure::Checker;
+
+use base 'TWiki::Configure::Checker';
+
+sub check {
+    my $this = shift;
+
+    my $e = $this->checkCanCreateFile( "$TWiki::cfg{RCS}{WorkAreaDir}/nottaplugin" );
+    $e = $this->ERROR($e) if $e;
+    return $e;
+}
+
+1;