Changeset 27423 for gs2-extensions/parallel-building

Timestamp:

2013-05-24T09:39:00+12:00 (11 years ago)

Author:

jmt12

Message:

Adding canRead() and isAbsolute() functions

File:

• gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/HDFSShell.pm (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/HDFSShell.pm

@@ -111 +111 @@
 ############################### Public Functions ###############################
 ################################################################################
+
+
+## @function canRead()
+#
+sub canRead
+{
+  my $path = shift(@_);
+  # On my Hadoop setups it appears everyone can read everything... pretty sure
+  # this won't always be the case but I'm not sure if there is some easy way to
+  # determine readability (you'd need to parse the permissions, user, and group
+  # and then somehow compare to the current user). So instead I'll just return
+  # if the file exists
+  return &fileTest($path, '-f');
+}
+## canRead()
 
 
@@ -218 +233 @@
 }
 ## filenameConcatenate()
+
+
+## @function isFilenameAbsolute()
+#
+sub isFilenameAbsolute
+{
+  # File paths against HDFS must be.
+  return 1;
+}
+# isFilenameAbsolute()