Add backup function

Author: abeverley

ADBOS/Display.pm

@@ -12,6 +12,7 @@ use ADBOS::Email;
 use Email::Valid;
 use Apache::Solr           ();
 use Apache::Solr::Document ();
+use POSIX qw/strftime/;
 
 my $config = simple_config;
 my $db     = ADBOS::DB->new($config);
@@ -268,6 +269,15 @@ sub opdef($$$;$)
     $self->_standard_template('opdef.html', $vars);
 }
 
+sub backup($)
+{   my ($self,$req) = @_;
+
+    $req->content_type("text/sql; charset=utf-8");
+    my $date = strftime "%Y%m%d", localtime;
+    $req->headers_out->add('Content-disposition' => "attachment; filename=$date-adbosbackup-R.sql");
+    $req->sendfile($config->{backup});
+}
+
 sub brief()
 {   my ($self, $period, $comments) = @_;
 

index.pl

@@ -66,6 +66,12 @@
         $display->unparsed($user, $id);
     }
 }
+elsif ($req->unparsed_uri =~ m!^/+backup!gi)
+{
+    $user = $auth->login if !$user;
+    $display->main($user) unless ($user->{type} eq 'admin');
+    $display->backup($req);
+}
 elsif ($req->unparsed_uri =~ m!^/+users/?([0-9]*)!gi)
 {
     $user = $auth->login if !$user;