开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
upload_fck.pl
资源名称：Myblog.rar　[点击查看]
上传用户：wlfwy2004
上传日期：2016-12-12
资源大小：33978k
文件大小：18k
源码类别：

Jsp/Servlet

开发平台：

Java

upload_fck.pl：源码内容
  1. #####
  2. #  FCKeditor - The text editor for internet
  3. #  Copyright (C) 2003-2005 Frederico Caldeira Knabben
  4. #  
  5. #  Licensed under the terms of the GNU Lesser General Public License:
  6. #   http://www.opensource.org/licenses/lgpl-license.php
  7. #  
  8. #  For further information visit:
  9. #   http://www.fckeditor.net/
  10. #  
  11. #  File Name: upload_fck.pl
  12. #   This is the File Manager Connector for Perl.
  13. #  
  14. #  File Authors:
  15. #   Takashi Yamaguchi (jack@omakase.net)
  16. #####
  18. # image data save dir
  19. $img_dir = './temp/';
  22. # File size max(unit KB)
  23. $MAX_CONTENT_SIZE =  30000;
  25. # Filelock (1=use,0=not use)
  26. $PM{'flock'} = '1';
  29. # upload Content-Type list
  30. my %UPLOAD_CONTENT_TYPE_LIST = (
  31. 'image/(x-)?png' => 'png', # PNG image
  32. 'image/p?jpe?g' => 'jpg', # JPEG image
  33. 'image/gif' => 'gif', # GIF image
  34. 'image/x-xbitmap' => 'xbm', # XBM image
  36. 'image/(x-(MS-)?)?bmp' => 'bmp', # Windows BMP image
  37. 'image/pict' => 'pict', # Macintosh PICT image
  38. 'image/tiff' => 'tif', # TIFF image
  39. 'application/pdf' => 'pdf', # PDF image
  40. 'application/x-shockwave-flash' => 'swf', # Shockwave Flash
  42. 'video/(x-)?msvideo' => 'avi', # Microsoft Video
  43. 'video/quicktime' => 'mov', # QuickTime Video
  44. 'video/mpeg' => 'mpeg', # MPEG Video
  45. 'video/x-mpeg2' => 'mpv2', # MPEG2 Video
  47. 'audio/(x-)?midi?' => 'mid', # MIDI Audio
  48. 'audio/(x-)?wav' => 'wav', # WAV Audio
  49. 'audio/basic' => 'au', # ULAW Audio
  50. 'audio/mpeg' => 'mpga', # MPEG Audio
  52. 'application/(x-)?zip(-compressed)?' => 'zip', # ZIP Compress
  54. 'text/html' => 'html', # HTML
  55. 'text/plain' => 'txt', # TEXT
  56. '(?:application|text)/(?:rtf|richtext)' => 'rtf', # RichText
  58. 'application/msword' => 'doc', # Microsoft Word
  59. 'application/vnd.ms-excel' => 'xls', # Microsoft Excel
  61. ''
  62. );
  64. # Upload is permitted.
  65. # A regular expression is possible.
  66. my %UPLOAD_EXT_LIST = (
  67. 'png' => 'PNG image',
  68. 'p?jpe?g|jpe|jfif|pjp' => 'JPEG image',
  69. 'gif' => 'GIF image',
  70. 'xbm' => 'XBM image',
  72. 'bmp|dib|rle' => 'Windows BMP image',
  73. 'pi?ct' => 'Macintosh PICT image',
  74. 'tiff?' => 'TIFF image',
  75. 'pdf' => 'PDF image',
  76. 'swf' => 'Shockwave Flash',
  78. 'avi' => 'Microsoft Video',
  79. 'moo?v|qt' => 'QuickTime Video',
  80. 'm(p(e?gv?|e|v)|1v)' => 'MPEG Video',
  81. 'mp(v2|2v)' => 'MPEG2 Video',
  83. 'midi?|kar|smf|rmi|mff' => 'MIDI Audio',
  84. 'wav' => 'WAVE Audio',
  85. 'au|snd' => 'ULAW Audio',
  86. 'mp(e?ga|2|a|3)|abs' => 'MPEG Audio',
  88. 'zip' => 'ZIP Compress',
  89. 'lzh' => 'LZH Compress',
  90. 'cab' => 'CAB Compress',
  92. 'd?html?' => 'HTML',
  93. 'rtf|rtx' => 'RichText',
  94. 'txt|text' => 'Text',
  96. ''
  97. );
  100. # sjis or euc
  101. my $CHARCODE = 'sjis';
  103. $TRANS_2BYTE_CODE = 0;
  105. ##############################################################################
  106. # Summary
  107. #
  108. # Form Read input
  109. #
  110. # Parameters
  111. # Returns
  112. # Memo
  113. ##############################################################################
  114. sub read_input
  115. {
  116. eval("use File::Copy;");
  117. eval("use File::Path;");
  119. my ($FORM) = @_;
  122. mkdir($img_dir,0777);
  123. chmod(0777,$img_dir);
  125. undef $img_data_exists;
  126. undef @NEWFNAMES;
  127. undef @NEWFNAME_DATA;
  129. if($ENV{'CONTENT_LENGTH'} > 10000000 || $ENV{'CONTENT_LENGTH'} > $MAX_CONTENT_SIZE * 1024) {
  130. &upload_error(
  131. 'Size Error',
  132. sprintf(
  133. "Transmitting size is too large.MAX <strong>%d KB</strong> Now Size <strong>%d KB</strong>(<strong>%d bytes</strong> Over)",
  134. $MAX_CONTENT_SIZE,
  135. int($ENV{'CONTENT_LENGTH'} / 1024),
  136. $ENV{'CONTENT_LENGTH'} - $MAX_CONTENT_SIZE * 1024
  137. )
  138. );
  139. }
  141. my $Buffer;
  142. if($ENV{'CONTENT_TYPE'} =~ /multipart/form-data/) {
  143. # METHOD POST only
  144. return unless($ENV{'CONTENT_LENGTH'});
  146. binmode(STDIN);
  147. # STDIN A pause character is detected.'(MacIE3.0 boundary of $ENV{'CONTENT_TYPE'} cannot be trusted.)
  148. my $Boundary = <STDIN>;
  149. $Boundary =~ s/x0Dx0A//;
  150. $Boundary = quotemeta($Boundary);
  151. while(<STDIN>) {
  152. if(/^s*Content-Disposition:/i) {
  153. my($name,$ContentType,$FileName);
  154. # form data get
  155. if(/bname="([^"]+)"/i || /bname=([^s:;]+)/i) {
  156. $name = $1;
  157. $name =~ tr/+/ /;
  158. $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  159. &Encode($name);
  160. }
  161. if(/bfilename="([^"]*)"/i || /bfilename=([^s:;]*)/i) {
  162. $FileName = $1 || 'unknown';
  163. }
  164. # head read
  165. while(<STDIN>) {
  166. last if(! /w/);
  167. if(/^s*Content-Type:s*"([^"]+)"/i || /^s*Content-Type:s*([^s:;]+)/i) {
  168. $ContentType = $1;
  169. }
  170. }
  171. # body read
  172. $value = "";
  173. while(<STDIN>) {
  174. last if(/^$Boundary/o);
  175. $value .= $_;
  176. };
  177. $lastline = $_;
  178. $value =~s /x0Dx0A$//;
  179. if($value ne '') {
  180. if($FileName || $ContentType) {
  181. $img_data_exists = 1;
  182. (
  183. $FileName, #
  184. $Ext, #
  185. $Length, #
  186. $ImageWidth, #
  187. $ImageHeight, #
  188. $ContentName #
  189. ) = &CheckContentType($value,$FileName,$ContentType);
  191. $FORM{$name} = $FileName;
  192. $new_fname = $FileName;
  193. push(@NEWFNAME_DATA,"$FileNamet$Extt$Lengtht$ImageWidtht$ImageHeightt$ContentName");
  195. # Multi-upload correspondence
  196. push(@NEWFNAMES,$new_fname);
  197. open(OUT,">$img_dir/$new_fname");
  198. binmode(OUT);
  199. eval "flock(OUT,2);" if($PM{'flock'} == 1);
  200. print OUT $value;
  201. eval "flock(OUT,8);" if($PM{'flock'} == 1);
  202. close(OUT);
  204. } elsif($name) {
  205. $value =~ tr/+/ /;
  206. $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  207. &Encode($value,'trans');
  208. $FORM{$name} .= "" if(defined($FORM{$name}));
  209. $FORM{$name} .= $value;
  210. }
  211. }
  212. };
  213. last if($lastline =~ /^$Boundary--/o);
  214. }
  215. } elsif($ENV{'CONTENT_LENGTH'}) {
  216. read(STDIN,$Buffer,$ENV{'CONTENT_LENGTH'});
  217. }
  218. foreach(split(/&/,$Buffer),split(/&/,$ENV{'QUERY_STRING'})) {
  219. my($name, $value) = split(/=/);
  220. $name =~ tr/+/ /;
  221. $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  222. $value =~ tr/+/ /;
  223. $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  225. &Encode($name);
  226. &Encode($value,'trans');
  227. $FORM{$name} .= "" if(defined($FORM{$name}));
  228. $FORM{$name} .= $value;
  230. }
  232. }
  234. ##############################################################################
  235. # Summary
  236. #
  237. # CheckContentType
  238. #
  239. # Parameters
  240. # Returns
  241. # Memo
  242. ##############################################################################
  243. sub CheckContentType
  244. {
  246. my($DATA,$FileName,$ContentType) = @_;
  247. my($Ext,$ImageWidth,$ImageHeight,$ContentName,$Infomation);
  248. my $DataLength = length($$DATA);
  250. # An unknown file type
  252. $_ = $ContentType;
  253. my $UnknownType = (
  254. !$_
  255. || /^application/(x-)?macbinary$/i
  256. || /^application/applefile$/i
  257. || /^application/octet-stream$/i
  258. || /^text/plane$/i
  259. || /^x-unknown-content-type/i
  260. );
  262. # MacBinary(Mac Unnecessary data are deleted.)
  263. if($UnknownType || $ENV{'HTTP_USER_AGENT'} =~ /Macintosh|Mac_/) {
  264. if($DataLength > 128 && !unpack("C",substr($$DATA,0,1)) && !unpack("C",substr($$DATA,74,1)) && !unpack("C",substr($$DATA,82,1)) ) {
  265. my $MacBinary_ForkLength = unpack("N", substr($$DATA, 83, 4)); # ForkLength Get
  266. my $MacBinary_FileName = quotemeta(substr($$DATA, 2, unpack("C",substr($$DATA, 1, 1))));
  267. if($MacBinary_FileName && $MacBinary_ForkLength && $DataLength >= $MacBinary_ForkLength + 128
  268. && ($FileName =~ /$MacBinary_FileName/i || substr($$DATA,102,4) eq 'mBIN')) { # DATA TOP 128byte MacBinary!!
  269. $$DATA = substr($$DATA,128,$MacBinary_ForkLength);
  270. my $ResourceLength = $DataLength - $MacBinary_ForkLength - 128;
  271. $DataLength = $MacBinary_ForkLength;
  272. }
  273. }
  274. }
  276. # A file name is changed into EUC.
  277. # &jcode::convert($FileName,'euc',$FormCodeDefault);
  278. # &jcode::h2z_euc($FileName);
  279. $FileName =~ s/^.*\//; # Windows, Mac
  280. $FileName =~ s/^.*///; # UNIX
  281. $FileName =~ s/&/&amp;/g;
  282. $FileName =~ s/"/&quot;/g;
  283. $FileName =~ s/</&lt;/g;
  284. $FileName =~ s/>/&gt;/g;
  285. #
  286. # if($CHARCODE ne 'euc') {
  287. # &jcode::convert($FileName,$CHARCODE,'euc');
  288. # }
  290. # An extension is extracted and it changes into a small letter.
  291. my $FileExt;
  292. if($FileName =~ /.(w+)$/) {
  293. $FileExt = $1;
  294. $FileExt =~ tr/A-Z/a-z/;
  295. }
  297. # Executable file detection (ban on upload)
  298. if($$DATA =~ /^MZ/) {
  299. $Ext = 'exe';
  300. }
  301. # text
  302. if(!$Ext && ($UnknownType || $ContentType =~ /^text//i || $ContentType =~ /^application/(?:rtf|richtext)$/i || $ContentType =~ /^image/x-xbitmap$/i)
  303. && ! $$DATA =~ /[00-06177377]/) {
  304. # $$DATA =~ s/x0Dx0A/n/g;
  305. # $$DATA =~ tr/x0Dx0A/nn/;
  306. #
  307. # if(
  308. # $$DATA =~ /<s*SCRIPT(?:.|n)*?>/i
  309. # || $$DATA =~ /<s*(?:.|n)*?bONLOADs*=(?:.|n)*?>/i
  310. # || $$DATA =~ /<s*(?:.|n)*?bONCLICKs*=(?:.|n)*?>/i
  311. # ) {
  312. # $Infomation = '(JavaScript contains)';
  313. # }
  314. # if($$DATA =~ /<s*TABLE(?:.|n)*?>/i
  315. # || $$DATA =~ /<s*BLINK(?:.|n)*?>/i
  316. # || $$DATA =~ /<s*MARQUEE(?:.|n)*?>/i
  317. # || $$DATA =~ /<s*OBJECT(?:.|n)*?>/i
  318. # || $$DATA =~ /<s*EMBED(?:.|n)*?>/i
  319. # || $$DATA =~ /<s*FRAME(?:.|n)*?>/i
  320. # || $$DATA =~ /<s*APPLET(?:.|n)*?>/i
  321. # || $$DATA =~ /<s*FORM(?:.|n)*?>/i
  322. # || $$DATA =~ /<s*(?:.|n)*?bSRCs*=(?:.|n)*?>/i
  323. # || $$DATA =~ /<s*(?:.|n)*?bDYNSRCs*=(?:.|n)*?>/i
  324. # ) {
  325. # $Infomation = '(the HTML tag which is not safe is included)';
  326. # }
  328. if($FileExt =~ /^txt$/i || $FileExt =~ /^cgi$/i || $FileExt =~ /^pl$/i) { # Text File
  329. $Ext = 'txt';
  330. } elsif($ContentType =~ /^text/html$/i || $FileExt =~ /html?/i || $$DATA =~ /<s*HTML(?:.|n)*?>/i) { # HTML File
  331. $Ext = 'html';
  332. } elsif($ContentType =~ /^image/x-xbitmap$/i || $FileExt =~ /^xbm$/i) { # XBM(x-BitMap) Image
  333. my $XbmName = $1;
  334. my ($XbmWidth, $XbmHeight);
  335. if($$DATA =~ /#defines*$XbmName_widths*(d+)/i) {
  336. $XbmWidth = $1;
  337. }
  338. if($$DATA =~ /#defines*$XbmName_heights*(d+)/i) {
  339. $XbmHeight = $1;
  340. }
  341. if($XbmWidth && $XbmHeight) {
  342. $Ext = 'xbm';
  343. $ImageWidth = $XbmWidth;
  344. $ImageHeight = $XbmHeight;
  345. }
  346. } else { # 
  347. $Ext = 'txt';
  348. }
  349. }
  351. # image
  352. if(!$Ext && ($UnknownType || $ContentType =~ /^image//i)) {
  353. # PNG
  354. if($$DATA =~ /^x89PNGx0Dx0Ax1Ax0A/) {
  355. if(substr($$DATA, 12, 4) eq 'IHDR') {
  356. $Ext = 'png';
  357. ($ImageWidth, $ImageHeight) = unpack("N2", substr($$DATA, 16, 8));
  358. }
  359. } elsif($$DATA =~ /^GIF8(?:9|7)a/) { # GIF89a(modified), GIF89a, GIF87a
  360. $Ext = 'gif';
  361. ($ImageWidth, $ImageHeight) = unpack("v2", substr($$DATA, 6, 4));
  362. } elsif($$DATA =~ /^IIx2ax00x08x00x00x00/ || $$DATA =~ /^MMx00x2ax00x00x00x08/) { # TIFF
  363. $Ext = 'tif';
  364. } elsif($$DATA =~ /^BM/) { # BMP
  365. $Ext = 'bmp';
  366. } elsif($$DATA =~ /^xFFxD8xFF/ || $$DATA =~ /JFIF/) { # JPEG
  367. my $HeaderPoint = index($$DATA, "xFFxD8xFF", 0);
  368. my $Point = $HeaderPoint + 2;
  369. while($Point < $DataLength) {
  370. my($Maker, $MakerType, $MakerLength) = unpack("C2n",substr($$DATA,$Point,4));
  371. if($Maker != 0xFF || $MakerType == 0xd9 || $MakerType == 0xda) {
  372. last;
  373. } elsif($MakerType >= 0xC0 && $MakerType <= 0xC3) {
  374. $Ext = 'jpg';
  375. ($ImageHeight, $ImageWidth) = unpack("n2", substr($$DATA, $Point + 5, 4));
  376. if($HeaderPoint > 0) {
  377. $$DATA = substr($$DATA, $HeaderPoint);
  378. $DataLength = length($$DATA);
  379. }
  380. last;
  381. } else {
  382. $Point += $MakerLength + 2;
  383. }
  384. }
  385. }
  386. }
  388. # audio
  389. if(!$Ext && ($UnknownType || $ContentType =~ /^audio//i)) {
  390. # MIDI Audio
  391. if($$DATA =~ /^MThd/) {
  392. $Ext = 'mid';
  393. } elsif($$DATA =~ /^x2esnd/) { # ULAW Audio
  394. $Ext = 'au';
  395. } elsif($$DATA =~ /^RIFF/ || $$DATA =~ /^ID3/ && $$DATA =~ /RIFF/) {
  396. my $HeaderPoint = index($$DATA, "RIFF", 0);
  397. $_ = substr($$DATA, $HeaderPoint + 8, 8);
  398. if(/^WAVEfmt $/) {
  399. # WAVE
  400. if(unpack("V",substr($$DATA, $HeaderPoint + 16, 4)) == 16) {
  401. $Ext = 'wav';
  402. } else { # RIFF WAVE MP3
  403. $Ext = 'mp3';
  404. }
  405. } elsif(/^RMIDdata$/) { # RIFF MIDI
  406. $Ext = 'rmi';
  407. } elsif(/^RMP3data$/) { # RIFF MP3
  408. $Ext = 'rmp';
  409. }
  410. if($ContentType =~ /^audio//i) {
  411. $Infomation .= '(RIFF '. substr($$DATA, $HeaderPoint + 8, 4). ')';
  412. }
  413. }
  414. }
  416. # a binary file
  417. unless ($Ext) {
  418. # PDF image
  419. if($$DATA =~ /^%PDF/) {
  420. # Picture size is not measured.
  421. $Ext = 'pdf';
  422. } elsif($$DATA =~ /^FWS/) { # Shockwave Flash
  423. $Ext = 'swf';
  424. } elsif($$DATA =~ /^RIFF/ || $$DATA =~ /^ID3/ && $$DATA =~ /RIFF/) {
  425. my $HeaderPoint = index($$DATA, "RIFF", 0);
  426. $_ = substr($$DATA,$HeaderPoint + 8, 8);
  427. # AVI
  428. if(/^AVI LIST$/) {
  429. $Ext = 'avi';
  430. }
  431. if($ContentType =~ /^video//i) {
  432. $Infomation .= '(RIFF '. substr($$DATA, $HeaderPoint + 8, 4). ')';
  433. }
  434. } elsif($$DATA =~ /^PK/) { # ZIP Compress File
  435. $Ext = 'zip';
  436. } elsif($$DATA =~ /^MSCF/) { # CAB Compress File
  437. $Ext = 'cab';
  438. } elsif($$DATA =~ /^Rar!/) { # RAR Compress File
  439. $Ext = 'rar';
  440. } elsif(substr($$DATA, 2, 5) =~ /^-lh(d+|d)-$/) { # LHA Compress File
  441. $Infomation .= "(lh$1)";
  442. $Ext = 'lzh';
  443. } elsif(substr($$DATA, 325, 25) eq "Apple Video Media Handler" || substr($$DATA, 325, 30) eq "Apple x83x72x83x66x83x49x81x45x83x81x83x66x83x42x83x41x83x6Ex83x93x83x68x83x89") {
  444. # QuickTime
  445. $Ext = 'mov';
  446. }
  447. }
  449. # Header analysis failure
  450. unless ($Ext) {
  451. # It will be followed if it applies for the MIME type from the browser.
  452. foreach (keys %UPLOAD_CONTENT_TYPE_LIST) {
  453. next unless ($_);
  454. if($ContentType =~ /^$_$/i) {
  455. $Ext = $UPLOAD_CONTENT_TYPE_LIST{$_};
  456. $ContentName = &CheckContentExt($Ext);
  457. if(
  458. grep {$_ eq $Ext;} (
  459. 'png',
  460. 'gif',
  461. 'jpg',
  462. 'xbm',
  463. 'tif',
  464. 'bmp',
  465. 'pdf',
  466. 'swf',
  467. 'mov',
  468. 'zip',
  469. 'cab',
  470. 'lzh',
  471. 'rar',
  472. 'mid',
  473. 'rmi',
  474. 'au',
  475. 'wav',
  476. 'avi',
  477. 'exe'
  478. )
  479. ) {
  480. $Infomation .= ' / Header analysis failure';
  481. }
  482. if($Ext ne $FileExt && &CheckContentExt($FileExt) eq $ContentName) {
  483. $Ext = $FileExt;
  484. }
  485. last;
  486. }
  487. }
  488. # a MIME type is unknown--It judges from an extension.
  489. unless ($Ext) {
  490. $ContentName = &CheckContentExt($FileExt);
  491. if($ContentName) {
  492. $Ext = $FileExt;
  493. $Infomation .= ' / MIME type is unknown('. $ContentType. ')';
  494. last;
  495. }
  496. }
  497. }
  499. # $ContentName = &CheckContentExt($Ext) unless($ContentName);
  500. # if($Ext && $ContentName) {
  501. # $ContentName .=  $Infomation;
  502. # } else {
  503. # &upload_error(
  504. # 'Extension Error',
  505. # "$FileName A not corresponding extension ($Ext)<BR>The extension which can be responded ". join(',', sort values(%UPLOAD_EXT_LIST))
  506. # );
  507. # }
  509. # # SSI Tag Deletion
  510. # if($Ext =~ /.?html?/ && $$DATA =~ /<!/) {
  511. # foreach (
  512. # 'config',
  513. # 'echo',
  514. # 'exec',
  515. # 'flastmod',
  516. # 'fsize',
  517. # 'include'
  518. # ) {
  519. # $$DATA =~ s/#s*$_/&#35;$_/ig
  520. # }
  521. # }
  523. return (
  524. $FileName,
  525. $Ext,
  526. int($DataLength / 1024 + 1),
  527. $ImageWidth,
  528. $ImageHeight,
  529. $ContentName
  530. );
  531. }
  533. ##############################################################################
  534. # Summary
  535. #
  536. # Extension discernment
  537. #
  538. # Parameters
  539. # Returns
  540. # Memo
  541. ##############################################################################
  543. sub CheckContentExt
  544. {
  546. my($Ext) = @_;
  547. my $ContentName;
  548. foreach (keys %UPLOAD_EXT_LIST) {
  549. next unless ($_);
  550. if($_ && $Ext =~ /^$_$/) {
  551. $ContentName = $UPLOAD_EXT_LIST{$_};
  552. last;
  553. }
  554. }
  555. return $ContentName;
  557. }
  559. ##############################################################################
  560. # Summary
  561. #
  562. # Form decode
  563. #
  564. # Parameters
  565. # Returns
  566. # Memo
  567. ##############################################################################
  568. sub Encode
  569. {
  571. my($value,$Trans) = @_;
  573. # my $FormCode = &jcode::getcode($value) || $FormCodeDefault;
  574. # $FormCodeDefault ||= $FormCode;
  575. #
  576. # if($Trans && $TRANS_2BYTE_CODE) {
  577. # if($FormCode ne 'euc') {
  578. # &jcode::convert($value, 'euc', $FormCode);
  579. # }
  580. # &jcode::tr(
  581. # $value,
  582. # "xA3xB0-xA3xB9xA3xC1-xA3xDAxA3xE1-xA3xFA",
  583. # '0-9A-Za-z'
  584. # );
  585. # if($CHARCODE ne 'euc') {
  586. # &jcode::convert($value,$CHARCODE,'euc');
  587. # }
  588. # } else {
  589. # if($CHARCODE ne $FormCode) {
  590. # &jcode::convert($value,$CHARCODE,$FormCode);
  591. # }
  592. # }
  593. # if($CHARCODE eq 'euc') {
  594. # &jcode::h2z_euc($value);
  595. # } elsif($CHARCODE eq 'sjis') {
  596. # &jcode::h2z_sjis($value);
  597. # }
  599. }
  601. ##############################################################################
  602. # Summary
  603. #
  604. # Error Msg
  605. #
  606. # Parameters
  607. # Returns
  608. # Memo
  609. ##############################################################################
  611. sub upload_error
  612. {
  614. local($error_message) = $_[0];
  615. local($error_message2) = $_[1];
  617. print "Content-type: text/htmlnn";
  618. print<<EOF;
  619. <HTML>
  620. <HEAD>
  621. <TITLE>Error Message</TITLE></HEAD>
  622. <BODY>
  623. <table border="1" cellspacing="10" cellpadding="10">
  624. <TR bgcolor="#0000B0">
  625. <TD bgcolor="#0000B0" NOWRAP><font size="-1" color="white"><B>Error Message</B></font></TD>
  626. </TR>
  627. </table>
  628. <UL>
  629. <H4> $error_message </H4>
  630. $error_message2 <BR>
  631. </UL>
  632. </BODY>
  633. </HTML>
  634. EOF
  635. &rm_tmp_uploaded_files;  # Image Temporary deletion
  636. exit;
  637. }
  639. ##############################################################################
  640. # Summary
  641. #
  642. # Image Temporary deletion
  643. #
  644. # Parameters
  645. # Returns
  646. # Memo
  647. ##############################################################################
  649. sub rm_tmp_uploaded_files
  650. {
  651. if($img_data_exists == 1){
  652. sleep 1;
  653. foreach $fname_list(@NEWFNAMES) {
  654. if(-e "$img_dir/$fname_list") {
  655. unlink("$img_dir/$fname_list");
  656. }
  657. }
  658. }
  660. }
  661. 1;