仕方がない、さくらのレンタルサーバが1つあるのでそこで監視するようにしてみよう。社内のサーバ監視をしているNagiosは便利なんだけれど、さくらの500円/月のレンタルサーバに入れるのはちょっとアレだし、必要最小限のスクリプトをPythonで書くことにする。

求めた要件としては、

• HTTPで接続できなかったらメールでお知らせが届く。
• 一回メールを送ったら、しばらくはメールしないで欲しい。
• HEADとGETとPOSTに対応。
• HTTPステータスコードだけをチェックする（レスポンスに含まれるコンテンツのチェックは不要）。
• 設定ファイルで複数のURLをまとめてチェックして欲しい。
• （さくらなので）常駐するデーモンではなくて、単独のコマンドで実行できる（cronで繰り返し実行）。
• お知らせメールはcrontabのMAILTOで送るからstderrに出力してくれればいい。
• OKだったときのログはstdoutに出力してくれればいい。
• スクリプトは1ファイルで完結させる。
• Python2.4以降、標準ライブラリだけで動く。

使い方は、
1. python htpchk.py URL
とURLを引数に指定する方法。これだと細かい設定はできませんが、HEADでチェック、お知らせメールは多くて10分に1回、となります。

2. python htpchk.py htpchk.conf
と引数に設定ファイルを指定する（あるいは引数指定を省略して、htpchk.pyと同じディレクトリにhtpchk.confという設定ファイルを置いておく）と、複数のURLを一括してチェックできるようになります。
設定ファイルは、Windowsのiniファイルに良く似た書き方です。DEFAULTセクションは全セクションのデフォルト値として使われます。あとはチェックするURL毎にセクションを作ってurlパラメータを書いておくだけで1と同様にチェックはできます。セクション毎にDEFAULTセクションの値を上書きできるので、細かい変更がしたい場合はセクションに値を書きます。詳しい設定ファイルの書き方は後の方のサンプルをご覧ください。

cronにこのスクリプトを実行するように登録しておく（さくらのレンタルサーバではこんな感じ）。
/home/example/bin/にhtpchk.pyとhtpchk.confを置いたとするとこんな感じ。

MAILTO=alert@example.com, mobile@example.com
# NAME: htpchck
*/5     *       *       *       *       /usr/local/bin/python /home/example/bin/htpchk.py >/dev/null

これで、5分に一回htpchk.confに書いてあるサイトをチェックして、HTTPステータスが200じゃなければ、標準エラーにメッセージが出力されて、そのメッセージはMAILTOに書いたメールアドレスに送られます。標準出力は/dev/nullに向けてあるので捨てられます。

手元では47のURLをチェックする設定ファイルを書いて運用中。概ね良好なんだけれど、まだチェックするURLを増やしたいのでもう少しチェックにかかる時間を短縮したい。HTTPのリクエストを送る部分をスレッドにして同時実行すれば速くなるのはわかっているので、困ったらスレッド化するかも。

以下はスクリプト本体（htpchk.py）と設定ファイル（htpchk.conf）のサンプルです。最新版はGist:343248に置いてあります。

htpchk.py

#!/usr/bin/env python
# -*- coding: utf-8 -*-
"""#8 Simple HTTP Checker
  Usage:
       htpchk (htpchk.conf is needed at same directory.)
       htpchk URL
       htpchk config-file
"""
__NAME__ = '#8 Simple HTTP Checker'
__VERSION__ = '1.0'
__ABOUT__ = 'http://jinim.jp/archives/2136'
__USER_AGENT__ = 'Mozilla/5.0 (compatible; %s/%s; +%s)' % (__NAME__, __VERSION__, __ABOUT__)
DATETIME_FORMAT = "%Y-%m-%d %H:%M:%S"

import os
import sys
import time
import urllib2
from urllib2 import HTTPError
import urlparse
import tempfile
from ConfigParser import ConfigParser

#url to filename with sha hash.
try:
    import hashlib
    def _urlhash_filename(url): return hashlib.sha224(url).hexdigest()
except:
    import sha
    def _urlhash_filename(url): return sha.new(url).hexdigest()

opener = urllib2.build_opener()
opener.addheaders = [('User-agent', __USER_AGENT__)]
urllib2.install_opener(opener)

class ParamError(Exception): pass

class HeadRequest(urllib2.Request):
    def get_method(self): return "HEAD"

class Site(object):
    def __init__(self, name, url, notify_interval=60*10, method="HEAD", data=None, wait_seconds=0):
        """When medhod is POST, data is requred."""
        self.name = name
        self.url = url
        self.method = method
        self.data = data
        self.notify_interval = notify_interval
        self.wait_seconds = wait_seconds
        self.notified = os.path.join(tempfile.gettempdir(), "htpcheck-%s" % _urlhash_filename(self.url))

    def check(self):
        if self.method=="HEAD":
            u = urllib2.urlopen(HeadRequest(self.url))
        elif self.method=="POST":
            u = urllib2.urlopen(self.url, data=self.data)
        elif self.method=="GET":
            u = urllib2.urlopen(self.url)
        else:
            raise ParamError, "method: %s not supported. Supported methods are (HEAD,GET,POST)." % self.method
        return u.info()

    def recovered(self):
        os.rename(self.notified, os.path.join(os.path.dirname(self.notified), os.path.basename(self.notified) + time.strftime("-recovered.%Y%m%d%H%M%S")))

    def notify(self, err):
        msg = log_message(self, err)
        last_notified = 0
        if os.path.exists(self.notified):
            try:
                last_notified = time.mktime(time.strptime(file(self.notified).readlines()[-1].split("\t")[0], DATETIME_FORMAT))
            except ValueError:
                last_notified = 0
        if time.time() > (last_notified + self.notify_interval):
            sys.stderr.write(msg)
            file(self.notified, 'a').write("%s\tnotified\n" % msg[:-1])
        else:
             sys.stdout.write(log_message(self, "[SUPPRESSED] %s" % err))

def log_message(site, msg=None):
    """if msg is not None, message means error.
    """
    if msg:
        format = '%s\tNG\t%s\t%s\t%s\t%s\n'
        return format % (time.strftime(DATETIME_FORMAT), site.name, site.method, site.url, msg)
    else:
        format = '%s\tOK\t%s\t%s\t%s\n'
        return format % (time.strftime(DATETIME_FORMAT), site.name, site.method, site.url)

def config_parse(conf):
    parser = ConfigParser()
    parser.readfp(open(conf))
    sites = list()
    for section in parser.sections():
        url = parser.get(section, 'url')
        method = parser.get(section, 'method')
        if method=="POST":
            data = parser.get(section, 'data')
        else:
            data = None
        notify_interval = parser.getfloat(section, 'notify_interval')
        wait_seconds = parser.getfloat(section, 'wait_seconds')
        sites.append(Site(section, url, notify_interval, method, data, wait_seconds))
    return sites

def main(sites):
    for site in sites:
        try:
            site.check()
            sys.stdout.write(log_message(site))
            if os.path.exists(site.notified):
                site.recovered()
        except HTTPError, err:
            site.notify(err)
        if site.wait_seconds>0: time.sleep(site.wait_seconds)

if __name__=='__main__':
    if len(sys.argv)>1: config = sys.argv[1]
    else: config = os.path.splitext(__file__)[0]+'.conf'

    if not os.path.exists(config):
        if config.startswith('http://') or config.startswith('https://'):
            name = urlparse.urlparse(config)[1].split(':')[0]
            sites = (Site(name, config), )
        else:
            raise ParamError, "config file %s not found." % config
    else:
        sites = config_parse(config)

    main(sites)

htpchk.conf

[test_HEAD]
url: http://example.com/

[test_GET]
url: http://example.com/
method: GET

[test_POST]
url: http://example.com/
method: POST
data: Hello World

[test_notfound]
url: http://example.com/notfound.html
notify_interval: 10

[DEFAULT]
#************************************************
;  DEFAULT values
#************************************************

#Target URL.
#url=http://example.com/

#HTTP method
method: HEAD

#POST data
#data: Hello World

#When HTTP error occuered, repeatedly notified with interval seconds.
notify_interval: 600

#after checking, wait bellow seconds.
wait_seconds: 0

OracleのPL/SQLで書いた営業日/稼働日判定用のストアード・パッケージ。いろいろと調べてみたのだけれど、ぴったりくるものが見当たらなくて書いてみたもの。まだリリースまで時間があって、それほどテストされていないけれど、そんなに複雑でもないので大丈夫ではないかと。IS_WORKDAYがCHARを返すのはカッコ悪いけれど、いろいろあってこういう仕様。直すのは簡単なので気になる人は直してください。

仕様としては、１）土曜日と日曜日は営業日じゃない、２）休日テーブル（holidays）に日付があったらそれは休日。wkd_pkg.is_workdayを直すことで、土曜日は営業日にしたり、水曜日を休日にしたりできるので、その辺りは適当に。仕様はExcelにあるworkdayとnetworkdayを参考にしているけれど、厳密には一緒じゃない（と思う）。

このパッケージには4つの関数があります。1つはオーバーロードしたものなので、実質的には３つ。

1. FUNCTION WORKDAY( i_startdate IN date, i_days IN number) RETURN DATE;
開始日からi_days営業日後の日付を返す、 i_daysが正数なら未来、負数なら過去、開始日は数えない。

2. FUNCTION IS_WORKDAY( i_date IN date) RETURN CHAR;
指定した日付が営業日ならYを返す。営業日じゃなければNを返す。

3. FUNCTION NETWORKDAY( i_startdate IN date, i_enddate IN date) RETURN NUMBER;
開始日と終了日の間に含まれる営業日の日数を返す。日数には開始日と終了日も含まれる。

コードはGistにおいてあります。 Gist: 294489

CREATE OR REPLACE PACKAGE WKD_PKG AS
/*
 営業日パッケージ

 ※土曜、日曜が営業日の場合は、IS_WORKDAYを直す
 ※国民の祝日が営業日の場合は、休日テーブルを直す

-- 休日テーブル（祝祭日、お盆とか、都民の日とかも）
create table holidays (
    holiday date,
    primary key(holiday)
);
-- 2010年の国民の祝日を入れておく
-- ここが便利 http://cbdb.cybozu.co.jp/cgi-bin/db.cgi?page=DBView&did=690
insert into holidays values(to_date('2010-01-01','YYYY-MM-DD')); --元日
insert into holidays values(to_date('2010-01-11','YYYY-MM-DD')); --成人の日
insert into holidays values(to_date('2010-02-11','YYYY-MM-DD')); --建国記念の日
insert into holidays values(to_date('2010-03-21','YYYY-MM-DD')); --春分の日
insert into holidays values(to_date('2010-03-22','YYYY-MM-DD')); --振替休日
insert into holidays values(to_date('2010-04-29','YYYY-MM-DD')); --昭和の日
insert into holidays values(to_date('2010-05-03','YYYY-MM-DD')); --憲法記念日
insert into holidays values(to_date('2010-05-04','YYYY-MM-DD')); --みどりの日
insert into holidays values(to_date('2010-05-05','YYYY-MM-DD')); --こどもの日
insert into holidays values(to_date('2010-07-19','YYYY-MM-DD')); --海の日
insert into holidays values(to_date('2010-09-20','YYYY-MM-DD')); --敬老の日
insert into holidays values(to_date('2010-09-23','YYYY-MM-DD')); --秋分の日
insert into holidays values(to_date('2010-10-11','YYYY-MM-DD')); --体育の日
insert into holidays values(to_date('2010-11-03','YYYY-MM-DD')); --文化の日
insert into holidays values(to_date('2010-11-23','YYYY-MM-DD')); --勤労感謝の日
insert into holidays values(to_date('2010-12-23','YYYY-MM-DD')); --天皇誕生日

*/

/*
|| 開始日からi_days営業日後の日付を返す
|| i_daysが正数なら未来、負数なら過去
|| ※開始日は数えない
*/
 FUNCTION WORKDAY( i_startdate IN date, i_days IN number) RETURN DATE;

/*
|| 指定した日付が営業日ならYを返す。営業日じゃなければNを返す。
*/
 FUNCTION IS_WORKDAY( i_date IN date) RETURN CHAR;
 -- 今日が営業日かどうか
 FUNCTION IS_WORKDAY RETURN CHAR;

/*
|| 開始日と終了日の間に含まれる営業日の日数を返す。
|| 日数には開始日と終了日も含まれる。
*/
 FUNCTION NETWORKDAY( i_startdate IN date, i_enddate IN date) RETURN NUMBER;
END WKD_PKG;
/

----------------------------------------------------------
--    PACKAGE BODY
----------------------------------------------------------
CREATE OR REPLACE PACKAGE BODY WKD_PKG AS

FUNCTION WORKDAY( i_startdate IN date, i_days IN number) RETURN DATE
IS
  i   NUMBER := 0;
  work_days NUMBER := 0;
BEGIN
  IF i_days = 0 THEN
     RETURN i_startdate;
  END IF;

  WHILE true LOOP
    IF i_days > 0 THEN
       i := i + 1;
    ELSE
       i := i - 1;
    END IF;

    IF IS_WORKDAY(i_startdate + i) = 'Y' THEN
      work_days := work_days + 1;
    END IF;

    IF abs(work_days) = abs(i_days) THEN
       exit;
    END IF;
  END LOOP;

  RETURN i_startdate + i;
END;

FUNCTION IS_WORKDAY(i_date IN date) RETURN CHAR
IS
  hol NUMBER := 0;
BEGIN
  -- 日曜日:1と土曜日:7に含まれない
  IF TO_CHAR(i_date, 'D') NOT IN ('1', '7') THEN
     -- 土日以外でholidaysに存在しなければ営業日
     SELECT COUNT(*) INTO hol FROM holidays WHERE holiday=trunc(i_date);
     IF hol = 0 THEN
        RETURN 'Y';
     END IF;
  END IF;
  RETURN 'N';
END;

FUNCTION IS_WORKDAY RETURN CHAR
IS
BEGIN
  RETURN IS_WORKDAY(SYSDATE);
END;

FUNCTION NETWORKDAY( i_startdate IN date, i_enddate IN date) RETURN NUMBER
IS
  i number := 0;
  diff number := 0;
  days number := 0;
BEGIN
  diff := trunc(i_enddate) - trunc(i_startdate);
  FOR i IN 0..diff LOOP
      IF IS_WORKDAY(i_startdate + i) = 'Y' THEN
        days := days + 1;
      END IF;
  END LOOP;
  RETURN days;
END;

END WKD_PKG;
/

/*
-- テスト

-- 適当に
SELECT to_char(WKD_PKG.workday(to_date('2010-01-09','YYYY-MM-DD'), 2),'YYYY-MM-DD') FROM dual;
SELECT to_char(WKD_PKG.workday(to_date('2010-01-08','YYYY-MM-DD'), 4),'YYYY-MM-DD') FROM dual;
SELECT to_char(WKD_PKG.workday(to_date('2010-01-07','YYYY-MM-DD'), 4),'YYYY-MM-DD') FROM dual;
SELECT to_char(WKD_PKG.workday(to_date('2010-01-07','YYYY-MM-DD'), -4),'YYYY-MM-DD') FROM dual;

-- 全部6のはず。9,10が土日。11日が祝日。
SELECT WKD_PKG.NETWORKDAY(to_date('2010-01-07','YYYY-MM-DD'),to_date('2010-01-15','YYYY-MM-DD')) FROM dual;
SELECT WKD_PKG.NETWORKDAY(to_date('2010-01-07','YYYY-MM-DD'),to_date('2010-01-16','YYYY-MM-DD')) FROM dual;
SELECT WKD_PKG.NETWORKDAY(to_date('2010-01-07','YYYY-MM-DD'),to_date('2010-01-17','YYYY-MM-DD')) FROM dual;
-- 7のはず。9,10が土日。11日が祝日。
SELECT WKD_PKG.NETWORKDAY(to_date('2010-01-07','YYYY-MM-DD'),to_date('2010-01-18','YYYY-MM-DD')) FROM dual;

*/

追記：GitHubがトラブってた。なんだかAnonymousのGistになっていたのでForkしたGistに変えました。

下のスクリプトをローカルに保存して、設定を3ヶ所書き換えて（ユーザID、API Key、API Secret）、flickr.pyを同じディレクトリにおいて、実行するとサブディレクトリを作成してその中にズンズンダウンロードします。

#!/usr/bin/env python
# -*- coding: utf-8 -*-
"""flickr.pyの利用サンプル。 http://code.google.com/p/flickrpy/
Flickrから指定したユーザの全ての写真を取得してローカルディスクに保存する。
自分の写真をダウンロードするために作ったので、他人の写真でも使えるかどうかは未確認。
"""
import os
import time
import flickr
import urllib

#######################################################
# ここから設定変更
#######################################################

#ユーザID
#これ変更必須。自分のアカウントページでURLをひょいと見ると書いてあった。@を含んだ12文字。
user_id = "XXXXXXXX@YYY"

#Flickr API Key + Secret
#これ必須。自分のアカウントのページで確認。
flickr.API_KEY = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
flickr.API_SECRET = "XXXXXXXXXXXXXXXX"

#これはオプション。
#取得する画像のサイズ。Large=オリジナル。 http://www.flickr.com/services/api/flickr.photos.getSizes.html
#Originalでもいけそうだけど、何故かダメだった。
size = 'Large'

#######################################################
# ここまで設定変更
#######################################################

#ダウンロード写真を保持するディレクトリの作成
MY_DIR = os.path.dirname(os.path.abspath(__file__))
IMAGE_DIR = os.path.join(MY_DIR, 'image_%s' % size)
if os.path.exists(IMAGE_DIR):
    os.rename(IMAGE_DIR, "%s.bak-%s" % (IMAGE_DIR, time.strftime('%Y%m%d%H%M%S')))
os.makedirs(IMAGE_DIR)

if __name__=='__main__':
    user = flickr.User(user_id)
    photo_count = int(user.photos_count)
    print("%s has %d photos." % (user.username, photo_count))

    retr_count = 0
    page = 1

    while retr_count < photo_count:
        photos = flickr.people_getPublicPhotos(user_id, per_page = 500, page = page)
        for photo in photos:
            url = photo.getURL(size = size, urlType = 'source')
            filename = os.path.join(IMAGE_DIR, '%s.jpg' % (photo.title))
            file(filename, "wb+").write(urllib.urlopen(url).read())
            retr_count += 1
            print("%d/%d: %s retrieved." % (retr_count, photo_count, os.path.basename(filename)))
        page += 1

スクリプトはGistにも置いてあります。 Gist:237451

と、聞かれたので、書いておく。

• mysqldumpでダンプする。
• bzip2で圧縮する。
• dateで取得した曜日をファイル名に含めて毎日上書きする。

という方針でいく。

まずは、ディレクトリを作る。コントロールパネルでもいいし、sshで入って

mkdir backup
mkdir bin

とやってもいい。とにかく、ホームディレクトリに、backupとbinディレクトリを作る。

mysqldumpを実行するシェルスクリプトを書く（cshはよくわからないので、bash）。わからなくなっちゃうから、全部フルパスで書いておく。
ファイル名は「/home/ユーザ名/bin/mysql-backup.sh」とする。

#!/usr/local/bin/bash
DBHOSTNAME=mysqlXXX.db.sakura.ne.jp
DBUSERNAME=ユーザ名
DBPASSWORD=パスワード
DBNAME=データベース名
DAY=`date "+%w"`
BACKUPFILENAME=/home/ユーザ名/backup/mysql.dmp.$DAY.bz2

/usr/local/bin/mysqldump -h $DBHOSTNAME -p$DBPASSWORD -u $DBUSERNAME $DBNAME |/usr/bin/bzip2 >$BACKUPFILENAME

※ mysqlXXX.db.sakura.ne.jpのXXXの部分、ユーザ名、パスワード、データベース名を自分の契約しているレンタルサーバの情報にあわせて変更する。

あとは、

/home/ユーザ名/bin/mysql-backup.sh 1>/dev/null

という感じでサーバコントロールパネルの「CRONの設定」を使って書いておく（crontab -eで編集しても同じ）。
DAYの値は0が日曜日で順に土曜日が6。
毎日先週の同じ曜日のバックアップファイルが上書きされるので、常に１週間分のこっていることになる。

-- PostgreSQLのルールシステムを使った論理削除の例
-- 削除フラグと削除日時を保持するフィールドを持ったテーブルを作成
CREATE TABLE a(
  id serial PRIMARY KEY,
  value text,
  deleted boolean DEFAULT False,
  deleted_on timestamp DEFAULT 'infinity'
);
-- DELETEが実行されたら代わりに削除フラグを立てて削除日時をセットするルール
CREATE RULE a_delete_rule AS ON DELETE TO a
  DO INSTEAD
  UPDATE a SET deleted=True, deleted_on=CURRENT_TIMESTAMP
      WHERE id = OLD.id;

-- ここからはテストデータを投入、削除
-- 三件件挿入
INSERT INTO a(value) VALUES('a');
INSERT INTO a(value) VALUES('b');
INSERT INTO a(value) VALUES('c');
-- 確認
SELECT * FROM a;
-- 削除してみる
DELETE FROM a WHERE id>1;
-- 確認 削除されないで、削除フラグと削除日時が更新されている
SELECT * FROM a;
-- 後始末
DROP TABLE a;

Gist:229566

実行すると、こんな感じになります。

pguser=# — PostgreSQLのルールシステムを使った論理削除の例
pguser=# — 削除フラグと削除日時を保持するフィールドを持ったテーブルを作成
pguser=# CREATE TABLE a(
pguser(# id serial PRIMARY KEY,
pguser(# value text,
pguser(# deleted boolean DEFAULT False,
pguser(# deleted_on timestamp DEFAULT ‘infinity’
pguser(# );
NOTICE: CREATE TABLE will create implicit sequence “a_id_seq” for serial column “a.id”
NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index “a_pkey” for table “a”
CREATE TABLE
pguser=#
pguser=# — DELETEが実行されたら代わりに削除フラグを立てて削除日時をセット
pguser=# CREATE RULE a_delete_rule AS ON DELETE TO a
pguser-# DO INSTEAD
pguser-# UPDATE a SET deleted=True, deleted_on=CURRENT_TIMESTAMP
pguser-# WHERE id = OLD.id;
CREATE RULE
pguser=#
pguser=# — 三件件挿入
pguser=# INSERT INTO a(value) VALUES(‘a’);
INSERT 0 1
pguser=# INSERT INTO a(value) VALUES(‘b’);
INSERT 0 1
pguser=# INSERT INTO a(value) VALUES(‘c’);
INSERT 0 1
pguser=#
pguser=# — 確認
pguser=# SELECT * FROM a;
id | value | deleted | deleted_on
—-+——-+———+————
1 | a | f | infinity
2 | b | f | infinity
3 | c | f | infinity
(3 行)

pguser=#
pguser=# — 削除してみる
pguser=# DELETE FROM a WHERE id>1;
DELETE 0
pguser=#
pguser=# — 確認 削除されないで、削除フラグと削除日時が更新されている
pguser=# SELECT * FROM a;
id | value | deleted | deleted_on
—-+——-+———+—————————-
1 | a | f | infinity
2 | b | t | 2009-09-09 16:51:16.491694
3 | c | t | 2009-09-09 16:51:16.491694
(3 行)

pguser=#
pguser=# — 後始末
pguser=# DROP TABLE a;
DROP TABLE

DELETEの結果件数が0なのが、ORM側でどうなるのかちょっと気になるけれど。

考えたり、調べると、いいことあるなあ。

#!/bin/sh
D=`dirname $0`
echo `cd $D;pwd`

Pythonだとしょっちゅう書いてるアレ。

#!/bin/env/python
from os import path
print(path.abspath(path.dirname(__file__)))

お、こういう書き方があるのか。

#!/bin/sh
echo $(cd $(dirname $0);pwd)

• まずよく考えみて、
• わからなければ調べて、
• それでもダメなら聞く、

という癖をつけないとなあ。厳しいぞ。

/* Oracle PL/SQLで日付からその月の1日を求める*/

/* to_date、to_charを使えるなら、考えればできる */
create or replace function first_day(thedate date) return date is
begin
    return to_date(to_char(thedate,'YYYY-MM')||'-01','YYYY-MM-DD');
end;

/* 調べてみれば、こっちがスマートだとわかる */
create or replace function first_day(thedate date) return date is
begin
    return trunc(thedate,'MONTH');
end;

/***** ついでに *****/

/* 年の最初の日 1月1日 */
create or replace function first_day2(thedate date) return date is
begin
    return trunc(thedate,'YEAR');
end;

/* 週の始まり日曜日（※NLSの設定次第） */
create or replace function first_day3(thedate date) return date is
begin
    return trunc(thedate,'DAY');
end;

最後に問題。月の日数を求めるにはどうする？

urllib2.urlopenはそのままだと環境変数のプロキシ設定を参照するようで、ちょっと困る場合があった。

というわけで、urllib2.urlopenでプロキシを設定|参照しないようにする方法。

#!/usr/bin/env python
"""Python urllib2 proxy usage sample
"""
import urllib2

#今回はプロキシ設定を空にしておく
#proxies = {'http': 'http://www.example.com:3128/'}
proxies = {}

#プロキシハンドラーを作成して
handler = urllib2.ProxyHandler(proxies)

#プロキシハンドラーを指定してURL Openerを作成して
opener = urllib2.build_opener(handler)

#作成したURL Openerをインストールしてから
urllib2.install_opener(opener)

#普通にurlopenすると例外が発生してくれる
try:
    u = urllib2.urlopen('http://www.example.com/404NotFound.html')
    print u.read()
except IOError,error:
    print error

Gist:227549

Pythonカテゴリ作ってみた。

月初はまあいいとしても、月末、月の足し引きは、こんな方法しか思いつかず。

カッコ悪いが使えることは使える、と思う。

2008.3.14追記

• calendarモジュールを使って月の日数を取得することで、月末計算をシンプルに。
• add_monthsも見直し。

それほどカッコ悪くはなくなったんじゃないかと思う。修正の経緯

#!/usr/bin/env python
# -*- coding: utf-8 -*-
"""月末、月初のdatetime.dateオブジェクトを返す。
Oracleのadd_months互換の月加減。
"""
import datetime
from calendar import monthrange

def first_day(date):
	"""月初を返す"""
	return datetime.date(date.year, date.month, 1)

def is_last_day(date):
	"""月末日付ならTrueを返す"""
	return days_of_month(date.year, date.month) == date.day

def days_of_month(year,month):
	"""年,月の日数を返す"""
	return monthrange(year, month)[1]

def last_day(date):
	"""月末を返す"""
	return datetime.date(year=date.year, month=date.month, day=days_of_month(date.year, date.month))

def add_months(date,months):
	"""月を加減する。
	dateにはdatetime.dateクラスのオブジェクト
	monthsには整数で月数を指定する。
	月末をOracleのadd_months互換の方法で処理する。
	例えば、
	2007年2月28日（月末）に1ヶ月足すと3月31日（月末）。
	2008年2月29日（月末）に1ヶ月足すと2008年3月31日（月末）。
	2008年2月28日（月末ではない）に1ヶ月足すと2008年3月28日（同じ日）。
	"""
	if months==0:
		return date

	year, month = divmod(date.month + months, 12)
	year = year + date.year

	#ちょうど割り切れたら12月で、マイナス1年。
	if month == 0:
		month = 12
		year = year - 1

	#入力日付がその月の月末なら、加算後月の日数を。
	#そうじゃなければ入力日付の日。
	day = date.day
	if date.day > days_of_month(year, month):
		day = days_of_month(year, month)
	return datetime.date(year=year, month=month, day=day)

最新版はGist:227554をどうぞ。

ということで調べてみたら、

1. wikiconfig.pyのConfigクラス内でカスタムスクリプトを使うように設定する。
2. ログイン用のカスタムスクリプトを書いて、MoinMoin/auth/以下に置く。

の２つの手順でできることがわかった。MoinMoin-1.6で動くことを確認した。

以下、やってみて上手くいった手順を記録しておく。

この例では、

• カスタムスクリプト内にユーザ情報を保持している。この部分を必要な認証機構を呼び出すようにすれば使えるはず。
• メールアドレスと別名もMoinMoinのプロファイル外で管理していることにして、カスタムスクリプト内で設定管理している。

wikiconfig.pyの編集

class Config(DefaultConfig):
    """MoinMoinのカスタム認証スクリプトmyauth.loginを使うようにwikiconfig.py
　　　 で認証方法を指定。
    """
    from MoinMoin.auth import moin_session,myauth
    auth = [myauth.login, moin_session]
    #MoinMoin内のPreferenceを自動的に作成する
    user_autocreate = True

Gist:232443

カスタム認証スクリプト MoinMoin/auth/myauth.py

# -*- coding: utf-8 -*-
"""MoinMoin custom user authentication sample
"""
from MoinMoin import user
#User Database
_USER_MAP = {'user1,pass1' : ('user1@example.com',u'user1'),
    'user2,pass2' : ('user2@example.com','user2')}

def login(request, **kw):
	username = kw.get('name')
	password = kw.get('password')
	login = kw.get('login')
	user_obj = kw.get('user_obj')

	if not login:
		return user_obj, True

	u = None
	user_info = _USER_MAP.get("%s,%s" % (username,password),False)

	if user_info:
		u = user.User(request,
		name=username,
		auth_username=username,
		password=password,
		auth_method='myauth',
		auth_attribs=('name', 'auth_username', 'password', 'email', 'aliasname', ))
		u.email = user_info[0]
		u.aliasname = user_info[1]
		u.create_or_update(True)
		request.log("Login OK. user=%s, email=%s, aliasname=%s." % (username,user_info[0],user_info[1]))

	return u, True

Gist:227564

使い方は、こんな感じ。

C:\>create-shortcuts.vbs shortcut.conf

create-shortcuts.vbs

'#####################################################
' ショートカット作成スクリプト
' 設定ファイル複数受付版
'#####################################################
Const FOR_READING = 1
Const COL_FOLDER = 0
Const COL_SUB_FOLDER = 1
Const COL_TITLE = 2
Const COL_PATH = 3
Const COL_WORK = 4

Set objArgs = WScript.Arguments
'Wscript.Echo objArgs(0)
'Wscript.Echo objArgs.length

For arg_index = 0 to objArgs.length-1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(objArgs(arg_index), FOR_READING)

Do Until objTextFile.AtEndOfStream
  strNextLine = objTextFile.Readline
  if strNextLine <> "" then
    conf = Split(strNextLine , ",")
    if conf(COL_FOLDER) <> "" then
        Set Shell = CreateObject("WScript.Shell")
        CreatePath = Shell.SpecialFolders(conf(COL_FOLDER))
        if CreatePath = "" then CreatePath = conf(COL_FOLDER)
        if conf(COL_SUB_FOLDER) <> "" then
          CreatePath = CreatePath & "\" & conf(COL_SUB_FOLDER)
          if not objFSO.FolderExists(CreatePath) then
          	objFSO.CreateFolder(CreatePath)
          end if
        end if
        Set link = Shell.CreateShortcut(CreatePath & "\" & conf(COL_TITLE) &".lnk")
        link.Description = conf(COL_TITLE)
        link.HotKey = ""
        link.IconLocation = conf(COL_PATH)
        link.TargetPath = conf(COL_PATH)
        '通常のウインドウ
        link.WindowStyle = 1
        link.WorkingDirectory = conf(COL_WORK)
        args = ""
        For i = COL_WORK+1 to Ubound(conf)
          args = args & " " & conf(i)
        Next
        link.Arguments = args
        ret = link.Save

'デバッグ情報
'        Wscript.Echo "タイトル:" & conf(0)
'        Wscript.Echo "パス:" & conf(1)
'        Wscript.Echo "作業ディレクトリ:" & conf(2)
'        Wscript.Echo "引数:" & args
'        Wscript.Echo ret
    end if
  end if
Loop
Next

shortcut.conf

,********************************************
, カンマで始まる行はコメント行
,********************************************

,カンマで区切って、作成場所、タイトル,パス,作業ディレクトリ,引数1,引数2,引数3,...の順に書いておくと
,作成場所（デスクトップなど）にショートカットを作る

,作成場所に指定できるのは次のものだけ
, AllUsersDesktop
, AllUsersStartMenu
, AllUsersPrograms
, AllUsersStartup
, Desktop
, Favorites
, Fonts
, MyDocuments
, NetHood
, PrintHood
, Programs
, Recent
, SendTo
, StartMenu
, Startup
, Templates

,****************************************************************
, ここからが実際のデータ
,****************************************************************
Programs,,Excel,C:\Program Files\Microsoft Office\Office11\excel.exe,H:\,
Programs,,Word,C:\Program Files\Microsoft Office\Office11\winword.exe,H:\,
Programs,,PowerPoint,C:\Program Files\Microsoft Office\Office11\powerpnt.exe,H:\,
Programs,,Visio,C:\Program Files\Microsoft Office\Visio10\visio.exe,H:\,
Programs,,Access,C:\Program Files\Microsoft Office\Office11\msaccess.exe,H:\,

Desktop,,Excel,C:\Program Files\Microsoft Office\Office11\excel.exe,H:\,
Desktop,,Word,C:\Program Files\Microsoft Office\Office11\winword.exe,H:\,
Desktop,,PowerPoint,C:\Program Files\Microsoft Office\Office11\powerpnt.exe,H:\,
Desktop,,Visio,C:\Program Files\Microsoft Office\Visio10\visio.exe,H:\,
Desktop,,Access,C:\Program Files\Microsoft Office\Office11\msaccess.exe,H:\,

• スクリプトファイル Gist:232452 create-shortcuts.vbs
• 設定ファイル Gist:232454 shortcut.conf

ついでに、以前から試そうと思って手をつけていなかった、ActiveDirectoryのLDAP認証も。試しに、bindしてみるだけ。平文でパスワードが流れるのでこのままではちょっと使えない。

#!/usr/bin/env python
# -*- coding: utf-8-*-
# python-ldapを使ってActiveDirectoryで認証してみる
# http://python-ldap.sourceforge.net/

def ADAuth(username,password,host,port=389):
    """ActiveDirectoryのドメイコントローラにユーザ名とパスワードでbindしてみる。
    bindできれば認証OK。認証NGなら例外が起きる。
    """
    import ldap
    url = "ldap://%s:%d" % (host,port)
    l = ldap.initialize(url)
    l.simple_bind_s(username,password)
    l.unbind_s()

if __name__=='__main__':
    if len(sys.argv)<3:
        print "Usage: %s username password" % (sys.argv[0])
    else:
        try:
            userid = sys.argv[1]
            password = sys.argv[2]
            ADAuth(userid,password,"adserver.example.com")
            print "OK"
        except:
            print "NG"

Gist:227565