Big Sky

#!/usr/bin/perl

#!/usr/bin/perl

use strict;
use CGI qw/:standard :netscape/;
use POSIX 'strftime';

my $files_path = "/path/to/files";

my $q = new CGI;
my $file = $q->param('file');

$file =~ s/\.\.//g;
$file =~ s/\/\/+/\//g;
$file =~ s/^\///g;
$file =~ s/\/$//g;
if (-f "$files_path/$file" && open(FILE, "$files_path/$file")) {
    print $q->header(
        -type=>'application/octet-stream',
        -attachment=>$file,
        -charset=>'utf-8',
    );
    while(<FILE>){
        print $_;
    }
    close(FILE);
} else {
	if (-f "$files_path/$file.redirect" && open(FILE, "$files_path/$file.redirect")) {
		$file = <FILE>;
		close(FILE);
		$file =~ s![0x0D0x0A]!!g;
		#print $q->redirect($file);
		$q->a(href=>$file);
	} else {
		print $q->header(
			'text/html',
			'404 Not Found',
		);
		print "File Not Found";
	}
}
1;

# Bloxsom Plugin:TextRef
# Author: Yasuhiro Matsumoto
# Version: 0.1

package textref;
use strict;
my $files_path = "http://mattn.kaoriya.net/files";

sub textref_func {
	my $file = shift;
	$file =~ s/\.\.//g;
	$file =~ s/\/\/+/\//g;
	$file =~ s/^\///g;
	$file =~ m/^(.*?)(\.[^.\/]*)?$/;
	my $html;
	my ($tag, $ext) = ($1, $2);
	if (open(FILE, "$files_path/$file")) {
		my $text = join '', <FILE>;
		$text =~ s/&/&amp;/g;
		$text =~ s/"/&quot;/g;
		$text =~ s/</&lt;/g;
		$text =~ s/>/&gt;/g;
		#$text =~ s/\n/<br>/g;
		close(FILE);
		$html =<<EOF;
<a href="javascript:void(0);" onclick="on_textref_toggle('$tag');">[+] $file<\/a><br>
<div id="$tag" style="display: none; border: black solid 2px; color: black; background-color: #ffffcc;">
<pre style="margin-top: 0px; margin-bottom: 0px;">
$text
</pre>
</div>
EOF
	} else {
$html =<<EOF;
<a href="javascript:void(0);">[-] $file<\/a><br>
EOF
	}
	return $html;
}

sub head {
	my($pkg, $path, $head_ref) = @_;
	if ($blosxom::flavour eq "html" or $blosxom::flavour eq "htm") {
		$$head_ref .= <<EOF;
<script type="text/javascript">
<!--
function on_textref_toggle(id){
	var textref = document.getElementById(id);
	textref.style.display = textref.style.display != 'none' ? 'none' : 'block';
}
//-->
</script>
EOF
	}
	1;
}

sub start {1}

sub story {
	my ($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;
	unless ($blosxom::flavour eq "rss") {
		$$body_ref =~ s@<!-- textref\s*(\S*)?\s*-->@textref_func($1)@ige;
	} else {
		$$body_ref =~ s@<!-- textref\s*(\S*)?\s*-->@...@ig;
	}
	1;
}

1;