1 files changed, 39 insertions, 0 deletions
diff --git a/modules/files/print.sh b/modules/files/print.sh
new file mode 100644
index 0000000..3657d2f
--- /dev/null
+++ b/modules/files/print.sh
@@ -0,0 +1,39 @@
+#!/bin/sh
+name='print'
+ver=0.1
+#  Copyright (C) 2010 Luke Shumaker
+#  
+#  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.
+#  
+#  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. See the GNU
+#  General Public License for more details.
+#  
+#  You should have received a copy of the GNU General Public License
+#  along with this program;  see the file COPYING.
+#  If not, see <http://www.gnu.org/licenses>.
+
+. "$LIBDIR/@ID@/stdio"
+
+usage='ID'
+id="`getvar "$1"`"
+
+hash="`"$RVS" blob-gethash "$id"`"
+file="$REPO/@ID@/$hash"
+
+if [ -e "$file" ]; then
+	t="`"$RVS" blob-gettype "$id"`"
+	type=''
+	case "$t" in
+		f) type='regular file';;
+		d) type='directory';;
+	esac
+	echo "File Type: $t ($type)"
+else
+	fatal "no object with ID \`$id'"
+fi
+