diff options
| author | Dennis Eriksen <d@ennis.no> | 2019-11-01 14:22:53 +0100 |
|---|---|---|
| committer | Dennis Eriksen <d@ennis.no> | 2019-11-01 14:22:53 +0100 |
| commit | 152218ae18c000e8bb2e9a5982353e92cf6fa25c (patch) | |
| tree | 0183dd5fb4ad6444ebefd232673499127f78ab6f /redirect | |
| parent | Initial commit (diff) | |
| download | purl-152218ae18c000e8bb2e9a5982353e92cf6fa25c.tar.gz | |
Just giving the executables file-endings
Diffstat (limited to 'redirect')
| -rwxr-xr-x | redirect | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/redirect b/redirect deleted file mode 100755 index c471831..0000000 --- a/redirect +++ /dev/null @@ -1,43 +0,0 @@ -#!/bin/perl -wT -# (c) 2019 Dennis Eriksen <https://dnns.no> - -use strict; -use warnings; - -use CGI; -use DBI; - -my $q = CGI->new; # create CGI object - -# create database handler -my $dbh = DBI->connect("dbi:Pg:dbname=purl") or die $DBI::errstr; - -# set the short -my $short = $ENV{REQUEST_URI}; -$short =~ s/^\///; - -# SQL Query -my $query = qq(SELECT shorts.url FROM shorts WHERE shorts.short = ?;); - -# run the query, and do an if on it -if (my $url = $dbh->selectrow_array($query, undef, $short)) { - $query = qq(UPDATE shorts SET count = count + 1, last_visited = now() WHERE short = ?;); - my $sth = $dbh->prepare( $query ); - my $rv = $sth->execute( $short ) or die $sth->errstr; - print $q->redirect($url); -} -else { - print $q->header(-status=>'404 Not found',-charset=>'utf-8'); - print <<notfound -<html> -<head><title>404 Not Found</title></head> -<body> -<center><h1>404 Not Found</h1></center> -<hr><center>nginx</center> -</body> -</html> -notfound -} - -# disconnect from database -$dbh->disconnect(); |