Skip to content

Instantly share code, notes, and snippets.

View frah's full-sized avatar

frah

4 followers · 7 following
  • Nara, JAPAN
View GitHub Profile
@frah
frah / stat.lua
Created October 9, 2012 01:28
Lua script of server status monitoring for nginx
string.split_it = function(str, sep)
if str == nil then return nil end
assert(type(str) == "string", "str must be a string")
assert(type(sep) == "string", "sep must be a string")
return string.gmatch(str, "[^\\" .. sep .. "\n]+")
end
string.split = function(str, sep)
local ret = {}
for seg in string.split_it(str, sep) do
ret[#ret+1] = seg
@frah
frah / dev_composite.sh
Created October 10, 2012 19:19
Composite photo developer (require dcraw & ImageMagick)
#!/bin/bash
set -e
function genfn {
printf "s%02d-%04d.ppm" $1 $2;
}
function print_usage {
echo "[Usage] $0 dark-frame [dcraw_option]"
}
@frah
frah / com_lighten.sh
Created October 11, 2012 17:46
Composite photo developer (require dcraw & ImageMagick)
#!/bin/bash
set -e
shopt -s nocasematch
function print_usage {
echo "[Usage] $0 input-files dark-frame output-filename [dcraw_option]"
}
function print_header {
echo -e "\033[0;34m==> \033[0;35m$1\033[0m"
@frah
frah / gist:3889213
Created October 14, 2012 17:12
Route search function with more than 8 waypoints using Google Maps API v3
function searchLongRoute(waypoints) {
var route;
var unit = 10;
var unit_num = Math.ceil((waypoints.length+Math.ceil(waypoints.length/unit)-1)/unit);
for (var start_num = 0; start_num < waypoints.length-1;) {
var s = waypoints[start_num];
var next_start = ((waypoints.length>=start_num+unit)?(start_num+unit):(waypoints.length))-1;
var e = waypoints[next_start];
var w = waypoints.slice(start_num+1, next_start);
@frah
frah / gist:3892253
Created October 15, 2012 12:41
#!/bin/bash
set -e
echo "## Unrar archive ##"
for f in $(find . -maxdepth 1 -type f -name "*.rar"); do
echo " - $f"
unrar x -o- -p- -xshareraws.blogspot.com.url -y -inul $f
done
@frah
frah / patch-ngx_http_auth_digest_module.diff
Created October 20, 2012 02:24
Patch file for nginx 1.2.4 on FreeBSD ports
--- ../samizdatco-nginx-http-auth-digest-bd1c86a/ngx_http_auth_digest_module.c.orig 2011-12-29 09:00:32.000000000 +0900
+++ ../samizdatco-nginx-http-auth-digest-bd1c86a/ngx_http_auth_digest_module.c 2012-10-17 16:47:17.000000000 +0900
@@ -401,13 +401,13 @@
http_method.len = r->method_name.len+1;
http_method.data = ngx_pcalloc(r->pool, http_method.len);
if (http_method.data==NULL) return NGX_HTTP_INTERNAL_SERVER_ERROR;
- p = ngx_cpymem(http_method.data, r->method_name.data, r->method_end - r->method_name.data+1);
+ p = ngx_cpymem(http_method.data, r->method_name.data, r->method_name.len);
- ha2_key.len = http_method.len + r->uri.len + 1;
@frah
frah / gist:6016248
Last active December 19, 2015 20:58
javascript:(function(){var o=function(w,v){var i=new Blob([v]);var u=window.URL||window.webkitURL;var t=u.createObjectURL(i);var e=document.createElement("a");e.download=w;e.href=t;return e};var c=function(a){return unescape(escape(a).replace(/(%u3000|%20|%09)/g,""))};var r=document.getElementsByTagName("table")[10].innerText.trim();var d=document.getElementsByTagName("table")[11];var j=d.getElementsByTagName("tr");var s="";var n="";var h="";for(var g=0;g<j.length;g++){var l=j[g];if(l.attributes.length==0){var q=o("address.csv",n);q.innerText="[CSV Download]";l.children[0].insertBefore(q,l.children[0].firstChild);s=s+n;n="";continue}if(l.attributes[0].value=="#B0C4DE"){h=l.children[0].innerText}else{var p=l.children[1].innerText;var m=c(p.substring(0,3));p=c(p.substring(3));var f=m+","+p+","+m+" "+p;f+=","+r+","+h+",";f+=l.children[0].innerText.replace(/[Ａ-Ｚａ-ｚ０-９]/g,function(a){return String.fromCharCode(a.charCodeAt(0)-65248)});f+=","+l.children[2].innerText.replace(/\n/g,"");f+=","+c(l.children[3].innerTex
@frah
frah / led.html
Created October 11, 2013 19:33
LimitlessLED control test with Lua on Nginx
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no" />
<title>LimitlessLED control</title>
<style type="text/css">
html {
-webkit-user-select: none;
-webkit-background-size: 10px 10px;
@frah
frah / SendMes.vbs
Last active December 27, 2015 10:49
プロキシの設定を有効化するVBScript
Option Explicit
Dim Excel, Com
Set Excel = WScript.CreateObject("Excel.Application")
Excel.Visible = False
rem HWND_BROADCAST = 0xffff
rem WM_SETTINGCHANGE = 0x001a
rem SMTO_NOMAL = 0x0
@frah
frah / DocumentParser.patch
Last active December 31, 2015 16:59
KBPublisher用語集日本語キーワード対応パッチ
--- old/DocumentParser.php Wed Dec 18 14:16:57 2013
+++ new/DocumentParser.php Wed Dec 18 14:18:43 2013
@@ -143,7 +143,7 @@
$ids = array();
foreach($glossary as $id => $item) {
- if(strpos(strtolower($string), strtolower($item)) !== false) {
+ if(mb_strpos(mb_strtolower($string), mb_strtolower($item)) !== false) {
$ids[] = $id;
}