valvallow

#!/bin/sh

#
# it works on only cygwin.
#

if [ $# -eq 0 ]
then
        netsh wlan show profiles | cut -d':' -f 2 | sed -e 's/^[ ]*//g' -e '1,8d'
else

valvallow

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer /v link /t REG_BINARY /d 00000000 /f
pause

valvallow

#!/bin/sh

# http://d.hatena.ne.jp/jeneshicc/20110215/1297778049

if [ -f $1 ] ; then
        case $1 in
                *.tar.bz2)   tar xvjf $1    ;;
                *.tar.gz)    tar xvzf $1    ;;
                *.tar.xz)    tar xvJf $1    ;;
                *.bz2)       bunzip2 $1     ;;

valvallow

#!/bin/sh

# toothless

VALUE_START_NUMBER=0

while getopts hs: OPT
do
    case $OPT in
        "s" ) VALUE_START_NUMBER="$OPTARGS" ;;

valvallow

#!/bin/sh

SLN_NAME=""

while getopts vVn OPT
do
        case $OPT in
                "v" | "V" ) VERBOSE="TRUE"
                shift
                ;;

valvallow

#!/bin/sh

NOW=`date +%s`
YESTERDAY=`date --date='-1day' +%s`

wget -qO - "http://wbsapi.withings.net/measure?action=getmeas&oauth_consumer_key=xxx...xxx&oauth_nonce=xxx...xxx&oauth_signature=xxx...xxx&oauth_signature_method=HMAC-SHA1&oauth_token=xxx...xxx&oauth_version=1.0&userid=nnn...nnn&oauth_timestamp=1234567890&startdate=$YESTERDAY&enddate=$NOW"

valvallow

#!/usr/local/bin/gosh

(use net.twitter)
(use gauche.parseopt)

(define (main args)
  (let-args (cdr args)
    ((help "h|help" => (cut usage (car args)))
     (consumer-key "consumer-key=s" "")
     (consumer-secret "consumer-secret=s" "")

valvallow

#!/usr/local/bin/gosh

(use gauche.parseopt)
(use gauche.process)
(use srfi-1)
(use srfi-13)

(define (usage cmd)
  (print "usage: " cmd " [option] ... input")
  (print " options:")

valvallow

#!/bin/sh
SSH_SERVER="git-server" # .ssh/config
SSH_PASSWORD="*****"
SSH_SERVER_REPOS_ROOT_PATH='/repos'
BACKUP_DIR="/home/valvallow/repos"
REPOS_LIST_FILE="/home/valvallow/repos.list"
GIT_COMMAND_PATH="/home/valvallow/opt/bin/git"

# ----------------------------
#  find repository

valvallow

#!/usr/bin/env gosh

(use text.csv)
(use file.util)
(use gauche.parseopt)

(define (usage cmd)
  (print "Usage: " (sys-basename cmd) " [option ...] <file or input>")
  (print "  h|help      :  Show this help")
  (print "  d|delimiter : default:<tab>")