Changeset 16016 for lang/actionscript

Timestamp:

07/19/08 10:33:24 (5 years ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• index.cgi (modified) (2 diffs)
• jsonDB.html (modified) (2 diffs)
• perl/JSON2.pm (modified) (1 diff)
• swkText.cgi (modified) (1 diff)

lang/actionscript/todoshare/index.cgi

@@ -12 +12 @@
 &Html::p ([html,
    [head,
-     [title,"MYS-monitor"]],
+     [title,"MyS-monitor"]],
    [body, 
       [h1,"メニュー"],
@@ -19 +19 @@
        link("DBConsoleFlash.html","SWK(Flash Mode)"),
        link("jsonDB.html","JSON DB Console"),
-       link("importObj.html","Import Objects(他のMYSからHTTPで取得します)"),
+       link("importObj.html","Import Objects(他のMySからHTTPで取得します)"),
       [h3,"File-related Menu"],
        link("backupDB.html","Backup DB"),

lang/actionscript/todoshare/jsonDB.html

@@ -5 +5 @@
 <form action="db.cgi" method="POST">
 <textarea rows=10 cols=40 name=cmd>
-["GET2",["content","importance","urgency"]]
+["GET2",["content"],
+       {"content":["like","%る%"]}
+]
 </textarea>
 <input type=submit>
@@ -18 +20 @@
   {"strength":"1", "type":"animal"}
 ]
-
 </textarea></br>
 
+
+<form action="test/utf8.cgi" method="POST">
+<textarea rows=10 cols=40 name=str>%る%</textarea>
+<input type=submit>
+
 </body></html>

lang/actionscript/todoshare/perl/JSON2.pm

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

lang/actionscript/todoshare/swkText.cgi

@@ -26 +26 @@
            \&dispRes ,
 
-     ]
+     ],["hr"],
+     ["a",{href=>"./"},"Home"]
    ] 
 ];