全国ライブカメラの旅 第495回
2010年3月8日 – 10:30 | コメントは受け付けていません。

台北、良いところですね。
カメラレスポンスも良いです。
鮮明ズームのフルコントロールOK
機種 SONY SNC-RZ30N
http://59.120.82.105/home/homeJ.html

全文表示 Read the full story »
openSUSE

openSUSE11.2にバージョンアップ(2009.12.11)。DELL Power Edge 860 SAS 5/i5 RAID1 で稼働中。     

WordPress

プラグイン、テーマ、日本語化などWordPressって本当によく遊べます。設定などの覚書。

リンクサイト

北海道、東京、山口、宮崎他のライブカメラ関係サイトとお世話になっているサイトです。

全国ライブカメラの旅

検索でライブカメラを見つけて紹介しております。国内、海外のPanasonicを中心に紹介。

覚 書

いろいろ役に立つような情報を忘れないように覚書しております。いたって自分用です……

Home » Archive by Tags

Articles tagged with: ActivePerl

MovableType4.01をFastCGIで高速化?
2007年10月26日 – 20:12 | コメントは受け付けていません。

まったく納得できていませんが動いているようです。自分用のメモとして。

環境

openSUSE10.3(10.2からのバージョンアップ)

apache2.2.4

apache2-mod_fcgid2.1-19

perl5.8.8

参考先

Ogawa::Memoranda

De Rerum Natura

まずはMT-Dispatch(プラグイン)をDL Download version 1.4.
/mt/plugins/にアップ
Perlモジュールの追加

FCGI

FCGI::ProcManager

Sub::OverrideFile

File::Slurp

# perl -MCPAN -e shell
cpan shell — CPAN exploration and modules installation (v1.7602)

ReadLine support enabled
cpan> install FCGI
省略
        
/usr/bin/make install UNINST=1 — OK
cpan> install FCGI::ProcManager
省略
  /usr/bin/make install UNINST=1 — OK
cpan> install Sub::OverrideFile
省略
/usr/bin/make install UNINST=1 — OK
 cpan> install File::Slurp
省略
/usr/bin/make install UNINST=1 — OK
cpan> quit

/mt/以下のファイル拡張子をcgiからfcgiに変更

mt.fcgi

mt-comments.fcgi

mt-tb.fcgi

mt-search.fcgi (エラーが出るようなら#コメントアウト)

mt-view.fcgi

/mt/mt-config.cgiに以下を追記(CGIPathの下に挿入)

AdminScript mt.fcgi

CommentScript mt-comments.fcgi

TrackbackScript [...]

CPANでCrypt::DSAインストール
2007年10月23日 – 21:47 | コメントは受け付けていません。

# perl -MCPAN -e shell
/usr/lib/perl5/5.8.8/CPAN/Config.pm initialized.
CPAN is the world-wide archive of perl resources. It consists of about
100 sites that all replicate the same contents all around the globe.
Many countries have at least one CPAN site already. The resources
found on CPAN are easily accessible with the CPAN.pm module. If you
want to use CPAN.pm, you have to [...]

どこから来たのcgi 最終分
2007年6月18日 – 15:53 | コメントは受け付けていません。

試行錯誤を重ねましたが最終分です。
GoogleMapsファイル名
   都道府県は[データ表記].html
   国別は[国コード].html
   国別.gif /cgi-bin/surfpoint/images/
public_html
        +—-  GoogleMaps  /   JP.html ~~~~
        +—-  cgi-bin / surfpoint / welcome.cgi(705)
                                                weicomeworld.cgi(705)
                                                welcome.tmpl(604)
                                                weicomeworld.tmpl(604)
                                                welcome.css(604) 
                                                images /  JP.gif ~~~      
変更箇所 必ず変更して下さい。
$user_id = "surfpoint ID";
$passwd = "surfpoint PASS";
DBI->connect('DBI:mysql:openSurfpoint:localhost', "ユーザー", "パスワード");
/cgi-bin/surfpoint/welcome.cgi 

#!/usr/bin/perl -w
use DBI;
use HTML::Template;
use Frontier::Client;
#use CAR_TIME;
$user_id  = "ユーザーID";
$passwd   = "パスワード";
$ipadr    = $ENV{'REMOTE_ADDR'};
# 都道府県コードの取得
$server_url = "http://open.surfpoint.jp/webapi/enterprise.api";
$server = Frontier::Client->new( url=>$server_url );
$result = $server->call( 'openSurfpoint.GetPref', $user_id, $passwd, $ipadr );
$pref = $result;
if( $pref [...]

どこの国から来たのcgiにポップアップ
2007年6月15日 – 15:43 | コメントは受け付けていません。

試行錯誤を繰り返しましたが取りあえずポップアップ表示が可能に・・・・
welcomeworld.cgiに88行目以降に(ACCESS10 => $h_count{10},の下から)
C_ID_1 => $h [...]

どこの国から来たのcgi
2007年6月11日 – 13:37 | コメントは受け付けていません。

/cgi-bin/surfpoint/welcomeworld.cgi
国旗gifに変更

sub GetCountryName {
%country_name = (
 -1 =>"不明& [...]

どこから来たのCGI
2007年6月10日 – 16:15 | コメントは受け付けていません。

以前にNeoWORXというのがありましたが、有料なのであきらめました・・・
そんなんが、ないかなと探しておりましたがありました(^o^)
が・・・・サンプルプログラムは簡単なもので後は自分でやりなさいって事です。
スタッフの方にお願いしてサンプルをいただきましたので見て下さい。
環境に合わせて改造して下さい。
また本スクリプト著作権はSurfPointさん所有です。(公開して良いんでしょうか??聞いておこう!)
1、まずはOpenSurfPointでご利用登録して下さい(無料です)
2、メールでユーザID、認証IDが送られてきます。(自動返信ではなさそうですので1時間後位です)
3、取得できるデータは都道府県コード、回線コード、国内海外判定コード、国コードです。
4、cgiスクリプトでデータを取得し、MySQLに書き込み、呼び出し、tmplで吐き出し表示です。
5、まずは環境作りです。
6、Frontier::Client、HTML::TemplateモジュールをPerlにインストール

linux:/home/sunq # perl -MCPAN -e shell
cpan shell — CPAN exploration and modules installation (v1.7602)
ReadLine support enabled
cpan> install Frontier::Client
CPAN: Storable loaded ok
Going to read /root/.cpan/Metadata
  Database was generated on Sat, 10 Feb 2007 00:09:54 GMT
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
  ftp://ftp.nara.wide.ad.jp/pub/CPAN/authors/01mailrc.txt.gz
Going to read /root/.cpan/sources/authors/01mailrc.txt.gz
CPAN: Compress::Zlib loaded ok
Fetching with LWP:
  ftp://ftp.nara.wide.ad.jp/pub/CPAN/modules/02packages.details.txt.gz
Going to read /root/.cpan/sources/modules/02packages.details.txt.gz
  Database was generated [...]