memo.xight.org

日々のメモ

Microsoft ダウンロードセンターへのリンクプラグイン

### Microsoft ダウンロードセンター へのリンクプラグイン
# usage: {{msdc('FamilyID','word')}}
sub msdc {
	my ($id,$str) = @_;
	my $prefix = q(http://www.microsoft.com/downloads/details.aspx);
	my $lang   = q(ja);
	return qq(<a href="$prefix?displaylang=$lang&FamilyID=$id" title="Microsoftダウンロードセンター - $str">Microsoftダウンロードセンター - $str</a>);
}

### Microsoft ダウンロードセンター への検索リンクプラグイン
# usage: {{msdc_search('word')}}
sub msdc_search {
	my ($str) = @_;
	my $prefix = q(http://www.microsoft.com/downloads/results.aspx);
	my $lang   = q(ja);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix?displaylang=$lang&freeText=$enc" title="Microsoftダウンロードセンター検索 - $str">Microsoftダウンロードセンター検索 - $str</a>);
}