しばらく前にソースコードを公開すると言ったまま、公開していなかったPostedby（1.0）のソースコードを公開しました。
Postedbyは、HTMLタグを使用した表現力の高い記事を、Twitterのような文字数制限なしに、一般的なブログより手軽に投稿ができるブログ（マイクロブログ）ツールです。
携帯にも対応しておリ携帯からの投稿や投稿の修正・削除も可能です。また、家族や知人、もしくは知らないどこかの誰かなどと複数ユーザーによる運営も可能です。
Postedbyの特徴
・記事の本文にHTMLタグの使用ができるため、表現力のある記事の作成ができる。
・投稿した記事は公開して共有できるだけでなく、ユーザー設定で非公開にすることもできる。
・ユーザーは任意の検索条件を設定したリストを作成することができる。
・投稿されたている記事に対して、リプライする形で新しい記事を投稿することができる。
・ブックマークレットを使用してブラウザで表示中のページを記事として簡単に投稿できる。
・id:記事ID、user:ユーザーIDで検索された場合、ユーザー設定のウィジェット(広告の設定も可能)を表示。
・携帯に対応、携帯電話からも記事の投稿、編集、削除ができる。
・日本語と英語に対応。
・商用利用、カスタマイズが可能なオープンソースライセンス(GPLv2)。
Postedby 1.0 のダウンロード
現時点では、「
メモる」との違いは、記事のタイトルを付けることができることと、本文にHTMLタグが使用できることくらいですが、本文にHTMLタグが使用できるのでよりブログに近い使い方ができると思います。
Postedby.org
極めてシンプルなマイクロブログツール「
メモる」を1.1にバージョンアップしました。
今回のバージョンアップでは、テンプレートエンジン（HTML::Template）を使用してデザインと処理の分離、携帯電話からのログインして投稿する機能(新規投稿、編集、削除が可能)の実装などを行いました。
また、「携帯電話から閲覧できない」などの大きな不具合やその他の小さな不具合も修正されています。
「メモる」の特徴
・投稿したメモは公開して共有できるだけでなく、ユーザー設定で非公開にすることもできる。
・ユーザーは任意の検索条件を設定したリストを作成することができる。
・投稿されたているメモに対して、リプライする形で新しいメモを投稿することができる。
・ブックマークレットを使用してブラウザで表示中のページをメモとして簡単に投稿できる。
・id:メモID、user:ユーザーIDで検索された場合、ユーザー設定のウィジェット(広告の設定も可能)を表示。
・携帯に対応、携帯電話からもメモの投稿、編集、削除ができる。
ソースコードもオープンソースライセンス（GPLv2）で公開しているので、ご自由にご利用ください。
メモる 1.1 のダウンロード
Texttは、単純にテキストを記録しておくためのサービス。機能はシンプルで、1つのテキストに複数の文章をタイトルつきで追加していく形で記録していくだけとなっている。テキストは公開/非公開の設定ができる。
Textt
PerlのプログラムからDBI経由でMySQLに接続し、SELECT文でデータを取得する処理のサンプルプログラムです。
あらかじめphpMyAdminを使用してMySQLにテータベース「testdb」を作成し、以下のSQLを実行しテーブル「users」を作成、3件のレコードを登録しておきます。
CREATE TABLE `users` (
`userid` varchar(100) COLLATE utf8_bin NOT NULL,
`password` varchar(250) COLLATE utf8_bin NOT NULL,
`status` int(11) NOT NULL,
`auth` int(11) NOT NULL,
`username` varchar(250) COLLATE utf8_bin NOT NULL,
`address` varchar(250) COLLATE utf8_bin NOT NULL,
`mailaddr` varchar(100) COLLATE utf8_bin NOT NULL,
`hpurl` varchar(250) COLLATE utf8_bin NOT NULL,
`widgets` text COLLATE utf8_bin NOT NULL,
`createdate` datetime NOT NULL,
`lastupdate` datetime NOT NULL,
PRIMARY KEY (`userid`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
insert into `users` (`userid`,`password`,`status`,`auth`,
`username`,`address`,`mailaddr`,`hpurl`,`widgets`,
`createdate`,`lastupdate`)
values('admin','1234','1','0','webmaster','',
webmaster100@59log.com','http://59log.com/','',now(),now());
insert into `users` (`userid`,`password`,`status`,`auth`,
`username`,`address`,`mailaddr`,`hpurl`,`widgets`,
`createdate`,`lastupdate`)
values('test1','5678','1','1','user 1','',
'test1@59log.com','http://59log.com/','',now(),now());
insert into `users` (`userid`,`password`,`status`,`auth`,
`username`,`address`,`mailaddr`,`hpurl`,`widgets`,
`createdate`,`lastupdate`)
values('test2','abcd','1','1','user 2','',
'test2@59log.com','http://59log.com/','',now(),now());
以下のPerlプログラムでは、テーブル「users」からステータスが1のレコードを全て取得、一旦配列に格納してから標準出力に出力しています。
検索条件の設定にはプレースホルダを使用し、DB処理でエラーが発生した場合は、例外処理に飛んでエラーの内容が出力されるように、RaiseErrorに1を設定しています。
--- mysql_select.pl ---
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $data_source = "DBI:mysql:testdb"; # 接続先はtestdb
my $username = "test"; # データベースへのアクセス権限を持つユーザーを指定
my $password = "abcd"; # そのパスワード
my $status = 1;
my @recs = ();
eval {
my $dbh = DBI->connect($data_source, $username, $password,
{RaiseError => 1, PrintError => 0});
my $sql = "select * from users where status = ?";
my $sth = $dbh->prepare($sql);
$sth->execute($status);
while (my @rec = $sth->fetchrow_array) {
push @recs, [@rec];
}
$sth->finish;
$dbh->disconnect;
};
if ($@) {
print "Error : $@\n";
}
foreach my $rec (@recs) {
print join(",", @{$rec}), "\n";
}
HTML::Templateの<TMPL_VAR>タグは、プログラムでパラメータに値を設定すると、
タグの部分がパラメータで設定された文字列で置き換えられるという簡単なものです。
以下は、<TMPL_VAR>タグの使い方を示す単純なサンプルプログラムです。
--- テンプレートファイル（tmplvar.tmpl）
<html>
<head>
<title>HTML::Templateのサンプルプログラム VAR</title>
</head>
<body>
<h1>HTML::Templateのサンプルプログラム VAR</h1>
<p>
My Name is <TMPL_VAR NAME=NAME> <br />
My IP Address is <TMPL_VAR NAME=IPADDR> <br />
</p>
</body>
</html>
--- CGI（tmplvar.cgi）
#!/usr/bin/perl
use strict;
use warnings;
use HTML::Template;
my $template = HTML::Template->new(filename => 'tmplvar.tmpl');
$template->param(NAME => 'Yamato, Taro');
$template->param(IPADDR => $ENV{'REMOTE_ADDR'});
print "Content-Type: text/html; charset=utf-8\n\n";
print $template->output;
TypePad デベロッパーリソース(日本語版)は、個人向け TypePad (Pro, Micro) や TypePad Motion の開発者向けサイト。
TypePad Motion のダウンロードとインストール、サイト構築、設定、カスタマイズ方法などの情報。個人向けTypePad (Pro、 Micro) の 各種データにアクセスできる TypePad API に関する情報 (TypePad JSON API, TypePad Twitter API等)が掲載されている。
TypePad デベロッパーリソース(日本語版)
マルチユーザー対応のブログソフトウェア「59Tracker 4.1」をリリースしました。
59Tracker 4.1ではデータファイルのレイアウト変更はないものの、プログラム関連のファイル構成およびプログラムの内容は大幅に変更されています。
主な変更点は以下の通りです。
- ユーザー設定画面及び管理画面の改善
- 検索結果ページ、トピック詳細ページのテンプレートファイルの一本化
- 検索結果ページ、トピック詳細ページのユーザーインタフェースの改善
- 携帯電話対応（閲覧、コメント投稿）
- 英語対応
変更点の詳細や59Tracker 4からの移行方法については、59Tracker 4.1 リリースノートをご参照ください。
ブログソフトウェア 59Tracker (Perl/CGI) のダウンロード
株式会社ベットが各種機能無制限、ディスク容量100GBの高パフォーマンスレンタルサーバー「X2（エックスツー）」を開始した。サービスプランは、コストパフォーマンスを追及したスタンダードプランとディスク容量200GBで電話サポートが利用可能なアドバンスドプランの2種類。
X2サービス開始に伴い、オープニングキャンペーンが実施されておリ、2010年6月30日までのキャンペーン期間中は初期設定費用6,300円が無料、またサーバー契約者は独自ドメインを格安価格で取得できる。
（エックスツー）の特長
- 大容量100GB、月額1890円からの高いコストパフォーマンス
- マルチドメイン、サブドメイン、メールアドレス、データベースなど各種無制限
- MTOSやXOOPSをワンクリックでインストールできる自動インストール機能
- X2独自のXキャッシュ設定、PHP高速化設定機能によるCGI・PHPの高速利用
- 高性能スパムフィルタ、アンチウィルス機能を備えたセキュリティ万全のメール機能
- 共用SSL対応、オプションにより専用SSLもご利用可能
- サーバー利用者限定の格安ドメインサービス
１００ＧＢ、マルチドメインやMySQLが無制限。CGI・PHP高速化機能搭載【Ｘ２】
シンプルなマイクロブログ「メモる」のソースコードをオープンソースライセンス（GPLv2）で公開しました。
インストール方法や設定方法については、書庫ファイル(zip形式)を解凍し、doc/memoru1_0_spec.txtを参照してください。
マイクロブログ メモる
memoru 1.0のダウンロード
掲示板CGIは、ホームページに簡易掲示板を設置するためのシンプルな無料のPerlスクリプト（CGI）です。新規スレッドやコメントの投稿は誰でも可能ですが、スレッドやコメントの削除は管理者のみ可能（管理者パスワードが必要）になっています。高機能掲示板ソフト「59bbs」と比較すると機能は少ないですが、その分カスタマイズは容易になっています。
ライセンスはオープンソースライセンス（GPLv2）ですので無料で自由にカスタマイズして利用できます。
ホームページへの掲示板CGIの追加は、CGIが利用できるサーバーであれば、次のような手順で簡単にできます。
1. bbscgi.cgi の先頭の以下の部分をサーバーなどの利用環境にあわせて変更します。
my $site_title = '掲示板CGI'; # Site title
my $webmaster_email = 'support@59bbs.org'; # Webmaster's E-mail address
my $sendmail_path = '/usr/sbin/sendmail'; # sendmail path
my $admin_password = 'YourPass'; # Admin password
my $data_dir = 'data'; # Data directory
my $line_number = 10; # Number of list lines
my $anonymous = '名無しさん'; # Anonymous
2. 以下のファイルをサーバーにFTPソフトなどを使用して転送（アスキーモード）します。（tmpl、dataはディレクトリごと転送してください。）
bbscgi.cgi
bbscgi.css
tmpl/list.tmpl
tmpl/thread.tmpl
tmpl/new.tmpl
tmpl/delete.tmpl
tmpl/remove.tmpl
data/threadid.data
data/log
3. bbscgi.cgiに実行可能なパーミッション（サーバーによって異なります）を設定します。
掲示板CGIは、比較的シンプルなPerlスクリプトですので以上のように設置は簡単ですが、
HTMLやPerlスクリプトの変更が難しいという方向けに有料（税込4,200円）にてデザインのカスタマイズ（スクリプト
の変更をともなわないHTMLファイルやスタイルシートの変更）、設置サポートも行います。有料サポートをご希望され
る場合は、support@59bbs.org 宛にメールにてご連絡ください。
掲示板CGIのデモページ
掲示板CGIのダウンロード