misc CGI

diff --git a/.htaccess b/.htaccess
new file mode 100644 (file)
index 0000000..8660ace
--- /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 (file)
new mode 100755 (executable)
index 5e52949..c913387
--- 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 (file)
new mode 100755 (executable)
index 33d3bee..f0af54d
--- 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 (file)
index db482df..0000000
--- 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 (file)
new mode 100755 (executable)
index 833a85d..619b1ac
--- 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 (file)
new mode 100755 (executable)
index 47c62fb..194fca8
--- 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 (file)
new mode 100755 (executable)
index 91b7ce8..69ca671
--- 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 (file)
new mode 100755 (executable)
index 6c24909..81e5075
--- 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);