#!/usr/bin/perl ################################################### ## ### ## Program : Diary ### ## Description : ไดอารี่แสดงบันทึกการเดินทาง ### ## Programmer : Nattapong Chantanawongsa ### ## Email : ecensor@yahoo.com ### ## Date : 29/9/44 ### ## last modify : ### ## ### ################################################### require "sub.cgi"; require "configcenter.cgi"; use CGI; $obj = new CGI; $id = $obj->param( 'id'); print "Content-type:text/html\n"; if($id eq ''){print "Error";exit;} print qq( ::: + Diary @ TTZ + :::
Send $id to your friends.
ชื่อของคุณ
อีเมลล์ของคุณ
อีเมลล์เพื่อนคุณ
ข้อความ
);