package comment;

use strict;
use record;
use project;
use attachment;

@comment::ISA=qw(record);
sub new{
    my $className=shift;
    my $primaryKey=shift;  #新しいレコードの場合空
    my $t=&record::init($className,$primaryKey);
    if ($t->isNew) {$t->{date}="now";}
    $t;
}

use table;
sub edit {
    my $t=shift;
    my $tbl=new table;
    $tbl->addRow
	->addCol("内容")
	->addCol($t->multiText("content",(rows=>10,cols=>60)));
    if(1) {
     $tbl->addRow
        ->addCol("添付ファイル")
        ->addCol("<input type=file name=\"attach\">");
    }
    if ($t->{content}) {
	$tbl->addRow->addCol->addCol
	(qq(
         <font size=-1>
           コメントを削除するには、上の欄を一度消して、<BR>
          <strong>DELETE</strong> と入力してください（空白、改行なし）
         </font> 
	    ));
    }
    &tmpl::default
	("コメント","Comment ", 
	 &html::form
	 ($tbl->out . &html::button ,
	  "commentDone",
	  {mainkey=>$t->{mainkey},
	   parent=>$t->{parent},
	   project=>$t->{project}},1
	  ));
    
}

sub columnProp {
    return 
	(
	  "project"=>"n", 
	  "parent"=>"n" 
	  );
}


sub view {
    my $t=shift;
    use user;
    my $prj=new project($t->{project});
    my $parent=new table;

    $parent->addRow;
    $parent->addCol
	(
	qq(
	   <table>
	   <tr><td>親コメント:<BR>
	   @{[new comment($t->{parent})->link]}
	   </td></tr>
	   </table>
	   )
	 ) if ($t->{parent});
    $parent->addCol($prj->link2TopWithIcon);
    my $tbl=new table;
    if (&session::userName) {
	$tbl->addRow->addCol
	    (
	     &html::link
	     ("新しい返信..","newComment",
			 {project=>$t->{project},parent=>$t->{mainkey}} )
	     );
    }

    $tbl->addRow->addCol($t->replies(0));
    my $edit;
    if (&session::userName eq  $t->{poster}) {
	$edit=&html::form(&html::button("編集/削除"),
			  "editComment",{mainkey=>$t->{mainkey}});
    }
    my $att="";
    my $at=$t->getAttachment;
    if ($at) {$att="<BR>". $at->link;}
    &tmpl::default
	("コメント",
	 "Comment", 
	 &html::titledBox("プロジェクト", $parent->out)  ."<P>".
	 &html::titledBox
	 ("内容",
	  qq(
	     Commented by: @{[ &user::link($t->{poster})]} at $t->{date}<P>
	     @{[&html::preBreak(&html::escape($t->{content}))]}
	     $att <BR>
	     $edit
	     )
	  )."<P>".
	 &html::titledBox("返信", $tbl->out ),
          160
	 );
    
}

sub getAttachment {
    my $t=shift;
    my $a=&sql::select1("attachment", "comment", $t->primaryKey);
    if ($a) {
	return bless $a,"attachment";
    } 
    return 0;
}
sub attachFile {
    my $t=shift;
    my $fileName=shift;
    my $content=shift;
    my $a=$t->getAttachment;
    if (!$a) {
       $a=new attachment;
       $a->{comment}=$t->primaryKey;
    } 
    if ($fileName =~ /\.[\w\d]+/) {
        $a->{filename}=$&;
        $a->insertOrUpdate;
        $a->upload($content);
    } else {
        die("ファイル名拡張子が不正です $fileName");
    }
}

sub replies {
    my $t=shift;
    my $depth=shift;
    my $buf="";
    if ($depth>=2) {
	my $it=&sql::select
	(qq(
	    select sum(1) as ress from comment where parent=$t->{mainkey} group by parent
	    ));
	if (my $r=$it->next) {
	    $buf.="<font size=-1>(さらに$r->{ress}個の返信)</font>";
	}
	$buf .= "<BR>";
	return $buf;
    } 
    $buf .="<BR>";
    my $it=&sql::select
	(qq(
	    select * from comment where parent=$t->{mainkey}
	    ));
    while (my $r=$it->next) {
	bless $r,"comment";

	$buf.="&nbsp;&nbsp;&nbsp;" x $depth;
	$buf.=$r->link;
	$buf.=$r->replies($depth+1);
    }
    $buf;
}

sub jsubstr {
    my ($s,$b,$l)=@_;
    if (!$l) {$l=100000;}
    my $e=$b+$l;
    my ($bb,$ee,$c);
    my @e=unpack("C*",$s);
    for (my $i=0 ; $i<@e ; $i++) {
	if ($c>=$b && !defined($bb) ) {
	    $bb=$i;
	}
	if ($c>=$e && !defined($ee) ) {
	    $ee=$i;
	}
	if ($e[$i]>=128) {$i++;}
	$c++;
    }
    $ee=length($s) if (!$ee);
    substr($s,$bb,$ee-$bb);
}

sub digest {
    my $c=shift;
    my $l=shift;
    if (!$l) {$l=20; }
    if (length($c)>$l*2) {
	$c=jsubstr($c,0,$l)."...";
    }
    $c;
}
sub miniLink {
    my $t=shift;
    my $c=&digest(&html::escape($t->{content}),10);

    my $d=$t->date;
    $d =~ /([0-9][0-9]):([0-9][0-9])/;
    $d = "$1:$2";
    my $p=new project($t->{project});
    my $showProject=qq(<BR> on ).$p->link2Top($p->{title});

    qq(@{[$t->comIcon]}<font size=-1 color=#000088>
          @{[  &html::link($c,"viewComment",{mainkey=>$t->{mainkey}})  ]}<BR>
        $d by 
       @{[&user::link($t->{poster})]}
       $showProject</font> <BR><img src=../img/bg3.png height=10>
    ); 

}
sub link {
    my $t=shift;
    my $showProject=shift;
    my $c=&digest(&html::escape($t->{content}));
    use userID2Name;
    my $d=$t->date;
    if ($showProject) {
	my $p=new project($t->{project});
	$showProject=qq( on ).$p->link2Top($p->{title});
    }
    qq(@{[$t->comIcon]}
          @{[  &html::link($c,"viewComment",{mainkey=>$t->{mainkey}})  ]}
        <font size=-1 color=#000088>$d by 
       @{[&html::escape(&userID2Name::getName($t->{poster}))]}
       $showProject</font> 
    ); 
}
sub date{
    my $t=shift;
    my $d=$t->{date};
    $d =~s/\..*//;
    $d =~s/\+.*//;
    $d =~s/:[0-9][0-9]$//;
    $d =~s/^[0-9][0-9]//;
    $d;
}

sub recurseAll {
    my $project=shift;
    my $it=&sql::select
	(qq(
	    select * from comment 
	    where project=@{[&sql::i($project)]}
	    order by date desc
	    ));
    my @coms;
    my %id2coms;
    while (my $r=$it->next) {
	bless $r,"comment";
	$r->{childs}=[];
	unshift @coms,$r;
	$id2coms{$r->primaryKey}=$r;
    }
    my @roots;
    for my $r (@coms) {
	if ($r->{parent}) {
	    my $p=$id2coms{$r->{parent}};
	    if ($p) {
		push @{$p->{childs}},$r;
	    }
	} else {
	    unshift @roots,$r;
	}
    }
    @roots;
}

sub dispAll {
    my $project=shift;
    my @roots=&recurseAll($project);
    my $buf="";
    for my $c (@roots) {
	$buf .= $c->tree;
    }
    $buf;
}

sub tree {
    my $t=shift;
    my $ind=shift;
    my $buf=  $ind.$t->link . "<BR>";
    exit if (length($ind)>200);
    for my $c (@{$t->{childs}}) {
	$buf .= $c->tree("$ind&nbsp;&nbsp;&nbsp;");
    }
    $buf;
}

sub readAll {
    my $project=shift;
    my $prj=new project($project);
    my @coms=&recurseAll($project);
    my $buf;
    for my $r (@coms)  {
	$buf.=$r->treeAll("")."<BR>";
    }
    my $tbl=new table;
    $tbl->addRow->addCol($buf);
    &tmpl::default("コメント","comments",
		   $prj->link2Top."<P>".$tbl->out."<P>".$prj->link2Top);
}
sub treeAll {
    my $t=shift;
    my $ind=shift;
    my $tbl=new table;
    $tbl->addRow->addCol($ind);
    $tbl->addCol($t->linkFromFull);
    exit if (length($ind)>200);
    my $buf;
    for my $c (@{$t->{childs}}) {
	$buf.=$c->treeAll("$ind&nbsp;&nbsp;&nbsp;");
    }
    $tbl->out.$buf;
}

sub linkFromFull {
    my $t=shift;
    my $d=$t->date;
    my $ic=$t->comIcon;
    qq(@{[  &html::link($ic,"viewComment",{mainkey=>$t->{mainkey}})  ]}
        @{[&html::escape($t->{content})]}<font size=-1 color=#000088>$d by 
       @{[&html::escape(&userID2Name::getName($t->{poster}))]}
       </font> 
    ); 

}

sub comIcon {
   my $t=shift;
   if ($t->hasAttachment) {
      return qq(<img border=0 src="../img/clip.png">);
   } else {
      return qq(<img border=0 src="../img/comment.png">);
   }
}
my %hat;
sub hasAttachment {
   my $t=shift;
   if (!$hat{ok}) {
     my $it=&sql::select (qq(select * from attachment;));
     while (my $r=$it->next) {
         $hat{$r->{comment}}=1;
     }
     $hat{ok}=1;
   }
   return $hat{$t->primaryKey};
}

1;