①　コミュニティへの自動参加用関数の作成
　ユーザーIDを引数にし、未参加のコミュニティを検出し一括参加登録する関数を作成し、
　XOOPS_TRUST_PATH/modules/xsns/act/tmp/add_toAllCommunity.php　として保存する。

XOOPS_TRUST_PATH/modules/xsns/act/tmp/add_toAllCommunity.php　
<?php
//全てのコミュニティに参加する

require_once XOOPS_ROOT_PATH."/class/database/database.php";

function addToAllCommunity($uid=0){
 if($uid+0==0) return false;
 
 $db=&Database::getInstance();
 $table="setagaya100_xsns_c_commu";
 $table2="setagaya100_xsns_c_commu_member";
 
 //全コミュニティidリスト
 $prs=$db->query("SELECT c_commu_id FROM $table");
 if(!$prs) die( "xsns custom error: auto add to community : ".__LINE__ ) ;
 $num=$db->getRowsNum( $prs );
 if( $num <= 0 ) die( "xsns custom error: auto add to community : ".__LINE__ ) ;
 $c_commu_ids=array();
 for($i=0;$i<$num;$i++){
  $row=mysql_fetch_row($prs);
  $c_commu_ids[]=$row[0];
 }

 //参加済みコミュニティidリスト
 $prs=$db->query("SELECT c_commu_id FROM $table2 WHERE uid=$uid");
 if(!$prs) die( "xsns custom error: auto add to community : ".__LINE__ ) ;
 $num=$db->getRowsNum( $prs );
 $participate_commus=array();
 for($i=0;$i<$num;$i++){
  $row=mysql_fetch_row($prs);
  $participate_commus[]=$row[0];
 }
 
 //未参加コミュニティidリスト
 $un_participate_commus=array_diff($c_commu_ids,$participate_commus);
 if( !count($un_participate_commus)) return true;
 
 //参加処理
 $count=0;
 foreach( $un_participate_commus as $value){
  $prs=$db->query("INSERT INTO $table2 (uid,c_commu_id,r_datetime) VALUES ($uid,$value,NOW() )");
  //print("sql: INSERT INTO $table2 (uid,c_commu_id,r_datetime) VALUES ($uid,$value,NOW() )");
  if(!$prs) die( "xsns custom error: auto add to community : ".__LINE__ .":".$db->logger->dumpQueries() );
  $count++;
 }
 
 return $count;

}

?>

②　サイト登録時に①の関数を実行するように修正
　ユーザーの登録処理は User_UserRegister_confirmActionクラスのexecute()で実行される。XOOPS_ROOT_PATH/modules/user/actions/UserRegister_confirmAction.class.php
の60行目に①で作成した関数を呼び出す処理を追加する。

XOOPS_ROOT_PATH/modules/user/actions/UserRegister_confirmAction.class.php
execure()　(30行目以下）
 function execute(&$controller, &$xoopsUser)
 {
  $memberHandler =& xoops_gethandler('member');
  $this->mNewUser =& $memberHandler->createUser();
  $this->mRegistForm->update($this->mNewUser);
  $this->mNewUser->set('uorder', $controller->mRoot->mContext->getXoopsConfig('com_order'), true);
  $this->mNewUser->set('umode', $controller->mRoot->mContext->getXoopsConfig('com_mode'), true);
  if ($this->mConfig['activation_type'] == 1) {
   $this->mNewUser->set('level', 1, true);
  }
  
  if (!$memberHandler->insertUser($this->mNewUser)) {
   $this->mRedirectMessage = _MD_USER_LANG_REGISTERNG;
   return USER_FRAME_VIEW_ERROR;
  }

        if (!$memberHandler->addUserToGroup(XOOPS_GROUP_USERS, $this->mNewUser->get('uid'))) {
   $this->mRedirectMessage = _MD_USER_LANG_REGISTERNG;
   return USER_FRAME_VIEW_ERROR;
  }
  
  //ここを追加
  $file=XOOPS_TRUST_PATH."/modules/xsns/act/tmp/add_toAllCommunity.php";
  if( file_exists($file) ){
   require_once($file);
   if( !addToAllCommunity($this->mNewUser->get('uid')) ){
    die("Failed to add to all communities: XSNS custom error:");
   }
  }

  $this->_clearRegistForm($controller);

  $this->_processMail($controller);
  $this->_eventNotifyMail($controller);
  
  XCube_DelegateUtils::call('Legacy.Event.RegistUser.Success', new XCube_Ref($this->mNewUser));
  
  return USER_FRAME_VIEW_SUCCESS;
 }

[修正箇所]
テンプレート側：「コミュニティ新規作成」出しわけの箇所
php側：　入力フォームオープン時→入力内容確認時→新規作成実行時の各処理の箇所

①テンプレート側
　デフォルトではgestユーザー以外、（管理者を含むxoopsユーザー）の場合はXSNSトップページで
「コミュニティ新規作成」のリンクが表示されるようになっている。
　Xoopsのユーザーかどうかを判別するメソッドはisGuest()としてXsnsCommonActionクラスに定義されている。ここに、管理者かどうかを判別するメソッドisAdmin()を追加する。

　isGuest()はXsns_Default_Action->dispatch()(XOOPS_TRUST_PATH/modules/xsns/act/index/defaultAction.php line105)
でコールされ、結果がsmarty変数「is_guest」にセットされる(Xsns_Default_ActionクラスはXsnsCommonActionクラスを継承している。）。同様に先ほどのisAdmin()の結果を「is_admin」にセットするようにする。
 

　XSNSトップページのテンプレート（xsns_index.html）に手を加え「コミュニティ新規作成」のリンクが管理者が閲覧したときのみ表示されるようにする。
　（管理ページ > テンプレートの管理 > XSNS > xsns_index.html）

:after
<{if $is_admin}> <!--←ここを修正　-->
<tr class="even">
<td colspan="2" style="text-align:right;">
<a href="<{$xoops_url}>/modules/<{$mydirname}>/?act=add"><{$smarty.const._MD_XSNS_INDEX_ADD}></a>&nbsp;<{$smarty.const._MD_XSNS_INDEX_ADD_DESC}>
</td>
</tr>
<{/if}>
 

②php側
　テンプレート側でリンクを消しただけだとURLを指定してアクセスされた際にグループ作成ができてしまうので、php側でも管理者だけがグループ作成できるように手を加える。

②-1入力フォームオープン時
 

②-2入力内容確認時
 

②-3新規作成実行時
 

　以上で、管理者でアクセスした場合のみ「コミュニティ新規作成」のリンクが表示され、
通常ユーザーではコミュニティ作成ができないようになる。
 

・モジュール調査
モジュールを調べたところ、TinyContent,TinyD,pico,d3noneなど
静的コンテンツの管理モジュールはあるようだが動的コンテンツを
扱うモジュールは見つけることができなかった。
（そもそも「動的コンテンツを扱う」という考え方がいらないのかも
しれないが。）

pico系はTinyContent → TinyD → pico と進化している模様。
d3noneはそれとは別系で何もない空白のページを組み込むモジュールらしい。
何もない分自由度高いようなのでd3noneを使うことにした。

・方法
　d3noneで参照されるphpファイルに追加コードを書き込むことで動的ページを
表示させられる。
　XOOPS_TRUST_PATH/modules/d3none/main/index.php を下記のように修正
 

include('../../mainfile.php');
include(XOOPS_ROOT_PATH.'/header.php');

print "test test test";  //←ここを追加

// none
include(XOOPS_ROOT_PATH.'/footer.php');
exit();

・index.php以外へのアクセス
　index.php以外のファイルに表示するには、ブラウザで　http://'yourdomain'/html/modules/d3none/?page=hoge にアクセスすると、XOOPS_ROOT_PATH/modules/d3none/main/hoge.phpにアクセスする。
 

・参考ドキュメント
 scRUBYt!
 http://github.com/scrubber/scrubyt_examples/tree/master
  →scRUBYt!のサンプル。
 REXML
 http://www.germane-software.com/software/rexml/docs/tutorial.html
  →はじめの方にある「Accessing Elements」は参考になった。
 http://pub.cozmixng.org/~kou/rexml-doc-ja/
  →それっぽいClass,Methodを感で使ってみた。
 

・データの扱い
　scRUBYt!のto_hash関数でHASHオブジェクトにして扱おうと思ったが
うまくいかなかった。入力データの構造に縛りがあるのだろうか。
to_xmlで出力し、REXMLオブジェクトに入れて扱う。

 

#!/usr/bin/env ruby
ENV['INLINEDIR']='/tmp/.ruby_inline'  #RubyInlineのバグ(?)対策
require 'rexml/document'
require 'rubygems'
require 'scrubyt'
require 'kconv'

#Cnet
data1 = Scrubyt::Extractor.define  do

 fetch 'http://japan.cnet.com/'

 record "//div[@class='section08 articlelist08']" do
  link_title "//li/a", :write_text=>true do
   link_url
  end
 end
end
xml1 = REXML::Document.new data1.to_xml

#ITPro
data2 = Scrubyt::Extractor.define  do

 fetch 'http://itpro.nikkeibp.co.jp/news/index.html'

 record "//div[@class='newsPickup']" do
  link_title "//div/span/a", :write_text=>true do
   link_url
  end
 end
end
xml2 = REXML::Document.new data2.to_xml

#CodeZine
data3 = Scrubyt::Extractor.define  do

 fetch 'http://codezine.jp/'

 record "//div[@id='news_list']" do
  link_title "//li/a", :write_text=>true do
   link_url
  end
 end
end
xml3 = REXML::Document.new data3.to_xml

title="News-Search | 複数のニュースサイトから最新ニュースをスクレイピング"

#以下、表示部
print <<"EOS"
Content-type: text/html; charset=shift_jis\n\n
<html>
<head>
<title>#{title}</title>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<style type="text/css">
 td {border:1px black solid;vertical-align:top;}
 .yellow {background-color:yellow;}
 .blue {background-color:blue;}
 .green {background-color:green;}
</style>
</head>
<body>
<h1>#{title}</h1>
<table style="border:1px black solid;">
<tr>
 <td class="yellow">CNET</td>
 <td class="blue">ITPro</td>
 <td class="green">CodeZine</td>
</tr>
<tr>
<td>
EOS
xml1.elements.each("//link_title"){
 |element|
 puts "<a target='_blank' href=#{element.get_text('link_url')}>#{element.text}</a><br>\n"
}

print <<"EOS"
</td>
<td>
EOS
xml2.elements.each("//link_title"){
 |element|
 puts "<a target='_blank' href='http://itpro.nikkeibp.co.jp#{element.get_text('link_url')}'>#{element.text.tosjis}</a><br>\n"
}

print <<"EOS"
</td>
<td>
EOS
xml3.elements.each("//link_title"){
 |element|
 puts "<a target='_blank' href='http://codezine.jp/#{element.get_text('link_url')}'>#{element.text.tosjis}</a><br>\n"
}

print <<"EOS"
</td>
</tr>
</table>
</body>
</html>
EOS

（以下略）
---------------------------------------------------------------------------------------------

「# chkconfig: - 85 15」 が　[起動レベル　起動順番　停止順番]になっている模様。
起動レベルが「-」なので起動しない。ランレベル3,5で起動するように
# chkconfig: 35 85 15　に変更
 

[root@VMware1 ~]# chkconfig --add httpd
[root@VMware1 ~]# chkconfig --list httpd
httpd           0:off   1:off   2:off   3:off   4:off   5:off   6:off

　→設定が反映されない。さっき修正した箇所が参照されているかどうかを確認するために、
# chkconfig: 35 85 16　に変更してもう一度。
 

[root@VMware1 ~]# chkconfig --add httpd
[root@VMware1 ~]# chkconfig --list httpd
httpd           0:off   1:off   2:off   3:off   4:off   5:off   6:off
[root@VMware1 ~]# ls -l /etc/rc3.d/*httpd
lrwxrwxrwx 1 root root 15 2009-03-29 13:23 /etc/rc3.d/K16httpd -> ../init.d/httpd

　→やはり起動設定はできていないが、停止のためのシンボリックリンクは16になっているので
修正した箇所が参照はされている模様。いろいろ試したがchkconfig --addでは起動設定できなかった。
 

・chkconfigコマンドでレベルを指定し直接設定
[root@VMware1 ~]# chkconfig --level 35 httpd on
[root@VMware1 ~]# chkconfig --list httpd
httpd           0:off   1:off   2:off   3:on    4:off   5:on    6:off
　→設定できている。
 

・システムをシャットダウンから起動。
[root@VMware1 ~]# service httpd status
httpd (pid  2164) を実行中...
→Apacheも起動してる。OK。rebootでも確認できた。
 

起動スクリプトの記述で起動設定できない理由は不明。。
VMだから？

[環境]
　VMware Server 2.0.0
　Fedora 10
　Apache 2.2.10
　scRUBYt!-0.3.4
　RubyInline-3.6.3

・とりあえずブラウザからアクセスしてみるが、500エラーになる。
Apacheのerror_logを見てみるとエラーが出力されている。
[Sat Mar 28 13:08:08 2009] [error] [client 192.168.1.2] Define INLINEDIR or HOME in your environment and try again
[Sat Mar 28 13:08:08 2009] [error] [client 192.168.1.2]
[Sat Mar 28 13:08:08 2009] [error] [client 192.168.1.2] Premature end of script headers: ebay.rb

　調べてみると、「Define INLINEDIR or HOME in your environment and try again」はRubyInline-3.6.3のバグの模様。
3.6.3より上のバージョンに代えようとしたが、scRUBYt!-0.3.4はRubyInline-3.6.3が必須。scRUBYt!の0.4.1以上はfirewatirをrequireするのでパスしたい。現状の構成でエラーを解決することにする。
 

　「Define INLINEDIR or HOME in your environment and try again」はRubyInlineが環境変数$HOME,$INLINEDIRのいずれかを参照しようとして、どちらも参照できない場合に起こる模様。（コマンドプロンプトで直接たたく際は$HOMEがあるが、Webサーバ経由で実行だとapacheユーザーになるため。）
 

・ebay.rbに、
　ENV['INLINEDIR']=/tmp/.ruby_inline （※１）
　を追記し、環境変数INLINEDIRが参照できるように修正しコマンドラインから実行。
　→下記エラーが発生

[root@VMware1 goy]# /var/www/cgi-test/ebay.rb
/tmp/.ruby_inline is insecure (40777). It may not be group or world writable. Exiting.

・INLINEDIRに割り当てているフォルダのパーミッションを変更。
　chmod -R 0755 /tmp/.ruby_inline
　コマンドラインから実行→OK
　ブラウザから実行→500エラー　error_logに下記が出力される。
 

[Sat Mar 28 16:34:30 2009] [error] [client 192.168.1.2] /usr/lib/ruby/gems/1.8/gems/scrubyt-0.3.4/lib/scrubyt/core/scraping/filters/text_filter.rb:25: warning: don't put space before argument parentheses
[Sat Mar 28 16:34:41 2009] [error] [client 192.168.1.2] malformed header from script. Bad header=<root>: ebay.rb

・http応答ヘッダーでContent-Typeを指定するよう追記（※２）
　ブラウザから実行→OK！

　







最終的にソースは下記のように。
--------------------------------------------------------
[root@VMware1 cgi-test]# vi ebay.rb

#!/usr/bin/ruby -K

ENV['INLINEDIR']='/tmp/.ruby_inline'  #　←※1
require 'rubygems'
require 'scrubyt'

ebay_data = Scrubyt::Extractor.define  do

        fetch 'http://www.ebay.com/'
        fill_textfield 'satitle', 'ipod'
        submit

        record "//table[@class='nol']" do
          name "//td[@class='details']/div/a"
    end
end

print "Content-type: text/html\n\n"  #　←※2
puts ebay_data.to_xml

---------------------------------------------------------
~