Changeset 12996

Timestamp:

06/01/08 21:16:13 (5 years ago)

Author:

hio

Message:

System::WebClient?, 発言時は最新のログに飛ぶように.

Location:

lang/perl/tiarra/trunk

Files:

• mini.conf (modified) (2 diffs)
• module/Auto/FetchTitle/Plugin/ExtractHeading.pm (modified) (1 diff)
• module/System/WebClient.pm (modified) (6 diffs)

lang/perl/tiarra/trunk/mini.conf

@@ -68 +68 @@
   # 複数のネットワークに接続したい場合は多重定義して下さい。
   name: ircnet
-  name: mafu
   name: irc2ch
 
@@ -100 +99 @@
   # このサーバーの要求するパスワード。省略可能。
   #password: hoge
-}
-
-mafu {
-  host: irc.mikage.to
-  port: 6667
 }
 

lang/perl/tiarra/trunk/module/Auto/FetchTitle/Plugin/ExtractHeading.pm

@@ -221 +221 @@
       status     => 503,
       url        => 'http://www.nicovideo.jp/*',
+      recv_limit => 10*1024,
       extract    => sub{
         if( m{<div class="mb16p4 TXT12">\s*<p>現在ニコニコ動画は(メンテナンス中)です。</p>\s*<p>(.*?)<br />}s )

lang/perl/tiarra/trunk/module/System/WebClient.pm

@@ -24 +24 @@
 use Scalar::Util qw(weaken);
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 our $DEBUG = 0;
@@ -35 +35 @@
 # 認証毎で既読情報を保持(とりあえず共通で保持まで実装).
 # sharedモードの時はセッション内でのみ保持.
+
+=begin COMMENT
+
+System::WebClient - ブラウザ上でログを見たり発言したりできるようにする Tiarra モジュール.
+
+ /
+   #==> [POST/_post_list] ENTER.
+   #==> [GET/_gen_list]   /log/*/* を一覧.
+ /log/<network>/<channel>/
+   #==> [POST/_post_log] 発言.
+   #==> [GET/_gen_log]   ログの閲覧.
+   #==> ?r=XXX ==> ここまでは見たからこれの次から表示.
+   #==> ?x=XXX ==> 最新を表示するけれど,ここまではみたから表示しない.
+ /log/<network>/<channel>/info
+   #==> [POST/_post_chan_info] TOPIC/JOIN/PART/DELETE.
+   #==> [GET/_gen_chan_info]   チャンネル情報表示.
+ /style/style.css
+   #==> 空のCSSファイル.
+ <それ以外>
+   #==> 404.
+
+(*) 存在するけれど閲覧許可のないページであっても, 
+    403 (Forbidden) ではなく 404 (Not Found) を返す.
+(*) ENTER: チャンネル情報を作成. この情報はそこにチャンネルがある(あった)ということを
+           保持していて, PART後も残るため過去ログが閲覧できる.
+(*) DELETE: 保持しているチャンネル情報を削除.
+            そのチャンネルの情報がもういらないのなら, 存在していたことを削除できる.
+
+=end COMMENT
+
+=cut
 
 1;
@@ -1176 +1207 @@
         my $channame_label = $this->_escapeHTML($channame);
         $channame_label =~ s/^![0-9A-Z]{5}/!/;
-        my $ref = $pack->{anchor} ? "?r=$pack->{anchor}" : '';
+        my $ref = $pack->{anchor} ? "?x=$pack->{anchor}" : '';
         if( $is_pc )
         {
@@ -1373 +1404 @@
   $rindex ||= 0;
   # $rindex も含めてindex系は [0..$#$recent] の範囲の値.
+  if( my $xtoken = $cgi->{x} )
+  {
+    my $re = qr/\Q$xtoken\E\z/;
+    foreach my $i ($rindex..$#$recent )
+    {
+      my $info = $recent->[$i];
+      my $anchor = "L.$info->{ymd}.$info->{lineno}";
+      if( $anchor =~ $re )
+      {
+        if( $i < $#$recent )
+        {
+          $rindex = $i + 1;
+        }else
+        {
+          $rindex = $#$recent;
+        }
+        last;
+      }
+    }
+  }
 
   my $last;
@@ -1494 +1545 @@
   <input type="submit" value="発言/更新" /><br />
 <&NAME_INPUT_RAW>
-<input type="hidden" name="r" size="10" value="<&RTOKEN>" />
+<input type="hidden" name="x" size="10" value="<&RTOKEN>" />
 </p>
 </form>
@@ -1502 +1553 @@
 <p>
 [
-<a href="./?r=<&NEXT_RTOKEN>" accesskey="*">更新</a>[*] |
+<a href="./?x=<&NEXT_RTOKEN>" accesskey="*">更新</a>[*] |
 <a href="<&TOP_PATH>" accesskey="0">List</a>[0] |
 <a href="info" accesskey="#">info</a>[#]