diff -r 000000000000 -r 414e01d06fd5 lib/TWiki/Configure/Checkers/DataDir.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/TWiki/Configure/Checkers/DataDir.pm	Sat Jan 26 15:50:53 2008 +0100
@@ -0,0 +1,37 @@
+#
+# 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::DataDir;
+
+use strict;
+
+use TWiki::Configure::Checker;
+
+use base 'TWiki::Configure::Checker';
+
+sub check {
+    my $this = shift;
+
+    my $e = $this->guessMajorDir('DataDir', 'data');
+    my $e2 = $this->checkTreePerms( $TWiki::cfg{DataDir}, "r" );
+    $e .= $this->warnAboutWindowsBackSlashes($TWiki::cfg{DataDir});
+    $e2 = $this->checkTreePerms( $TWiki::cfg{DataDir}, "w", qr/\.txt$/ )
+      unless $e2;
+    $e .= $this->WARN($e2) if $e2;
+    return $e;
+}
+
+1;