httemplate/misc/dump.cgi

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