This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
print "Content-Type: text/html\n\n"; | |
print "<html><body><table border='1'>"; | |
print "<tr><th>$_</th><td>$ENV{$_}</td></tr>" for (sort(keys(%ENV))); | |
print "</table></body></html>"; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Encode; | |
use Net::SMTP; | |
my $svn_rev=shift or die; | |
my $svn_dir=shift or die; | |
my $smtp_url='xxx.yyy.zzz'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Options ExecCGI | |
AddHandler cgi-script .py | |
DirectoryIndex mini-bbs.py |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<html> | |
<body> | |
<div id="view"><i>Now loading TEPCO power consumption graph</i></div> | |
<script> | |
var cbTepco; | |
function getTepco(id,day){ | |
var s=document.createElement("script"); | |
s.type="text/javascript"; | |
s.src="http://tepco-usage-api.appspot.com/"+day+".json?callback=cbTepco" | |
cbTepco=(function(id,day){ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Options ExecCGI | |
AddHandler cgi-script .cgi | |
DirectoryIndex mini-memo.cgi |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# mini uploader ver.0.1 (2011-03-21) by yukioc | |
# Ver.0.1 2011-03-21 new. | |
use strict; | |
use warnings; | |
use POSIX 'strftime'; | |
use CGI; | |
use CGI::Carp 'fatalsToBrowser'; | |
use File::Basename 'basename'; | |
use HTML::Template; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<html><head> | |
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> | |
<script type="text/javascript"> | |
function yt_search(){ | |
var keyword=encodeURIComponent(document.getElementById("keyword").value); | |
var script=document.createElement("script"); | |
script.type="text/javascript"; | |
script.src="http://gdata.youtube.com/feeds/api/videos?" | |
+ "vq=" + keyword + "&alt=json-in-script&max-results=30&callback=yt_cb"; | |
var yt_view=document.getElementById("yt_view"); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<html> | |
<head> | |
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> | |
</head> | |
<body> | |
<textarea id="input" cols="40"> | |
%25E3%2581%25AB%25E3%2581%258F%25E3%25 | |
</textarea><br/> | |
<input type=button value="decodeURI" | |
onclick="decURI('input')" /> |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function alert(s){ WScript.StdOut.Write(s||""); } | |
function print(s){ WScript.StdOut.Write(s||""); } | |
function sleep(t){ WScript.Sleep(t); } | |
function exit(){ WScript.Quit(); } | |
function url_get(url){ | |
var xh=new ActiveXObject("Microsoft.XMLHTTP"); | |
var s=undefined; | |
xh.open("get",url,true); | |
xh.onreadystatechange = function(){ |