projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
88245b63e334d97e8c496f6905a3709dc6c516e7
[freeside.git]
/
print-schema-mysql
1
#!/usr/bin/perl
2
3
use DBIx::DBSchema;
4
5
$l = load DBIx::DBSchema "/usr/local/etc/freeside/dbdef.DBI:mysql:dbname=freeside";
6
7
print $l->pretty_print, "\n";