for dokuwiki

git-svn-id: svn://svn.open-ils.org/ILS/trunk@941 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Evergreen/staff_client/chrome/content/evergreen/util/make_wiki_table.pl b/Evergreen/staff_client/chrome/content/evergreen/util/make_wiki_table.pl
new file mode 100755 (executable)
index 0000000..03d9608
--- /dev/null
+++ b/Evergreen/staff_client/chrome/content/evergreen/util/make_wiki_table.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+print "^ file ^ functions ^\n";
+while ($f = pop @ARGV) {
+       print("|" . $f . "|");
+       open FILE, $f;
+       while ($line = <FILE>) {
+               if ($line =~ /^function\s+(\w+)\s*(\(.*\))/) {
+                       print $1 . $2 . '\\' . '\\' . ' ';
+               }
+       }
+       print "|\n";
+       close FILE;
+}