initial commit of file from CVS for smeserver-BackupPC on Sat Sep 7 20:10:07 AEST 2024

2024-09-07 20:10:07 +10:00
parent 2bf47720f7
commit 26a891845f
51 changed files with 2421 additions and 2 deletions
--- a/root/usr/share/smanager/lib/SrvMngr/Controller/Backuppc.pm
+++ b/root/usr/share/smanager/lib/SrvMngr/Controller/Backuppc.pm
@@ -0,0 +1,104 @@
+package SrvMngr::Controller::Backuppc;
+
+#----------------------------------------------------------------------
+# heading     : Administration
+# description : BackupPC
+# navigation  : 4000 4200
+#----------------------------------------------------------------------
+# name   : backuppc,    method : get,   url : /backuppc,     ctlact : Backuppc#main
+# routes : end
+
+use strict;
+use warnings;
+use Mojo::Base 'Mojolicious::Controller';
+use utf8;
+
+use Locale::gettext;
+use SrvMngr::I18N;
+use SrvMngr qw(theme_list init_session ip_number_or_blank);
+
+use Quota;
+use esmith::ConfigDB;
+use esmith::AccountsDB;
+
+use esmith::util;
+use File::Basename;
+use File::Find;
+use File::Path qw(make_path remove_tree);
+
+use esmith::Backup;
+use esmith::BackupHistoryDB;
+use esmith::util;
+use esmith::lockfile;
+
+use constant DEBUG => $ENV{MOJO_SMANAGER_DEBUG} || 0;
+
+our $cdb = esmith::ConfigDB->open || die "Couldn't open config db";
+our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db";
+
+sub main {
+
+    my $c = shift;
+    $c->app->log->info($c->log_req);
+
+    #my $modul = get_backuppc( $c );
+    
+    my $url = "https://".$c->session->{'SystemName'}.".".$c->session->{"DomainName"}."/BackupPC";
+    #my $url = 'https://sme10.thereadclan.me.uk/BackupPC';
+    $c->stash(url => $url );
+    $c->render(template => 'backuppc');
+
+}
+
+
+sub get_backuppc {
+
+    my ($c) = @_;
+
+  my $tx             = $c->tx;
+  my $req            = $tx->req;
+
+#	3 env variables for durep.cgi
+    #$ENV{'SCRIPT_NAME'} = 'durep';
+    #$ENV{'REQUEST_METHOD'}  = $req->method;
+    #$ENV{'QUERY_STRING'} = $req->url->query->to_string;
+
+    my $res = `https:////sme10.thereadclan.me.uk//BackupPC`; 
+    
+    my $res = `/usr/share/BackupPC/sbin/BackupPC_Admin`; #
+    my $step = 0; my $out;
+    my @lines = split /\n/, $res;
+	# remove except 'body'
+    foreach my $line (@lines) {
+	if ( $line =~ m|<body>| ) {
+	    $step = 1;
+	} elsif ( $line =~ m|</body>| ) {
+	    $step = 2;
+	} elsif ( $step == 1 ) {
+	    $out .= $line;
+	}
+    }
+    return $out;
+}
+
+#sub main {
+
+#    my $c = shift;
+#    $c->app->log->info($c->log_req); 
+
+#	BEGIN
+#	{
+#		$ENV {'PATH'} = '/bin:/usr/bin:/sbin';
+#		$ENV {'SHELL'} = '/bin/bash';
+#		delete $ENV {'ENV'};
+#	}
+
+
+    #$c = $c->redirect_to("https://".$ENV {'HTTP_X_FORWARDED_HOST'}."/BackupPC");
+#   $c = $c->redirect_to("https://sme10.thereadclan.me.uk//BackupPC");
+  
+#}
+
+
+1;
+