From 07e52d507ed03511519a058bb73e94081709eebf Mon Sep 17 00:00:00 2001 From: "kilian (ksmachome)" Date: Thu, 7 Nov 2019 13:30:25 +0100 Subject: [PATCH] misc CGI --- .htaccess | 17 +++++++++++++++++ backoffice/api/db.cgi | 2 +- backoffice/api/file.cgi | 2 +- backoffice/api/fingerprint.cgi | 23 ----------------------- backoffice/api/index.cgi | 2 +- backoffice/api/upload.cgi | 2 +- backoffice/index.cgi | 2 +- index.cgi | 4 ++-- 8 files changed, 24 insertions(+), 30 deletions(-) create mode 100644 .htaccess mode change 100644 => 100755 backoffice/api/db.cgi mode change 100644 => 100755 backoffice/api/file.cgi delete mode 100644 backoffice/api/fingerprint.cgi mode change 100644 => 100755 backoffice/api/index.cgi mode change 100644 => 100755 backoffice/api/upload.cgi mode change 100644 => 100755 backoffice/index.cgi mode change 100644 => 100755 index.cgi diff --git a/.htaccess b/.htaccess new file mode 100644 index 00000000..8660ace8 --- /dev/null +++ b/.htaccess @@ -0,0 +1,17 @@ +#RewriteEngine On +#RewriteCond %{SERVER_PORT} 80 +#RewriteRule ^(.*)$ https://www.dks.lu/$1 [R,L] +#AddType application/octet-stream .pdf +SetEnv PERL5LIB "/home/kilian/perl5/lib/perl5" +RewriteEngine on +#dev-mode begin +DirectoryIndex index.cgi index.html +AddHandler cgi-script .cgi +#devmode end +RewriteCond %{REQUEST_FILENAME} !-f +RewriteCond %{REQUEST_FILENAME} !-d + +#RewriteCond %{REQUEST_URI} !/dks_lu/apps/.* +RewriteRule "^(.*)$" "index.cgi" [NC,L,QSA] +#RewriteCond %{REQUEST_URI} !/dks_lu/apps/api/.* +#RewriteRule "^(.*)$" "apps/index.cgi?p=" [NC,L,QSA] \ No newline at end of file diff --git a/backoffice/api/db.cgi b/backoffice/api/db.cgi old mode 100644 new mode 100755 index 5e529491..c9133873 --- a/backoffice/api/db.cgi +++ b/backoffice/api/db.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/Users/kilian/perl5/perlbrew/perls/perl-5.24.1/bin/perl use strict; use lib ('./lib/perl5'); use lib ('./lib'); diff --git a/backoffice/api/file.cgi b/backoffice/api/file.cgi old mode 100644 new mode 100755 index 33d3bee8..f0af54da --- a/backoffice/api/file.cgi +++ b/backoffice/api/file.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/Users/kilian/perl5/perlbrew/perls/perl-5.24.1/bin/perl use strict; use lib ('./lib/perl5'); diff --git a/backoffice/api/fingerprint.cgi b/backoffice/api/fingerprint.cgi deleted file mode 100644 index db482dff..00000000 --- a/backoffice/api/fingerprint.cgi +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/perl - -use strict; -use lib ('./lib/perl5'); -use lib ('./lib'); -use CGI; -use CGI::Cookie; -#use CGI::Carp qw/fatalsToBrowser/; -use File::Basename; -use File::Path qw/make_path/; -use JSON::PP; -use Image::Size; -use dksconfig qw/$sitecfg/; -use dksdb; - -my $cgi = new CGI(); -my $scriptpath = $cgi->url(-absolute => 1); -my $p = (); -my @params = $cgi->param(); -foreach my $pe (@params){ - $p->{$pe} = $cgi->param($pe); -} - diff --git a/backoffice/api/index.cgi b/backoffice/api/index.cgi old mode 100644 new mode 100755 index 833a85db..619b1ac6 --- a/backoffice/api/index.cgi +++ b/backoffice/api/index.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/Users/kilian/perl5/perlbrew/perls/perl-5.24.1/bin/perl use strict; use lib ('./lib/perl5'); use lib ('./lib'); diff --git a/backoffice/api/upload.cgi b/backoffice/api/upload.cgi old mode 100644 new mode 100755 index 47c62fbf..194fca86 --- a/backoffice/api/upload.cgi +++ b/backoffice/api/upload.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/Users/kilian/perl5/perlbrew/perls/perl-5.24.1/bin/perl use strict; use lib ('./lib/perl5'); diff --git a/backoffice/index.cgi b/backoffice/index.cgi old mode 100644 new mode 100755 index 91b7ce8f..69ca6713 --- a/backoffice/index.cgi +++ b/backoffice/index.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/Users/kilian/perl5/perlbrew/perls/perl-5.24.1/bin/perl use strict; use lib ('api/lib/perl5'); diff --git a/index.cgi b/index.cgi old mode 100644 new mode 100755 index 6c24909f..81e50758 --- a/index.cgi +++ b/index.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/Users/kilian/perl5/perlbrew/perls/perl-5.24.1/bin/perl use strict; use lib ('backoffice/api/lib/perl5'); @@ -8,7 +8,7 @@ use File::Basename; use Template; # use Template::Constants qw( :debug ); use CGI; -#use CGI::Carp qw/fatalsToBrowser/; +use CGI::Carp qw/fatalsToBrowser/; use dksconfig qw($sitecfg); #use FindBin qw($Bin $RealBin); -- 2.39.5