創業135年を誇る超老舗のPerl/CGIスクリプト卸問屋へようこそ。当店では最先端技術を駆使して作成したスクリプトを格安のパッケージにして販売するかもしれませんが現在は産地直送のため時価です。当社が持てる技術の粋を集めた7行シリーズをよろしく!(結構適当なのは内緒)
DOCUMENT_ROOT | /home/tonya/public_html/ |
GATEWAY_INTERFACE | CGI/1.1 |
HTTP_ACCEPT | text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 |
HTTP_ACCEPT_ENCODING | gzip |
HTTP_ACCEPT_LANGUAGE | en-US,en;q=0.5 |
HTTP_HOST | tonya.usamimi.info |
HTTP_USER_AGENT | CCBot/2.0 (https://commoncrawl.org/faq/) |
HTTP_X_FORWARDED_FOR | 3.236.156.34, 10.0.0.4 |
HTTP_X_VARNISH | 22783238 |
PATH | /usr/local/bin:/usr/bin:/bin |
QUERY_STRING | d=2415919104&source=project/7lines/mail.cgi |
REMOTE_ADDR | 3.236.156.34 |
REMOTE_PORT | 50688 |
REQUEST_METHOD | GET |
REQUEST_URI | /cgi-bin/index.cgi?d=2415919104&source=project/7lines/mail.cgi |
SCRIPT_FILENAME | /home/tonya/public_html/cgi-bin/index.cgi |
SCRIPT_NAME | /cgi-bin/index.cgi |
SERVER_ADDR | 10.0.0.8 |
SERVER_ADMIN | tonya@usamimi.info |
SERVER_NAME | tonya.usamimi.info |
SERVER_PORT | 80 |
SERVER_PROTOCOL | HTTP/1.1 |
SERVER_SIGNATURE | <address>Apache Server at tonya.usamimi.info Port 80</address> |
SERVER_SOFTWARE | Apache |
UNIQUE_ID | YBDk-QoAAAgAATc3vyMAAAAA |
#!/usr/local/bin/perl ($p,$t,$s)=('/usr/sbin/sendmail','mail@example.com','メールフォームから');use CGI':all';$$_=param $_ for qw/f m/;($f)=$f=~/^([\w.-]{1,64}\@[\w.-]{1,128})$/i; ($m=substr$m,0,2**16)=~tr/\0/ /;$m=~s/\r\n?/\n/g;$m=~s/^\.$/../gm;charset '';put header,startform,'あなたのメールアドレス',textfield(-name,'f'),br,'メッセージ', br,textarea(-name,'m',-rows,10,-cols,60),br,submit,endform;if($f&&$m&&open M, "| $p -t"){print(M join"\n",'Content-Transfer-Encoding: 8bit',"Reply-To: <$f>", "To: <$t>","Subject: $s",'',$m,'')&&put '管理者へ送信しました。';close M}
©2021 Perl/CGIスクリプト卸問屋