Changeset 16697 for lang/actionscript

Show
Ignore:
Timestamp:
07/27/08 00:02:11 (4 months ago)
Author:
hoge1e3
Message:
 
Location:
lang/actionscript/todoshare
Files:
10 added
7 modified

Legend:

Unmodified
Added
Removed

  • lang/actionscript/todoshare/db.cgi

    r16014 r16697  
    2222#   or die $DBI::errstr; 
    2323#my $relName="relation"; 
    24  
    25 my $cmd = fromJSON( $str_js ); 
    26 my $res=&Obj::exe($cmd); 
    27 print toJSON($res); 
    28 exit; 
     24eval { 
     25  my $cmd = fromJSON( $str_js ); 
     26  my $res=&Obj::exe($cmd); 
     27  print toJSON($res); 
     28}; 
     29if ($@) { 
     30  print toJSON(["FAIL",$@]); 
     31} 

  • lang/actionscript/todoshare/index.cgi

    r16425 r16697  
    88use Html; 
    99use HtmlTag; 
     10use Tmpl; 
     11use Obj; 
    1012header; 
     13my $id=$ENV{"QUERY_STRING"}; 
     14$id =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge; 
     15if ($id) {&disp($id);exit;} 
    1116 
    1217&Html::p ([html, 
    … …  
    1621      [h1,"メニュー"], 
    1722       link("todo.cgi","Todo"), 
     23       link("todoJS.cgi","Todo(JS)"), 
    1824       link("nohada.cgi","のはだ"), 
    1925       link("swkText.cgi","SWK(Text Mode)"), 
    … …  
    3642} 
    3743 
     44sub disp { 
     45  &Tmpl::page({title=>$id},[span, 
     46     [h2,"Infomation about $id"], 
     47     [table,sub { 
     48       my $p=shift; 
     49       my $res=&Obj::exe(["FINDREL",$id,any,any]); 
     50       for (@$res) { 
     51          $p->p([&tr, 
     52                [td,$_->{name}] , 
     53                [td,&Tmpl::link2obj($_->{val})] 
     54             ]); 
     55       } 
     56     }] 
     57   ]); 
     58   
     59   
     60} 

  • lang/actionscript/todoshare/nohada.cgi

    r16425 r16697  
    3030         return e[tName]; 
    3131     }).sort().uniq(); 
    32      print(cand.join(", ")); 
    33      if (cand.length==1) {$(tName).value=cand[0];} 
    34      else {sugs[tName].candidateList=cand;} 
     32     print(cand.map(link2obj).join(", ")); 
     33     //if (cand.length==1) {$(tName).value=cand[0];} 
     34     sugs[tName].candidateList=cand; 
    3535  }); 
    3636} 
    … …  
    8484 
    8585EOF 
    86 my $style=<<'EOF'; 
    87 div.suggest { 
    88     position: absolute; 
    89     background-color: #FFFFFF; 
    90     border: 1px solid #CCCCFF; 
    91     font-size: 90%; 
    92     width: 200px; 
    93 } 
    94 div.select{ /* キー上下で選択した場合のスタイル */ 
    95     color: #FFFFFF; 
    96     background-color: #3366FF; 
    97 } 
    98 div.over{ /* マウスオーバ時のスタイル */ 
    99     background-color: #99CCFF; 
    100 } 
    101 EOF 
     86 
    10287 
    10388 
    … …  
    10893      script(src=>"prototype.js"), 
    10994      script(src=>"suggest.js"), 
     95      script(src=>"js/common.js"), 
    11096      [script,$scr], 
    111       [style,$style], 
     97      link(rel=>"Stylesheet",type=>"text/css",href=>"css/default.css"), 
    11298    ], 
    11399    [body,[center, 

  • lang/actionscript/todoshare/perl/Obj.pm

    r16425 r16697  
    55use DBI; 
    66use ArrayUtil; 
     7use Session; 
    78#use JSON2; 
    89 
    … …  
    140141                &log($cmd,$query); 
    141142            if ($res) { $res=(["OK",$objectID, $query ]); } 
    142             else { $res=(["Fail",$query,$sth->errstr]); } 
     143            else { die("Fail ,$query, ".$sth->errstr); } 
    143144            $sth->finish; 
    144145        return array($res);              
    … …  
    325326               obj => $cmd->[1], 
    326327               name =>$cmd->[2], 
    327                val => $cmd->[3] 
     328               val => $cmd->[3], 
     329               t   => &Session::newT, 
     330               role=> &Session::getRole 
    328331            }]); 
    329332        } elsif ($cmd->[0] eq 'FINDREL') { 
    … …  
    337340                    where=> $where 
    338341                 }]); 
     342        } elsif ($cmd->[0] eq 'PROGN') { 
     343           # [ "PROGN", cmd, cmd ... ] 
     344           for (my $i=1 ; $i<@$cmd ; $i++) { 
     345              &exe($cmd->[$i]); 
     346           } 
     347           return ["OK"]; 
    339348        } else { 
    340349            die("Unknown command $cmd->[0]"); 
    … …  
    351360           &escapeLiteral($objectID) .",". 
    352361           &escapeLiteral($k)        .",". 
    353            &escapeLiteral($v)        .")"  
     362           &escapeLiteral($v)        .",". 
     363           &escapeLiteral(&Session::newT)        .",". 
     364           &escapeLiteral(&Session::getRole)     . 
     365            
     366                  ")"  
    354367       ;   
    355368      print STDERR "$objectID $k $v $value\n"; 

  • lang/actionscript/todoshare/test/db.sql

    r16014 r16697  
    1010  val     varchar(255) 
    1111); 
     12 
     13create table relation ( 
     14  obj     varchar(255), 
     15  name    varchar(255), 
     16  val     varchar(255), 
     17  t       varchar(32), 
     18  role    varchar(32) 
     19); 
     20 
    1221 
    1322 

  • lang/actionscript/todoshare/test/test.pl

    r16061 r16697  
    33#package main; 
    44#use pkg; 
     5 
    56BEGIN{ 
    67  push @INC,"../perl"; 
    78} 
    8 use strict; 
    9 use Html; 
    10 use HtmlTag; 
     9use Session; 
     10print &Session::newT; print"\n"; 
     11print &Session::newT; print"\n"; 
     12print &Session::newT; print"\n"; 
     13sleep 1; 
     14print &Session::newT; print"\n"; 
     15print &Session::newT; print"\n"; 
     16 
     17#use strict; 
     18#use Html; 
     19#use HtmlTag; 
    1120 
    1221&Html::p ([a(href=>"test.html")]);