Changeset 16013 for lang/actionscript

Timestamp:

07/19/08 08:42:45 (4 months ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• Todo.as (deleted)
• TodoShare.as (modified) (4 diffs)
• core/MObj.as (modified) (1 diff)
• db/JSQL.as (modified) (2 diffs)
• index.cgi (modified) (1 diff)
• util/Debug.as (modified) (1 diff)

lang/actionscript/todoshare/TodoShare.as

@@ -1 +1 @@
 package {
+        import app.Todo;
+        
+        import db.JSQL;
+        
         import flash.display.Bitmap;
         import flash.display.BitmapData;
@@ -10 +14 @@
         import flash.net.URLRequestMethod;
         import flash.net.URLVariables;
-        
-        import util.Debug;
         [SWF(width="800",height="600",frameRate="24",backgroundColor="#FFFFFF")]
     
@@ -50 +52 @@
                                    "addTodo", addTodo
                         );
+                        ExternalInterface.addCallback(
+                                   "modText", modText
+                        );
                         
                         ExternalInterface.addCallback(
-                                   "getDebug", function () {
-                                                return Debug.getClear();
+                                   "getEvents", function () {
+                                                var res:Array=evtBuf;
+                                                evtBuf=[];
+                                                return res;
                                    }
-                        );
+                        ); 
+                        load();
                         //throw new Error(JSON.decode('{"a":"3", "b":"5"}'));
                 }
+                public function modText(objId:String, content:String) {
+                        for (var i=0; i<numChildren ; i++) {
+                                var e=getChildAt(i);
+                                if (e instanceof Todo) {
+                                        var t:Todo=e;
+                                        
+                                        /*if (t.id==objId) {
+                                        }*/
+                                }
+                        }
+                }
+                public function load() {
+                        JSQL.select(["content","urgency","importance"], 
+                        {},function (obj) {
+                                for (var i in obj) {
+                                        var todo:Todo=new Todo(
+                                           obj[i].content,
+                                           obj[i].urgency,
+                                           obj[i].importance
+                                        );
+                                        addChild(todo);
+                                }
+                        });
+                }
                 public function addTodo(s:String) {
-                        addChild(new Todo(s,Math.random()*1-0.5,Math.random()*1-0.5));
+                        var todo:Todo=new Todo(s,Math.random()*1-0.5,Math.random()*1-0.5);
+                        addChild(todo);
+                        todo.insert();
                 }
                 public function fillRect(x:int,y:int,w:int,h:int,col:uint):void {
@@ -86 +120 @@
                 throw new Error("received: " + e.target.data);//+" / "+params);//+"/"+ unescape(params.toString()));
         }
+        public static function sendEvent(o:Object):void {
+                evtBuf[evtBuf.length]=o;
+        }
+        public static var evtBuf:Array=[];
  }
 }

lang/actionscript/todoshare/core/MObj.as

@@ -6 +6 @@
         {
                 public var id:String;
+                //public var relations:Object;
                 public function MObj()
                 {
-                        id=Date.length+"";
+                        var d:Date=new Date();
+                        id=d+"";
                 }
                 

lang/actionscript/todoshare/db/JSQL.as

@@ -1 @@
-package
+package db
 {
         import com.adobe.serialization.json.JSON;
+        
+        import flash.events.Event;
+        import flash.net.URLLoader;
+        import flash.net.URLRequest;
+        import flash.net.URLRequestMethod;
+        import flash.net.URLVariables;
+        
+        import util.Debug;
         
         public class JSQL
@@ -11 +19 @@
                         var variables:URLVariables = new URLVariables();
                         variables.cmd=JSON.encode(q);
-                    var request:URLRequest = new URLRequest("http://192.168.28.128/workspace/TodoShare/index.cgi");
+                        Debug.p(variables.cmd);
+                    var request:URLRequest = new URLRequest("http://192.168.28.128/workspace/TodoShare/db.cgi");
                 request.method = URLRequestMethod.POST;
                 request.data = variables;
                 var urlLoader:URLLoader = new URLLoader();
                         urlLoader.load(request);
-                urlLoader.addEventListener(Event.COMPLETE, onComplete);
+                urlLoader.addEventListener(Event.COMPLETE, function () {
+                        try {
+                           var data=JSON.decode(urlLoader.data);
+                           onComplete(data);
+                        } catch (e:Error ) {
+                                throw new Error("Invalid JSON: "+e+"\n"+urlLoader.data);
+                        }       
+                });
+                }
+                public static function insert(objectID:String, attrs:Object, onComplete:Function) {
+                        // set _class to table name
+                        doQuery(["INSERT2",objectID,attrs],onComplete);
+                }
+                // {from: table_name  where:{a: 3} }
+                public static function select(fields: Array, where:Object, onComplete:Function ) {
+                        doQuery(["GET2",fields],onComplete);
+                }
+                public static function del(objectID:String, onComplete:Function) {
+                        doQuery("DELETE2",onComplete);
                 }
         }

lang/actionscript/todoshare/index.cgi

@@ -1 +1 @@
 #!/usr/bin/perl
 
+BEGIN {
+  push @INC,"perl";
+}
 use strict;
-use JSON;
 use CGI::Carp qw(fatalsToBrowser);
-use DBI;
+use Html;
+use HtmlTag;
+header;
+
+&Html::p ([html,
+   [head,
+     [title,"MYS-monitor"]],
+   [body, 
+      [h1,"メニュー"],
+       link("todo.cgi","Todo"),
+       link("swkText.cgi","SWK(Text Mode)"),
+       link("DBConsoleFlash.html","SWK(Flash Mode)"),
+       link("jsonDB.html","JSON DB Console"),
+       link("importObj.html","Import Objects(他のMYSからHTTPで取得します)"),
+      [h3,"File-related Menu"],
+       link("backupDB.html","Backup DB"),
+       link("restoreDB.html","Restore DB"),
+   ]
+]);
 
 
-require 'cgi-lib.pl';
-
-print "Content-type: text/html\n\n";
-
-my $in=&ReadParse;
-my $str_js=$in->{cmd};
-
-my $user = 'root';
-my $passwd = '';
-my $db = DBI->connect('DBI:mysql:todoshare:localhost', $user, $passwd);
-
-#print $db;
-my $cmd = decode_json( $str_js );
-if ($cmd->[0] eq 'GET') {
-        my $data=$cmd->[1];
-        my $where=&where($data->{where});
-        my $ord=&orderBy($data->{orderBy});
-        my $query=qq(
-        select * from $data->{from}
-          $where $ord ;
-        );
-        #die($query);
-        my $sth = $db->prepare($query);
-        my $eres=$sth->execute;
-        if (!$eres) { print encode_json(["Fail",$query,$sth->errstr]); exit; }
-        my $num_rows = $sth->rows;
-        my $res=[];
-        for (my $i=0; $i<$num_rows; $i++) {
-            my $a = $sth->fetchrow_hashref;
-            $a->{_class}=$data->{from};
-            push @{$res}, $a;
-        }
-        $sth->finish;
-        $db->disconnect;
-        print encode_json($res);
-} elsif ($cmd->[0] eq 'POST' or $cmd->[0] eq 'PUT' ) {
-    my $data=$cmd->[1];
-    my $values=&values($data);
-    my $query =qq(
-      insert into @{[&escapeSymbol($data->{_class})]} $values ;
-    );
-    my $sth=$db->prepare($query);
-    my $res=$sth->execute;
-    if ($res) { print encode_json(["OK",$query]); }
-    else { print encode_json(["Fail",$query,$sth->errstr]); }
+sub link {
+  my ($href,$name)=@_;
+  sub { 
+    my $p=shift;
+    $p->p([a,{href=>$href},$name])->brln;
+  };
 }
 
-sub values {
-   my $d=shift;
-   my @names;
-   my @values;
-   while (my ($k,$v)=each %{$d}) {
-      next if ($k eq "_class") ;
-      push @names, $k;
-      push @values, &escapeLiteral($v) ; 
-   }
-   " (".join(", ",@names).") values (".join(", ",@values).")";
-}
-
-sub where {
-  my $w=shift;
-  my @res;
-  while (my ($k,$v)=each %{$w}) {
-      push @res, "$k='$v'" ; 
-  }
-  if (@res==0) {return ""}
-  "where ".join(" and ",@res);
-}
-sub orderBy {
-  my $ord=shift;
-  if ($ord) {" order by $ord ";}
-  else {"";}
-}
-sub escapeSymbol {
-  my $s=shift;
-  $s =~ s/\W//g;
-  $s;
-#  $s =~ s/\\/\\\\/g;
-#  $s =~ s/\"/\\"/g;
-#  "\"$s\"";
-}
-sub escapeLiteral {
-  my $s=shift;
-  $s =~ s/\\/\\\\/g;
-  $s =~ s/\'/\\'/g;
-  "\'$s\'";
-}
-

lang/actionscript/todoshare/util/Debug.as

@@ -8 +8 @@
                 static var buf:String="";
                 public static function p(s:String):void {
-                        buf+=s+"\n";
+                        TodoShare.sendEvent(["debug",s]); 
+                        //buf+=s+"\n";
                 }
-                public static function getClear():String {
+                public static function o(s:Object):void {
+                        TodoShare.sendEvent(s);
+                }
+                /*              public static function getClear():String {
                         var res:String=buf;
                         buf="";
                         return res;
-                }
+                }*/
         }
 }