{"id":6689,"date":"2018-03-30T03:07:55","date_gmt":"2018-03-30T03:07:55","guid":{"rendered":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/?p=6689"},"modified":"2018-03-30T10:19:11","modified_gmt":"2018-03-30T10:19:11","slug":"%e4%bd%9c%e6%a5%ad%e3%83%a1%e3%83%a2%ef%bc%88scorm_portal-%e3%81%8b%e3%82%89-nlportal-4-0-%e3%81%b8%e3%81%ae%e3%83%87%e3%83%bc%e3%82%bf%e7%a7%bb%e8%a1%8c%ef%bc%89","status":"publish","type":"post","link":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/?p=6689","title":{"rendered":"\u4f5c\u696d\u30e1\u30e2\uff08scorm_portal \u304b\u3089 NLportal 4.0 \u3078\u306e\u30c7\u30fc\u30bf\u79fb\u884c\uff09"},"content":{"rendered":"

\u554f\u984c\u30d0\u30f3\u30af scorm_portal \u306e\u30b3\u30f3\u30c6\u30f3\u30c4\u3092\u3001NLportal 4.0 \u3078\u79fb\u3057\u307e\u3057\u305f\u3002\u554f\u306e\u5f62\u5f0f\u304c\u5909\u66f4\u3055\u308c\u308b\u3082\u306e\u304c\u3042\u308b\u306e\u3067\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u3044\u3066\u5909\u63db\u3057\u306a\u304c\u3089\u79fb\u3057\u307e\u3057\u305f\u3002\u4f5c\u696d\u7528\u306e\u30b3\u30fc\u30c9\u304c\u884c\u65b9\u4e0d\u660e\u306b\u306a\u3089\u306a\u3044\u3088\u3046\u306b\u8a18\u9332\u3057\u307e\u3059(\u53c2\u8003\u8a18\u4e8b<\/a>)\u3002<\/p>\n

\u6700\u521d\u306b\uff0c\u540c\u3058\u30c7\u30fc\u30bf\u3092\u4ed6\u306e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u8907\u88fd\u3057\u3066\uff0c\u305d\u306e\u5f8c\u8907\u88fd\u3055\u308c\u305f\u65b9\u306e\u5185\u5bb9\u306b\u4fee\u6b63\u3092\u52a0\u3048\u307e\u3057\u305f\u3002\u5177\u4f53\u7684\u306b\u306f configfile.xml \u3068\u3044\u3046\u30d5\u30a1\u30a4\u30eb\u306e\u4fee\u6b63\u3067\u3059\u3002<\/p>\n

<?php\r\n\r\n\/\/ scorm_portal \u306e\u30c7\u30fc\u30bf\u3092NLportal4.0\u7528\u306b\u4fee\u6b63\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\r\n\r\n\/\/require_once '.\/db_connect.php';\r\n\r\n  \/\/ \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\r\n  $DB = mysqli_connect( 'localhost', 'username', 'password', 'scorm_portal') or die(mysqli_connect_error());  \r\n  mysqli_set_charset($DB, 'utf8');\r\n\r\n  \/\/ \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\r\n  $DB2 = mysqli_connect( 'localhost', 'username', 'password', 'NLportal40') or die(mysqli_connect_error());  \r\n  mysqli_set_charset($DB2, 'utf8');\r\n\r\n\/\/ \u30b3\u30d4\u30fc\u5148($DB2)\u306e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u5185\u5bb9\u3092\u524a\u9664\u3059\u308b\r\n$sql = \"SHOW TABLES;\";\r\n$result = mysqli_query($DB2, $sql) or die(mysqli_error($DB2));\r\n$rows = mysqli_num_rows($result);\r\n\r\necho \"\u30b3\u30d4\u30fc\u5148\u306eTable \".$rows.\" \u500b\u3092\u524a\u9664\u3057\u307e\u3059\\n\";\r\n\r\nfor ($i = 0; $i < $rows; $i = $i + 1) {\r\n\t$row = mysqli_fetch_array($result);\r\n\t\/\/var_dump($row[0]);\r\n\t$sql = \"DROP TABLE `\".$row[0].\"`;\";\r\n\tmysqli_query($DB2, $sql) or die(mysqli_error($DB2));\r\n\techo \"DROP \".$row[0].\"\\n\";\r\n}\r\n\r\n\/\/  \u30b3\u30d4\u30fc\u3059\u308b\r\n\r\n$sql = \"SHOW TABLES;\";\r\n$result = mysqli_query($DB, $sql) or die(mysqli_error($DB));\r\n$rows = mysqli_num_rows($result);\r\n\r\necho \"Table \".$rows.\" \u500b\u3092\u30b3\u30d4\u30fc\u3057\u307e\u3059\\n\";\r\n\r\nfor ($i = 0; $i < $rows; $i = $i + 1) {\r\n\t$row = mysqli_fetch_array($result);\r\n\t\/\/var_dump($row[0]);\r\n\t\/\/$sql = \"DROP TABLE `\".$row[0].\"`;\";\r\n\t$a_table_name = \"`\".$row[0].\"`\";\r\n\r\n\t$sql = \"CREATE TABLE NLportal40.$a_table_name LIKE scorm_portal.$a_table_name\";\r\n\tmysqli_query($DB2, $sql) or die(mysqli_error($DB2));\r\n\r\n\t$sql = \"INSERT INTO NLportal40.$a_table_name SELECT * FROM scorm_portal.$a_table_name\";\r\n\tmysqli_query($DB2, $sql) or die(mysqli_error($DB2));\r\n\r\n\techo \"copy \".$row[0].\"\\n\";\r\n}\r\n\r\n\/\/ author table \u540d\u3060\u3051\u3092\u53d6\u5f97\u3057\u3001\u914d\u5217\u306b\u5165\u308c\u308b\r\n\r\n$sql = \"SHOW TABLES LIKE 'table_%';\";\r\n$result = mysqli_query($DB, $sql) or die(mysqli_error($DB));\r\n$rows = mysqli_num_rows($result);\r\n\r\necho \"author \u306e table \u306f\".$rows.\" \u500b\u3042\u308a\u307e\u3059\\n\";\r\n\r\n$table_ary = array();\r\n$author_ary = array();\r\n\r\nfor ($i = 0; $i < $rows; $i = $i + 1) {\r\n\t$row = mysqli_fetch_array($result);\r\n\t$table_ary[] = $row[0];\r\n\t$author_ary[] = mb_eregi_replace('table_','',$row[0]);\r\n}\r\n\r\n$table_num = $rows;\r\n\/\/var_dump($table_ary);\r\n\r\n\/\/ \u4f5c\u696d\u30d5\u30a9\u30eb\u30c0\u30fc\u3092\u7528\u610f\u3059\u308b\r\n$timestamp = makeTimeStamp( );\r\n$head = \"tmp\".$timestamp;\r\n$foldername = mb_convert_encoding($head, \"UTF-8\", \"auto\");\r\npassthru(\"mkdir -p \/var\/www\/html\/temporary\/$foldername\/tmp\/\");\r\n\r\necho \"\u4f5c\u696d\u30d5\u30a9\u30eb\u30c0\u30fc $foldername \u3092\u4f5c\u6210\\n\";\r\n\r\n\/\/ key \u306e\u7528\u610f \u4ee5\u524d\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u306fKey\u3092\u542b\u3093\u3067\u3044\u306a\u304b\u3063\u305f\r\n$file = '\/xxxx\/xxxxxxxxx\/key.txt';\r\n$keyxml = simplexml_load_string(file_get_contents($file));\r\n\r\nfor ($i = 0; $i < $table_num; $i = $i + 1) {\r\n\t$a_table_name = \"`\".$table_ary[$i].\"`\";\r\n\t$sql = \"SELECT id, title, zip FROM $a_table_name;\";\r\n\t$result = mysqli_query($DB2, $sql) or die(mysqli_error($DB2));\r\n\t$rows = mysqli_num_rows($result);\r\n\techo \"$table_ary[$i] has \".$rows.\" rows.\\n\";\r\n\r\n\tfor ($j = 0; $j < $rows; $j = $j + 1){\r\n\t\t$row = mysqli_fetch_array($result);\r\n\t\t$id = $row['id'];\r\n\t\t$a_file = fopen(\"\/var\/www\/html\/temporary\/$foldername\/tmp.zip\",\"w\");\r\n\t\tfwrite($a_file, $row['zip']);\r\n\t\tfclose($a_file);\r\n\t\tpassthru(\"cd \/var\/www\/html\/temporary\/$foldername\/; unzip -q \/var\/www\/html\/temporary\/$foldername\/tmp.zip -d \/var\/www\/html\/temporary\/$foldername\/tmp\/\");\r\n\t\t\/\/decode_TAns($foldername);\r\n\t\t$config_text = file_get_contents(\"\/var\/www\/html\/temporary\/$foldername\/tmp\/configfile.xml\");\r\n\t\t$config_xml = simplexml_load_string($config_text);\t\t\r\n\t\t$config_xml->version = \"4.0\";\r\n\r\n\t\t\/\/ \u4ee5\u524d\u306e\u81ea\u52d5\u63a1\u70b9\u30b3\u30f3\u30c6\u30f3\u30c4\u306b\u306fID\u304c\u7121\u3044\r\n\t\t$timestamp = makeTimeStamp( );\r\n\t\t$config_xml->q_ID = $timestamp; \r\n\t\t$config_xml->edit->when = $timestamp;\r\n\r\n\t\t$config_xml->server->url = \"https:\/\/kanaike.susi.oita-u.ac.jp\";\r\n\t\t$config_xml->cgi->url = \"\/php_simple_question_NL\/answertest_for_NL40.php\";\r\n\t\t$config_xml->tex->url = \"\/php_simple_question_NL\/fortex_xml_space.php\";\r\n\t\t$config_xml->refer->url = \"\/php_simple_question_NL\/refer_status.php\";\r\n\r\n\t\t\/\/ \u4ee5\u524d\u306e\u81ea\u52d5\u63a1\u70b9\u30b3\u30f3\u30c6\u30f3\u30c4\u306b\u306fauthor_name\u304c\u7121\u3044\r\n\t\t$config_xml->author_name = $author_ary[$i];\r\n\t\t$config_xml->phpseclibKey = makePhpseclibKey($timestamp);\r\n\r\n\t\t$xmlstr = reConfig($config_xml);\r\n\r\n\t\t\/\/ configfile.xml \u3092\u7f6e\u304d\u63db\u3048\u308b\r\n\t\t$configfile = fopen(\"\/var\/www\/html\/temporary\/$foldername\/tmp\/configfile.xml\",\"w\");\r\n\t\tfputs($configfile,$xmlstr);\r\n\t\tfclose($configfile);\r\n\r\n\t\t\/\/passthru(\"cd \/var\/www\/html\/temporary\/$foldername\/tmp ; zip -q -r \/var\/www\/html\/temporary\/$foldername\/new.zip .\/configfile.xml .\/glossary .\/html\");\r\n\t\tpassthru(\"cd \/var\/www\/html\/temporary\/$foldername\/tmp ; zip -q -r \/var\/www\/html\/temporary\/$foldername\/new.zip .\/configfile.xml .\/html\");\r\n\t\t$zipbinary = file_get_contents(\"\/var\/www\/html\/temporary\/$foldername\/new.zip\");\r\n\t\t$zipbinary = mysqli_real_escape_string($DB2, $zipbinary);\r\n\r\n\t\t$sql = \"UPDATE $a_table_name SET zip='$zipbinary' WHERE id='$id'\";\r\n\t\t$result_UPDATE = mysqli_query($DB2, $sql) or die(mysqli_error($DB));\r\n\t\techo \"changed \".$row['title'].\"\\n\";\r\n\r\n\t\t\/\/ \u4f5c\u696d\u30d5\u30a1\u30a4\u30eb\u3092\u6d88\u3059\r\n\t\tpassthru(\"rm -r \/var\/www\/html\/temporary\/$foldername\/*\");\r\n\t\t\/\/break 2;\r\n\t}\r\n}\r\n\r\n\r\nfunction makeTimeStamp( ) {\r\n\t$stamp =  microtime();\r\n\tlist($msec, $sec) = explode(\" \", $stamp);\r\n\t$mustamp = $stamp*1000000;\r\n\treturn $sec.$mustamp;\r\n}\r\n\r\nfunction makePhpseclibKey($timestamp) {\r\n\tglobal $keyxml;\r\n\t$keynum = intval(substr($timestamp,-2,2));\r\n\t$keytxt = (string) $keyxml->key[$keynum]->public;\r\n\treturn $keytxt;\r\n}\r\n\r\nfunction reConfig($xml) {\r\n\t$keytxt = (string) $xml->phpseclibKey;\r\n\t$xml_version = $xml->version;\r\n\t$xml_server_url = $xml->server->url;\r\n\t$xml_cgi_url = $xml->cgi->url;\r\n\t$xml_tex_url = $xml->tex->url;\r\n\t$xml_refer_url = $xml->refer->url;\r\n\t$xml_author_name = $xml->author_name;\r\n\t$xml_title = $xml->title;\r\n\t$xml_keyword = $xml->keyword;\r\n\t$xml_edit_where = $xml->edit->where;\r\n\t$xml_edit_when = $xml->edit->when;\r\n\t$xml_q_ID = $xml->q_ID;\r\n\t$xml_TextHeight = $xml->TextHeight;\r\n$configstr = <<< end_of_quote\r\n<?xml version=\"1.0\" encoding=\"utf-8\"?>\r\n<root>\r\n<version>$xml_version<\/version>\r\n<server>\r\n<url>$xml_server_url<\/url>\r\n<\/server>\r\n<cgi>\r\n<url>$xml_cgi_url<\/url>\r\n<\/cgi>\r\n<tex>\r\n<url>$xml_tex_url<\/url>\r\n<\/tex>\r\n<refer>\r\n<url>$xml_refer_url<\/url>\r\n<\/refer>\r\n<LMSserver><\/LMSserver>\r\n<UserID><\/UserID>\r\n<record><\/record>\r\n<q_ID>$xml_q_ID<\/q_ID>\r\n<author_name>$xml_author_name<\/author_name>\r\n<title>$xml_title<\/title>\r\n<keyword>$xml_keyword<\/keyword>\r\n<edit>\r\n<where>$xml_edit_where<\/where>\r\n<when>$xml_edit_when<\/when>\r\n<\/edit>\r\n<phpseclibKey>$keytxt<\/phpseclibKey>\r\n<TextHeight>$xml_TextHeight<\/TextHeight>\r\nend_of_quote;\r\n\r\n\t$i = 0;\r\n\t$str = '';\r\n\r\n\tforeach ($xml->question as $q) {\r\n\t\t$i = $i + 1;\r\n\t\t$str = $str.\"<question>\\n\\n<num>\".$i.\"<\/num>\\n\";\r\n\r\n\t\tif ((string)$q->AnswerTest == \"Glossary\") { \/\/ Glossary \u306f\u5229\u7528\u3057\u306a\u3044\r\n\t\t\t$str = $str.\"<AnswerTest>none<\/AnswerTest>\\n\";\r\n\t\t\t$tmp = trim((string)$q->TAns);\r\n\t\t\t$TAry = explode('_',$tmp);\r\n\t\t\t$q->TAns = $TAry[0];\r\n\t\t\t$q->AnsTestOpt = \"\";\r\n\t\t} else if ((string)$q->AnswerTest == \"NLanguage\"){ \/\/ NL3.0 \u306e\u30b3\u30f3\u30c6\u30f3\u30c4\r\n\t\t\t$tmpTest = (string)$q->FilterType;\r\n\t\t\tif ($tmpTest == \"none\") {\r\n\t\t\t\t$str = $str.\"<AnswerTest>none<\/AnswerTest>\\n\";\r\n\t\t\t} elseif ($tmpTest == \"tex\"){\r\n\t\t\t\t$str = $str.\"<AnswerTest>tex<\/AnswerTest>\\n\";\r\n\t\t\t} elseif ($tmpTest == \"mhchem\"){\r\n\t\t\t\t$str = $str.\"<AnswerTest>tex<\/AnswerTest>\\n\";\r\n\t\t\t} elseif ($tmpTest == \"dictation\"){\r\n\t\t\t\t$str = $str.\"<AnswerTest>dictation<\/AnswerTest>\\n\";\t\r\n\t\t\t} elseif ($tmpTest == \"expression\"){\r\n\t\t\t\t$str = $str.\"<AnswerTest>AlgEquiv<\/AnswerTest>\\n\";\r\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000} \t\t\r\n\r\n\t\t}  else {\r\n\t\t\t$str = $str.\"<AnswerTest>\".$q->AnswerTest.\"<\/AnswerTest>\\n\";\r\n\t\t}\r\n\r\n\t\tif ($q->Allotment) {\r\n\t\t\t$str = $str.\"<Allotment>\".$q->Allotment.\"<\/Allotment>\\n\";\r\n\t\t} else {\r\n\t\t\t$str = $str.\"<Allotment>5<\/Allotment>\\n\";\r\n\t\t}\r\n\r\n\t\t$str = $str.'<size>'.$q->size.\"<\/size>\\n\";\r\n\r\n\t\tif ($q->verticalSize) {\r\n\t\t\t$str = $str.\"<verticalSize>\".$q->verticalSize.\"<\/verticalSize>\\n\";\r\n\t\t} else {\r\n\t\t\t$str = $str.\"<verticalSize>24<\/verticalSize>\\n\";\r\n\t\t}\r\n\r\n\t\t$str = $str.'<x>'.$q->x.\"<\/x>\\n\";\r\n\t\t$str = $str.'<y>'.$q->y.\"<\/y>\\n\";\r\n\t\t$str = $str.\"<SAns><\/SAns>\\n\";\r\n\t\t$str = $str.'<TAns>'.htmlentities((string)$q->TAns).\"<\/TAns>\\n\"; \/\/\u6b64\u51e6\u306f\u30a8\u30f3\u30c6\u30a3\u30c6\u30a3\u30fc\u3092\u304b\u3051\u308b\u3002CDATA\u30bb\u30af\u30b7\u30e7\u30f3\u3068\u306e\u9055\u3044\u3002\r\n\t\t$str = $str.'<AnsTestOpt>'.$q->AnsTestOpt.\"<\/AnsTestOpt>\\n\";\r\n\r\n\t\tif ($q->operation4sans) {\r\n\t\t\tif (trim($q->operation4sans->text) == \"\") {\r\n\t\t\t\t$str = $str.\"<operation4sans><text><![CDATA[sans:''sans;]]><\/text><\/operation4sans>\\n\";\r\n\t\t\t} else {\r\n\t\t\t\t$str = $str.'<operation4sans><text><![CDATA['.$q->operation4sans->text.\"]]><\/text><\/operation4sans>\\n\";\r\n\t\t\t}\r\n\t\t\tif (trim($q->operation4tans->text) == \"\") {\r\n\t\t\t\t$str = $str.\"<operation4tans><text><![CDATA[tans:''tans;]]><\/text><\/operation4tans>\\n\";\r\n\t\t\t} else {\r\n\t\t\t\t$str = $str.'<operation4tans><text><![CDATA['.$q->operation4tans->text.\"]]><\/text><\/operation4tans>\\n\";\r\n\t\t\t}\r\n\r\n\t\t} else if ($q->operation){\r\n\t\t\t$str = $str.'<operation4sans><text><![CDATA['.$q->operation->text.\"]]><\/text><\/operation4sans>\\n\";\r\n\t\t\t$str = $str.'<operation4tans><text><![CDATA['.$q->operation4tans->text.\"]]><\/text><\/operation4tans>\\n\";\r\n\t\t} else {\r\n\t\t\t$str = $str.\"<operation4sans><text><![CDATA[sans:''sans;]]><\/text><\/operation4sans>\\n\";\r\n\t\t\t$str = $str.\"<operation4tans><text><![CDATA[tans:''tans;]]><\/text><\/operation4tans>\\n\";\r\n\t\t}\r\n\t\t$str = $str.\"<\/question>\\n\\n\";\r\n\t}\r\n\t$configstr = $configstr.$str.\"<\/root>\";\r\n\treturn $configstr;\r\n}<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
\u554f\u984c\u30d0\u30f3\u30af scorm_portal \u306e\u30b3\u30f3\u30c6\u30f3\u30c4\u3092\u3001NLportal 4.0  … Read More »<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"class_list":["post-6689","post","type-post","status-publish","format-standard","hentry","category-column"],"_links":{"self":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/6689","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6689"}],"version-history":[{"count":8,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/6689\/revisions"}],"predecessor-version":[{"id":6697,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/6689\/revisions\/6697"}],"wp:attachment":[{"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6689"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6689"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/zairyo.susi.oita-u.ac.jp\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6689"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}