adding print-schema

1 files changed, 7 insertions, 0 deletions

diff --git a/bin/print-schema b/bin/print-schema
new file mode 100755
index 0000000..886e325
--- /dev/null
+++ b/bin/print-schema
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+use DBIx::DBSchema;
+
+$l = load DBIx::DBSchema "/usr/local/etc/freeside/dbdef.DBI:Pg:dbname=freeside";
+
+print $l->pretty_print, "\n";