#!/usr/bin/perl

# BEGIN{ $| = 1; print "Content-type: text/html;\n\n"; open(STDERR, ">&STDOUT"); }

################################################################################
#   /common/pdf/show.cgi
#   
#   Charset        : UTF-8
#   Description    : クリック数カウントアップ＋PDF ファイルへの遷移
#   Author         : Yasufumi Goto <goto@nanafusa.co.jp>
#   Maintainer     : Yasufumi Goto <goto@nanafusa.co.jp>
#   Changes        : 2011/02/25 * 新規作成
#   
################################################################################

use strict;
use warnings;
use utf8;

use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use URI;

use lib '/home/naph/tat/lib';
require 'portal/page.pl';
require 'cgi.pl';
require 'conf.pl';
require 'db.pl';



my $q = cgi::decode_param( CGI->new );

# 表示する PDF ファイル
my $pdf = $q->param('pdf') || '/';
my $path = URI->new($pdf)->path;
$path = conf::dir_htdocs().$path;
if (!-f $path) {
    portal::page::move_home();
}

if ($path !~ /.*\.pdf$/) {
    portal::page::move_home();
}

# カウントUP
my $no = $q->param('no') || 0;
my $dbh = db::connect();
my $sql  = 'update'
         . '    tbl_pdf'
         . ' set'
         . '     click_count = click_count + 1'
         . ' where'
         . '     pdf_no = ?';
db::query( $dbh, $sql, [$no]);

my $filename = (split /\//, $path)[-1];

print "Content-type: application/pdf\n";
print "Content-Disposition:inline;filename=\"$filename\"\n\n";

open my $fh, '<', $path or portal::page::move_home();
while (my $line = <$fh>) {
    print $line;
}
close $fh;
exit;



__END__