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 [...]
# 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 [...]
試行錯誤を重ねましたが最終分です。 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 [...]
試行錯誤を繰り返しましたが取りあえずポップアップ表示が可能に・・・・
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 [...]
