memo.xight.org

### PHP 関数検索へのリンクプラグイン
# usage: {{php('関数名')}}
sub php {
	my ($str) = @_;
	my $prefix = q(http://www.php.net/search.php);
	my $lang = q(ja);
	# quickref  : function list
	# wholesite : whole site
	# manual    : online documentation [en]
	# bugdb     : bug database
	# maillist  : general mailing list
	# devlist   : developer mailing list
	# phpdoc    : documentation mailing list 
	my $show = q(quickref);
	return qq(<a href="$prefix?lang=$lang&show=$show&pattern=$str" title="PHP Manual - $str">PHP Manual - $str</a>);
}

### Debian バイナリパッケージ検索へのリンク
# usage: {{debian('パッケージ名')}}
sub debian {
	my ($str) = @_;
	my $prefix = q(http://packages.debian.org);
	return qq(<a href="$prefix/$str" title="Debian パッケージディレクトリ検索 (バイナリ) - $str">Debian パッケージディレクトリ検索 (バイナリ) - $str</a>);
}
### Debian ソースパッケージ検索へのリンク
# usage: {{debian_src('パッケージ名')}}
sub debian_src {
	my ($str) = @_;
	my $prefix = q(http://packages.debian.org);
	return qq(<a href="$prefix/src:$str" title="Debian パッケージディレクトリ検索 (ソース) - $str">Debian パッケージディレクトリ検索 (ソース) - $str</a>);
}

### Debian パッケージ内容検索へのリンク
# usage: {{debian_search('keyword')}}
sub debian_search {
	my ($str) = @_;
	my $prefix = q(http://packages.debian.org/cgi-bin/search_contents.pl);
	# $version は stable, testing, unstable で指定
	my $version = q(all);
	# $arch は 以下で指定．
	# i386      : Intel x86
	# m68k      : Motorola 680x0
	# alpha     : Alpha
	# sparc     : SPARC
	# powerpc   : PowerPC
	# arm       : ARM
	# hppa      : HP PA/RISC
	# ia64      : Intel IA-64
	# mips      : MIPS
	# mipsel    : MIPS (DEC)
	# s390      : IBM S/390
	# hurd-i386 : Hurd (i386)
	my $arch = q(i386);
	return qq(<a href="$prefix?word=$str&searchmode=searchfiles&version=$version&arch=$arch" title="Debian パッケージ内容検索 - $str">Debian パッケージ内容検索 - $str</a>);
}

<input type="hidden" name="snoop" value="goaway" />

use strict;
use CGI qw(:standard);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	my $data = param('snoop');
	die unless ($data);
}