+% die "access denied"
+% unless $FS::CurrentUser::CurrentUser->access_right('Export');
%
% if ( driver_name =~ /^Pg$/ ) {
% my $dbname = (split(':', datasrc))[2];
% }
% open(DUMP,"pg_dump $dbname |");
% } else {
-% eidiot "don't (yet) know how to dump ". driver_name. " databases\n";
+% errorpage("don't (yet) know how to dump ". driver_name. " databases");
% }
%
% http_header('Content-Type' => 'text/plain' );
% print $_;
% }
% close DUMP;
-%
-