httemplate/misc/dump.cgi

   1 <%
   2   if ( driver_name =~ /^Pg$/ ) {
   3     my $dbname = (split(':', datasrc))[2];
   4     if ( $dbname =~ /[;=]/ ) {
   5       my %elements = map { /^(\w+)=(.*)$/; $1=>$2 } split(';', $dbname);
   6       $dbname = $elements{'dbname'};
   7     }
   8     open(DUMP,"pg_dump $dbname |");
   9   } else {
  10     eidiot "don't (yet) know how to dump ". driver_name. " databases\n";
  11   }
  12
  13   http_header('Content-Type' => 'text/plain' );
  14
  15   while (<DUMP>) {
  16     print $_;
  17   }
  18   close DUMP;
  19 %>