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

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

Jsp/Servlet

开发平台：

Java

io.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: io.pl
  12. #   This is the File Manager Connector for Perl.
  13. #  
  14. #  File Authors:
  15. #   Takashi Yamaguchi (jack@omakase.net)
  16. #####
  18. sub GetUrlFromPath
  19. {
  20. local($resourceType, $folderPath) = @_;
  22. if($resourceType eq '') {
  23. $rmpath = &RemoveFromEnd($GLOBALS{'UserFilesPath'},'/');
  24. return("$rmpath$folderPath");
  25. } else {
  26. return("$GLOBALS{'UserFilesPath'}$resourceType$folderPath");
  27. }
  28. }
  30. sub RemoveExtension
  31. {
  32. local($fileName) = @_;
  33. local($path, $base, $ext);
  34. if($fileName !~ /./) {
  35. $fileName .= '.';
  36. }
  37. if($fileName =~ /([^\/]*).(.*)$/) {
  38. $base = $1;
  39. $ext  = $2;
  40. if($fileName =~ /(.*)$base.$ext$/) {
  41. $path = $1;
  42. }
  43. }
  44. return($path,$base,$ext);
  46. }
  48. sub ServerMapFolder
  49. {
  50. local($resourceType,$folderPath) = @_;
  52. # Get the resource type directory.
  53. $sResourceTypePath = $GLOBALS{'UserFilesDirectory'} . $resourceType . '/';
  55. # Ensure that the directory exists.
  56. &CreateServerFolder($sResourceTypePath);
  58. # Return the resource type directory combined with the required path.
  59. $rmpath = &RemoveFromStart($folderPath,'/');
  60. return("$sResourceTypePath$rmpath");
  61. }
  63. sub GetParentFolder
  64. {
  65. local($folderPath) = @_;
  67. $folderPath =~ s/[/][^/]+[/]?$//g;
  68. return $folderPath;
  69. }
  71. sub CreateServerFolder
  72. {
  73. local($folderPath) = @_;
  75. $sParent = &GetParentFolder($folderPath);
  76. # Check if the parent exists, or create it.
  77. if(!(-e $sParent)) {
  78. $sErrorMsg = &CreateServerFolder($sParent);
  79. if($sErrorMsg == 1) {
  80. return(1);
  81. }
  82. }
  83. if(!(-e $folderPath)) {
  84. umask(000);
  85. mkdir("$folderPath",0777);
  86. chmod(0777,"$folderPath");
  87. return(0);
  88. } else {
  89. return(1);
  90. }
  91. }
  93. sub GetRootPath
  94. {
  95. #use Cwd;
  97. # my $dir = getcwd;
  98. # print $dir;
  99. # $dir  =~ s/$ENV{'DOCUMENT_ROOT'}//g;
  100. # print $dir;
  101. # return($dir);
  103. # $wk = $0;
  104. # $wk =~ s//connector.cgi//g;
  105. # if($wk) {
  106. # $current_dir = $wk;
  107. # } else {
  108. # $current_dir = `pwd`;
  109. # }
  110. # return($current_dir);
  111. use Cwd;
  113. if($ENV{'DOCUMENT_ROOT'}) {
  114. $dir = $ENV{'DOCUMENT_ROOT'};
  115. } else {
  116. my $dir = getcwd;
  117. $workdir =~ s//connector.cgi//g;
  118. $dir  =~ s/$workdir//g;
  119. }
  120. return($dir);
  124. }
  125. 1;