root/lang/actionscript/todoshare/todo.cgi @ 16061

#!/usr/bin/perl

BEGIN {
  push @INC,"perl";
}
use Obj;

use strict;
use Html;
use HtmlTag;
use JSON;
use CGI::Carp qw(fatalsToBrowser);

require 'cgi-lib.pl';

print "Content-type: text/html; charset=utf-8\n\n";

my $in=&ReadParse;
my $str_js=$in->{cmd};
my $br=["br","\n"];
my $script="todo.cgi";
my $todoClass="class://Todo";
my $eventClass="class://Event";
my $notice= "※内容を記入すると「追加」，空欄にすると「参照」になります";
if    ($in->{todoName}) {&add;}
elsif ($in->{when} or $in->{whenText}) {&view; }
else  {⊤}

sub top {
  &page(["span",\&inputForm,$notice]);  
}

sub page {
  my $body=shift;
  &Html::p(["html",["body",$body]]);
}
sub view {
  &page(["span",
     \&inputForm,
     \&searchRes,
     $notice,
  ]);
}
sub add {
   my $todo=&Obj::newID($todoClass);
   &Obj::exe(["INSERT2",$todo,{
      class=>$todoClass,
      content=>$in->{todoName}
   }]);
   my $when;
   if ($in->{whenText}) {
     $when=&Obj::newID($eventClass);
     &Obj::exe(["INSERT2",$when,{
       class=>$eventClass,
       content=>$in->{whenText}
     }]);
   } else {
     $when=$in->{when};
   } 
   die("when null") unless($when);
   &Obj::exe(["MAKEREL",$when,"=>",$todo]);
      
   &page(sub {
      my $c=shift;
      $c->p("追加しました");
      $c->p(\&inputForm);
      $c->p($br);
      $c->p(\&searchRes);
   });
}
sub inputForm { 
    my $c=shift;
        my $q;
        $c->p(
            [form(action=>$script,method=>"POST"),
              "内容:",$br,
              input(type=>"text" , name=>"todoName",value=>$in->{todoName}),$br,
              "場所（条件）:",$br,
              [select(name=>"when"),
                  sub {
                     my $out=shift;
                     my $res=&Obj::exe(["GET2",
                        ["class", "content"],
                        {
                           class => $eventClass,
                        },1
                     ]);
                     $q = "!". shift @{$res};
                     for (@{$res}) {
                        $out->p(["option", 
                             {value=>$_->{id}},
                             $_->{content}                     
                        ])->ln;
                     }
                  }
              ],
        #     ["pre",sub{@_[0]->p($q);}],
              ["input",{type=>"text" , name=>"whenText"}],$br,
              ["input",{type=>"submit", value=>"追加/参照※"}]
             
            ]
        );
}
sub searchRes {
    my $p=shift;
    my $when = $in->{when};
    my $res=&Obj::exe(["FINDREL", $when, "=>"]);
#    my $res=&Obj::exe(["FINDREL", $when, "=>" , [{content:any}] ]);
    for (@{$res}) {
       my $id=$_->{val};
       $p->p(["span",$_->{val},","]);        
       my $res=&Obj::exe(["GET2",["content"], {id=>$id}]);
       $p->p(["span",$res->[0]->{content},$br]);        
       
    }

}