URLを携帯にメールで送信する

企業HPとか、あちこちにある
「URLを携帯にメールで送信する」ってのありますよね？
フォームにアドレス書いて、ボタンをぽちっとなする便利なヤツ。
アレを自分のHPにも取り付けたいなと思って
あちこち調べたんですが・・・結局解りませんでした。
（何処探してるんだ！と、怒られそうだ・・・）
フォームメールのCGIの設定を変えたりするぐらいじゃ駄目なんでしょうか？
mailto:の方法は解るんですが、
やっぱり「ぽちっとな」も作ってみたいです。
どなたかご指導下さいm(__)m

>>1
「ぽちっとな」のことならボヤッキーに聞いてください。

>>2 うまいっ！

　　　　　　　　　　　　　　　　　　　　　　　　＼ | ／
　⊂⌒⊃　　　　　　　　⊂⌒⊃　　　　　―‐ ● ―‐　　⊂⌒⊃
　　　　　 　　 ⊂⊃ 　 　 　 　 　　　　　 　 ／ | ＼　　　　　　　　　　⊂⊃
　　　　　　　　　　　　　　　　　　⊂⊃
／~＼へ／~＼へへ／~＼／~＼へ／~＼へ／~＼へ／~＼へヘ／~＼／~＼
,､,,,,,､,,,,､,,,､,,,,,,,,,,､,,,／￣￣￣￣￣￣￣￣￣￣￣￣￣＼＿＿＿＿＿＿＿＿_
,,　,,,,,, ,,,,　,, ,,,,　,,,,,|　立った立った！クララが立った！ |　　　　　　　　　　　　＼
　,,,, ,,, ,,,,, ,,,,,,, ,,,, , ＼　＿＿＿＿＿＿＿＿＿＿＿＿_／　 駄スレも立った！　 |
||＝||＝||＝||＝||＝||∨＝||＝||＝||＝||＝||＝||＝||＝||＼＿＿　 ＿＿＿＿＿_／
,,,,,,, ,,,,, ,,, ,,　,,,,　,,, ∧＿∧　,,　, ∧＿∧,, ,,,,, ,, ＿＿ ,,,,　,,,,,　　∨　　,,,,,　,,,, ,,　,, ,,,,
,,　e＠＠e ,,,,,, ,,, （ o´∀｀） ,,,,, （∀・ ； ） ,,, , , | 　　|| ,,, ,,,,　e＠＠e　,　,,,,　,,, ,,　, ,,
,,,　(,・∀・)　,,,　,,⊂　　　⊃,,, ,,⊂⊂⌒ヽ、, ,,,　|!____i|| , ,,,♪ (・∀・,)＿ﾉ　,,,,, ,,,, ,,　,
,〜((　 ,,), ,,,, ,,,○（　　　ﾉ　,,,, ﾌﾟﾙ ）） 　 ）○／＿／) ,,,,　,,　とと,,＿＿つ　,　,,　,, ,,
,,,, ,UUU ,,, ,,,　,,,,,, ）__）_） ,, ,,,　,(( （_（＿ﾉ ))ﾌﾟﾙ,,,,◎ ,, ,,, ,,　,,,,, ,,,,,　,,,　ミ ﾋﾟｮ〜ﾝ
| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |,,,　,,,,| |
| |二二| |二二| |二二| |二二| |二二| |二二| |二二| |二二| |二二| |二二| |二二| |
| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |,,,, ,,,,,| |

駄スレ建設して御免なさい。
何処で聞けば良いですか？
ぽちっとなについては訂正します。
submitの送信って事で。＜ボヤッキー好きですよ。

建設ですか（＠ｗ荒
氏ね。

悪い事は言わん、ＳＰＡＭの踏み台にされるから止めときなさい！

〈削除依頼は？〉

〔駄目です。無視されています。
しかし>>1君！ああしなければ、他のみんながやられていたぞ！〕

「それ以上煽って僕を怒らせないでよ。
僕に残されている後１８５串。
これだけあればこの板の半分は壊せるよ。」

『今の彼ならやりかねませんね。』

【聞いて！>>1君！煽りさんたちの判断がなければあなたは通報されてたかもしれないのよ！？】

「そんなの関係ないよ！
煽りは・・・僕のスレッドを壊そうとしたんだ！！
この僕の手で・・・。

煽り！そこにいるんだろ？何か言ってよ！答えてよ！！」

《空白レス書き込み速度を連続投稿限界まで上げろ。》

【え！？】

《厨房のだだにつきあってる暇はない。》

「まだクッキーが残っ・・・ごはぁ！畜生・・・畜生・・・畜生・・・。」

#!/usr/local/bin/perl
$sendmail = '/usr/lib/sendmail'; $subject = "URL"; $from = "xxx\@hogehoge.com";$back = './mail.html'; $ref = $ENV{'HTTP_REFERER'};

if($ENV{REQUEST_METHOD} eq "GET"){ &error(1,"POSTで投げてね");}
&decode; &sendmail; print "location: $back\n\n";
sub decode{ 中略 }

sub sendmail{
open(MAIL,"| $sendmail -t") || &error(1,"sendmailが実行できませんですた。。。");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";

print MAIL "URL\n$ref\n";
close(MAIL) || &error(1,"メールの送信に失敗しますた。。。");
}

sub error{ 中略
exit; }

>7
スミマセンバカで・・・
氏んどきます

>8
ご忠告頂き感謝致します。

>9
削除依頼をするのをすっかり忘れてました
先日出しました。ご忠告有難う御座います。

>10
とても感激・そして感謝です！
コレを元に頑張ってみます！
有難う御座いましたm(__)m

後はこのスレが削除されるを待つのみです。
皆様大変おさがわせしました。
今後は駄スレを作らないように留意致します。