Articles tagged with: ActivePerl
まったく納得できていませんが動いているようです。自分用のメモとして。
環境
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 [...]
# 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 [...]
試行錯誤を重ねましたが最終分です。
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 [...]
試行錯誤を繰り返しましたが取りあえずポップアップ表示が可能に・・・・
welcomeworld.cgiに88行目以降に(ACCESS10 => $h_count{10},の下から)
C_ID_1 => $h [...]
/cgi-bin/surfpoint/welcomeworld.cgi
国旗gifに変更
sub GetCountryName {
%country_name = (
-1 =>"不明& [...]
以前に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 [...]
