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 %
  20