### 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>);
}