% die "access denied" % unless $FS::CurrentUser::CurrentUser->access_right('Export'); % % 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 { % errorpage("don't (yet) know how to dump ". driver_name. " databases"); % } % % http_header('Content-Type' => 'text/plain' ); % % while () { % print $_; % } % close DUMP;