#\u30d5\u30a1\u30a4\u30eb\uff11\u306e\u51e6\u7406
\nif ( length($query->param(‘i_img1’)) > 0 ) {
\n$fname = basename($query->param(‘i_img1’));
\n$fname =~ s\/(^.*\\\/)|(^.*\\\\)\/\/;<\/p>\n
#20130212\u00a0 \u30bf\u30a4\u30e0\u30b9\u30bf\u30f3\u30d7\u3092\u30d5\u30a1\u30a4\u30eb\u540d\u306b\u3059\u308b*************************************************
\nmy $tm_now=time;
\n$fname =~ s\/(^.*\\.)\/$tm_now\\.\/;
\n#********************************************************************************************yasu<\/p>\n
$newfile = “$upload_dir\/$fname”;
\n# \u540c\u3058\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u306a\u3044\u304b\u30c1\u30a7\u30c3\u30af
\nif ( -f “$newfile”) {
\n&error($fname.”\u3068\u540c\u3058\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u5b58\u5728\u3057\u307e\u3059\u3002” .
\n“\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u5909\u66f4\u3057\u3066\u9001\u4fe1\u3057\u3066\u304f\u3060\u3055\u3044\u3002\\n”);
\n}
\n}
\n#\u30d5\u30a1\u30a4\u30eb\uff12\u306e\u51e6\u7406
\nif ( length($query->param(‘i_img2’)) > 0 ) {
\n$fname2 = basename($query->param(‘i_img2’));
\n$fname2 =~ s\/(^.*\\\/)|(^.*\\\\)\/\/;<\/p>\n
#20130212 \u30bf\u30a4\u30e0\u30b9\u30bf\u30f3\u30d7\u3092\u30d5\u30a1\u30a4\u30eb\u540d\u306b\u3059\u308b*************************************************
\n#\uff12\u679a\u76ee\u306e\u753b\u50cf\u306e\u540d\u524d\u306b\u306f\u30d7\u30e9\u30b9\uff11\u3092\u3064\u3051\u3066\u3042\u308b\u3002
\n#\u3053\u308c\u3092\u4ed8\u3051\u306a\u3044\u3068\u77ac\u6642\u306e\u52d5\u4f5c\u306a\u306e\u3067\u540c\u3058\u30d5\u30a1\u30a4\u30eb\u540d\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3002
\nmy $tm_now2=time + 1;
\n$fname2 =~ s\/(^.*\\.)\/$tm_now2\\.\/;
\n#********************************************************************************************yasu<\/p>\n
$newfile2 = “$upload_dir\/$fname2”;
\n# \u540c\u3058\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u306a\u3044\u304b\u30c1\u30a7\u30c3\u30af
\nif ( -f “$newfile2″) {
\n&error($fname2.”\u3068\u540c\u3058\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u5b58\u5728\u3057\u307e\u3059\u3002” .
\n“\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u5909\u66f4\u3057\u3066\u9001\u4fe1\u3057\u3066\u304f\u3060\u3055\u3044\u3002\\n”);
\n}
\n}<\/p>\n
#\u30d5\u30a1\u30a4\u30eb\u304c\u9078\u629e\u3055\u308c\u3066\u3044\u308b\u304b\u30c1\u30a7\u30c3\u30af
\n#\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u51e6\u7406\uff11
\n#upload\u30e1\u30bd\u30c3\u30c9\u306b\u3088\u308a\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30a1\u30a4\u30eb\u30cf\u30f3\u30c9\u30eb\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002
\n#upload\u30e1\u30bd\u30c3\u30c9\u306e\u8fd4\u308a\u5024\u306f\u30d5\u30a1\u30a4\u30eb\u30cf\u30f3\u30c9\u30eb\u306b\u306a\u308a\u307e\u3059\u3002
\n#\u3053\u306e\u30d5\u30a1\u30a4\u30eb\u30cf\u30f3\u30c9\u30eb\u306b\u5bfe\u3057\u3066\u51e6\u7406\u3092\u3059\u308b\u3053\u3068\u3067\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b\u30d5\u30a1\u30a4\u30eb\u3092\u64cd\u4f5c\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002
\n#\u30d5\u30a1\u30a4\u30eb\u304c\u9078\u629e\u3055\u308c\u3066\u3044\u308b\u304b\u30c1\u30a7\u30c3\u30af
\nif ( length( $fname ) > 0 ){
\nmy $fh = $query->upload(‘i_img1’);<\/p>\n
#2013-2-8 yasu \u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u7528\u753b\u50cf\u3092\uff12\uff10\uff10\u30d4\u30af\u30bb\u30eb\u56db\u65b9\u306b\u7d0d\u3081\u308b\u3088\u3046\u7e2e\u5c0f **********
\nmy $temp_path = $query->tmpFileName($fh);\u2192\u3053\u308c\u304c\u5fc5\u8981
\nmy $image = Image::Magick->new;
\n$image->Read($temp_path);
\n$image->Resize(
\ngeometry => “200×200”,
\n);
\n$image->Write($temp_path);
\n#***************************************************************************<\/p>\n
#copy\u30e1\u30bd\u30c3\u30c9\u3067\u30d5\u30a1\u30a4\u30eb\u30cf\u30f3\u30c9\u30eb\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u30b3\u30d4\u30fc\u3057\u307e\u3059\u3002
\n#\u30d5\u30a1\u30a4\u30eb\u30cf\u30f3\u30c9\u30eb\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304d\u51fa\u305b\u3070\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3067\u304d\u308b\u306e\u3067open, while, binmode, print, close\u3067\u3082
\n#\u30d5\u30a1\u30a4\u30eb\u3092\u66f8\u304d\u51fa\u3059\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u3053\u3053\u3067\u306fcopy\u306e\u4e00\u30b3\u30de\u30f3\u30c9\u3067\u6e08\u307e\u3057\u3066\u3044\u307e\u3059\u3002
\n#\u3053\u306e\u6642\u70b9\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u306f\u5b8c\u4e86\u3057\u307e\u3059\u3002<\/p>\n
# 20130212 yasu ******************************************************
\n#copy ($fh, “$newfile”);
\nmove ($temp_path, “$newfile”);
\n#****************************************************************** yasu<\/p>\n
#\u30d1\u30fc\u30df\u30c3\u30b7\u30e7\u30f3\u3092\u5909\u66f4
\nchmod (0666, “$newfile”);
\n}<\/p>\n
#\u30d5\u30a1\u30a4\u30eb\u304c\u9078\u629e\u3055\u308c\u3066\u3044\u308b\u304b\u30c1\u30a7\u30c3\u30af
\nif ( length( $fname2 ) > 0 ){
\n#\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u51e6\u7406\uff12
\nmy $fh2 = $query->upload(‘i_img2’);<\/p>\n
#2013-2-8\u00a0 \u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u7528\u753b\u50cf\u3092\uff12\uff10\uff10\u30d4\u30af\u30bb\u30eb\u56db\u65b9\u306b\u7d0d\u3081\u308b\u3088\u3046\u7e2e\u5c0f **********
\nmy $temp_path2 = $query->tmpFileName($fh2);
\nmy $image = Image::Magick->new;
\n$image->Read($temp_path2);
\n$image->Resize(
\ngeometry => “200×200”,
\n);
\n$image->Write($temp_path2);
\n#***************************************************************************<\/p>\n
# 20130212\u00a0 ******************************************************
\n#copy ($fh2, “$newfile2”);
\nmove ($temp_path2, “$newfile2”);
\n#****************************************************************** yasu<\/p>\n
#\u30d1\u30fc\u30df\u30c3\u30b7\u30e7\u30f3\u3092\u5909\u66f4
\nchmod (0666, “$newfile2”);
\n}<\/p>\n","protected":false},"excerpt":{"rendered":"
#\u30d5\u30a1\u30a4\u30eb\uff11\u306e\u51e6\u7406 if ( length($query->param(‘i_img1’)) > 0 ) { $fname = basename($query->param(&# […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"vkexunit_cta_each_option":"","footnotes":""},"categories":[15],"tags":[],"class_list":["post-164","post","type-post","status-publish","format-standard","hentry","category-cgi"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/164","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/comments?post=164"}],"version-history":[{"count":1,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/164\/revisions"}],"predecessor-version":[{"id":165,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/164\/revisions\/165"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=164"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=164"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=164"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}