diff options
| author | cvs2git <cvs2git> | 2004-01-20 20:30:04 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2004-01-20 20:30:04 +0000 |
| commit | 45c50af0cb0755993fa204d66cb55b3c3050487d (patch) | |
| tree | 64bab526c1c8d1f2d87f2d28f2e66ac46a5d88d6 /httemplate | |
| parent | 468b069c255ba936dc08d78d7f349b00f8c5eca4 (diff) | |
| parent | 790f80663a0ddcb4f2496bad4b2e0bfa80bc3210 (diff) | |
This commit was manufactured by cvs2svn to create branch
'FREESIDE_1_4_BRANCH'.
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/misc/dump.cgi | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/httemplate/misc/dump.cgi b/httemplate/misc/dump.cgi new file mode 100644 index 000000000..2c7dfc455 --- /dev/null +++ b/httemplate/misc/dump.cgi @@ -0,0 +1,19 @@ +<% + if ( driver_name =~ /^Pg$/ ) { + my $dbname = (split(':', datasrc))[2]; + if ( $dbname =~ /[;=]/ ) { + my %elements = map { /^(\w+)=(.*)$/; $1=>$2 } split(';', $dbname); + $dbname = $elements{'dbname'}; + } + open(DUMP,"pg_dump $dbname |"); + } else { + eidiot "don't (yet) know how to dump ". driver_name. " databases\n"; + } + + http_header('Content-Type' => 'text/plain' ); + + while (<DUMP>) { + chomp; +%><%= $_ %><% } + close DUMP; +%> |