Changeset 17024 for lang/actionscript

Timestamp:

08/03/08 21:38:59 (4 months ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• CodeDbTest.cgi (added)
• backupDB.cgi (modified) (1 diff)
• bin-debug/TodoShare.swf (modified) (previous)
• bin-debug/db (added)
• bin-debug/test/ajaxButtonTest.html (added)
• bin-debug/test/db.sql (added)
• db/db.sql (moved) (moved from lang/actionscript/todoshare/test/db.sql) (1 diff)
• jsonDB.html (modified) (2 diffs)
• perl/JSON2.pm (modified) (1 diff)
• perl/Obj.pm (modified) (8 diffs)

lang/actionscript/todoshare/backupDB.cgi

@@ -17 +17 @@
    my $e=shift;
    print "  ";
-   print toJSON(["MAKEREL",$e->{obj},$e->{name},$e->{val}]);
+   print toJSON(["MAKEREL",$e->{obj},$e->{name},$e->{val},$e->{t},$e->{role}]);
    print ",\n";
 });

lang/actionscript/todoshare/db/db.sql

@@ -16 +16 @@
   val     varchar(255),
   t       varchar(32),
-  role    varchar(32)
+  role    varchar(32),
 );
 
+create table relation_arcl (
+  obj     varchar(255),
+  name    varchar(255),
+  val     varchar(255),
+  t       varchar(32),
+  role    varchar(32),
+);
 
 

lang/actionscript/todoshare/jsonDB.html

@@ -6 +6 @@
 function exe() {
    var cmd=$("cmd").value;
+   $("res").value="Sending..";
    //alert(cmd);
    new Ajax.Request("db.cgi", {
@@ -33 +34 @@
 }]
 </textarea>
-<button onclick="exe();return false;" onsubmit="return false;">AJax</button>
-<input type=submit>
+<button onclick="exe();return false;" onsubmit="return false;">=></button>
 <textarea rows=10 cols=40 id=res></textarea>
 </form>
 <BR>
 <textarea rows=10 cols=40 name=cmd>
+["DELREL","ねこ","色","三毛"]
+["SELARCHIVE",["PROGN"],["FINDREL","猫","色","三毛"]]
 ["DELREL","obj://gorira","type","animal"]
 ["GET",{ "from":"relation",

lang/actionscript/todoshare/perl/JSON2.pm

@@ -15 +15 @@
 sub fromJSON {
    my $j=shift;
-   #my $json=new JSON();
+   JSON->new->utf8(1)->decode($j);
+   #my $json=new JSON()->utf8(0);
    #$json->decode($j);
-   decode_json($j);
+   #decode_json($j);
 }
 

lang/actionscript/todoshare/perl/Obj.pm

@@ -35 +35 @@
   } else {$prefix="";}
   $prefix. time ;
+}
+sub setUTF {
+  my $href=shift;
+  for (values %$href) {
+    utf8::decode($_);
+  }
 }
 sub exe {
@@ -58 +64 @@
                   for (my $i=0; $i<$num_rows; $i++) {
                     my $a = $sth->fetchrow_hashref;
+                    &setUTF($a);
                     $a->{_class}=$data->{from};
                     push @{$res}, $a;
@@ -257 +264 @@
                 for (my $i=0; $i<$num_rows; $i++) {
                     my $a = $sth->fetchrow_hashref;
+                    &setUTF($a);
                     push @{$res}, $a;
                 }
@@ -320 +328 @@
                 for (my $i=0; $i<$num_rows; $i++) {
                     my $a = $sth->fetchrow_hashref;
+                    &setUTF($a);
                     push @{$res}, $a;
                 }
@@ -340 +349 @@
            return ["EXISTS"];
         }
+        #my $t=$cmd->[4];
+        #my $role=
             return &exe(["INSERT",$relName, {
                obj => $cmd->[1],
@@ -349 +360 @@
         } elsif ($cmd->[0] eq 'DELREL') {
             # ["DELREL" , obj, name, val]
+            my $backupQ=["FINDREL",$cmd->[1],$cmd->[2],$cmd->[3]];
+            my $res=&exe($backupQ);
+            return ["SELARCHIVE",
+              ["PROGN",
+                map ["MAKEREL",$_->{obj},$_->{name},$_->{val},$_->{t},$_->{role}],
+                    @$res
+              ],
+              $backupQ
+            ];      
             my $where={};
             $where->{obj} = $cmd->[1];
-            $where->{name}= $cmd->[2];
-            $where->{val} = $cmd->[3];
+            $where->{name}= $cmd->[2] if ($cmd->[2] and not &isAny($cmd->[2]));
+            $where->{val} = $cmd->[3] if ($cmd->[2] and not &isAny($cmd->[3]));
             $where->{role}=&Session::getRole;
             return &exe(["DELETE",$relName,$where]);
@@ -463 +483 @@
 sub log {
   my ($cmd,$query)=@_;
-  print STDERR "\n$query";
+  print STDERR ("\n$query utfFlg=".utf8::is_utf8($query));
   push @logBuf,$query;
 }
@@ -469 +489 @@
   join "\n",@logBuf;
 }
-
+sub doQuery {
+  my $query=shift;
+  my $sth = $db->prepare($query);
+                my $eres=$sth->execute;
+                my $res;
+                if (!$eres) { 
+                  $res=["Fail",$query,$sth->errstr];
+                } else {
+                  my $num_rows = $sth->rows;
+                  $res=[];
+                  for (my $i=0; $i<$num_rows; $i++) {
+                    my $a = $sth->fetchrow_hashref;
+                    push @{$res}, $a;
+                  }
+                }
+                $sth->finish;
+        return array($res);             
+}
 
 1;