[an error occurred while processing this directive] SevenLines - 7r
[an error occurred while processing this directive]
パズル的軟件

SevenLines

7r (URL を短縮)

7r は TinyURL のように、 短い転送 URL を提供する CGI プログラムです。

一行の定義は 「79 byte 以内の文字列 + LF」 としています。

名称:
CGI プログラム (Perl Script)
内容量:
451 byte (shebang を含まない)
製造者:
闇主

パッケージは頁下方にて配布

#!/usr/local/bin/perl
sub o{print"Content-Type: text/plain\n\n@_";exit}$_=<DATA>;chomp;dbmopen(%d,$_,
420)||o ERROR1;$Q=$ENV{QUERY_STRING};if($ENV{PATH_INFO}=~m!^/([a-z]+)(?=/|$)!){
$k=$1;($p=$')=~s/[^!\$&-:=\@A-Z_~]/'%'.unpack H2,$&/egi;$d{$k}=~s/\d+$/time/e||
o"Undefined key: $k";($_,$q)=split/\t/,$d{$k};$p&&s|/$||;$_.="$p?".($Q||$q);
print"Location: $_\n\n"}elsif(($u,$q)=split/\?/,$Q,2){$d{0}||='a'x<DATA>;$d{$k=
$d{0}++}="$u\t$q\t".time;o"$k => $u?$q"}else{o ERROR2}

ご注意: 当サイトにて公開されている製作物の作者は、 それら製作物の使用で生じた如何なる損害に対しても責任を負いません。 また、製作物やその利用方法に関する質問、製作物に対する要望等に、 作者は応える義務を持ちません。

当サイトにて公開されている製作物は、それぞれの作者が著作権を有します。 配布パッケージのライセンス文書に従ってお取り扱い下さい。 配布パッケージが存在しない場合は、作者の許諾なしに転載・再配布等は行えません。

当サイトは大塚製薬及び同社の製品とは一切関係ありません。 :-p

http://cm.xrea.cc/

最終更新日: Wed, 05 May 2004 00:04:40 JST