memo.xight.org

日々のメモ

「よかった探しリース」 chalowプラグイン (obsolete)

Summary

「よかった探しリース」[2006-12-02-5]のためのchalowプラグイン

### よかった探しリース
# usage: {{hyuki_wreath('id')}}
sub hyuki_wreath {
    my ($id) = @_;
    my $prefix = 'http://www.hyuki.com/ring/ring.cgi';
    my $left   = $prefix.'?mycmd=left&myid='.$id;
    my $right  = $prefix.'?mycmd=right&myid='.$id;
    return qq(
        <a href="$left">左手</a>
        <a href="$prefix">よかった探しリース</a>
        <a href="$right">右手</a>
    );
}