cgiでウェブブラウザのAgentを携帯に偽装

内容はとても簡単で、表示したい携帯専用サイトをCGIに教え、CGIがDoCoMoに偽装して当該サイトからHTMLを読み込み起動しているブラウザに返す。
で！どんなことをするかというと

001　$buffer = $ENV{'QUERY_STRING'};
002　($arg1,$arg2,$arg3) = split( /&/ , $buffer);
003　if(length($arg1) == 0) {
004　　$arg1 = "https://www.momoso-net.com";
005　}
006　if(length($arg2) == 0) {
007　　$arg2 = "";
008　}
009　if(length($arg3) == 0) {
010　　$arg3 = "";
011　}
012　$command = "curl -A DoCoMo/1.0/SO506iC/c20/TB/W30H16 -s $arg1"; <- SO506iCに偽装
013　@result = `$command`;
014　push @html, @result;
015
016　print "Content-type: text/html\n\n";
017　foreach ( @html ) {
018　　chomp;
019　　$_ =~ s/<object/<a/g;
020　　$_ =~ s/data/href/g;
021　　$_ =~ s/ type="video\/3gpp">/>PC Link/g;
022　　$_ =~ s/<\/object>/<\/a>-File Name:/g;
023　　print $_;
024　}
025


てなコードを書けばいいのでしょう。
ちなみに019行〜022行は携帯で見るために書かれた3gp動画のオブジェクト記述にちょっと手を加えてPCからクリックしてダウンロードできるようにした。
FOMAで撮影した動画なんかこれですね？？？？？
ちなみにPSPでも見れるかもしれません。
くれぐれも怪しいことには使わないほうがぶなんです。