/[docman2]/docman.php
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /docman.php

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by dpavlin, Sat Jul 27 19:27:22 2002 UTC revision 1.10 by dpavlin, Sat Jul 27 20:30:45 2002 UTC
# Line 571  function GifIcon($txt) { Line 571  function GifIcon($txt) {
571  function Navigate($fsRoot,$relDir) {  function Navigate($fsRoot,$relDir) {
572    
573          global $gblEditable, $gblIcon, $gblModDays, $webRoot, $gblHide,          global $gblEditable, $gblIcon, $gblModDays, $webRoot, $gblHide,
574                  $gblIgnoreUnknownFileType,                  $gblIgnoreUnknownFileType, $gblRepositoryDir,
575                  $HTTP_GET_VARS, $html, $realm_config;                  $HTTP_GET_VARS, $html, $realm_config;
576    
577          $self     = $HTTP_SERVER_VARS["PHP_SELF"] ;          $self     = $HTTP_SERVER_VARS["PHP_SELF"] ;
# Line 859  function Navigate($fsRoot,$relDir) { Line 859  function Navigate($fsRoot,$relDir) {
859  <TR><TD></TD><TD COLSPAN=5><HR></TD></TR>  <TR><TD></TD><TD COLSPAN=5><HR></TD></TR>
860    
861  <?  <?
862  if (file_exists(".info.inc")) {  
863    if (file_exists("$gblRepositoryDir/.info.inc")) {
864          print "<TR><TD></TD><TD COLSPAN=5>";          print "<TR><TD></TD><TD COLSPAN=5>";
865          include(".info.inc");          include("$gblRepositoryDir/.info.inc");
866          print "</TD></TR>          print "</TD></TR><TR><TD></TD><TD COLSPAN=5><HR></TD></TR>";
         <TR><TD></TD><TD COLSPAN=5><HR></TD></TR>";  
867  }  }
868    
869  ?>  ?>
870    
871  <FORM METHOD="POST" ACTION="<?= $self ?>">  <FORM METHOD="POST" ACTION="<?= $self ?>">
# Line 1076  function safe_rename($fromdir,$fromfile, Line 1077  function safe_rename($fromdir,$fromfile,
1077          function try_rename($from,$to) {          function try_rename($from,$to) {
1078  #               print "$from -> $to\n";  #               print "$from -> $to\n";
1079                  if (file_exists($from) && is_writeable(dirname($to))) {                  if (file_exists($from) && is_writeable(dirname($to))) {
1080                          rename($from,$to);                          return rename($from,$to);
1081                    } else {
1082                            return 0;
1083                  }                  }
1084          }          }
1085    
1086          function try_dir($todir) {          function try_dir($todir) {
1087                  if (! file_exists($todir)) {                  if (! file_exists($todir)) {
1088                          mkdir($todir,0700);                          @mkdir($todir,0700);
1089                  }                  }
1090          }          }
1091    
# Line 1092  function safe_rename($fromdir,$fromfile, Line 1095  function safe_rename($fromdir,$fromfile,
1095    
1096  #       print "<pre>$fromdir / $fromfile -> $todir / $tofile\n\n";  #       print "<pre>$fromdir / $fromfile -> $todir / $tofile\n\n";
1097    
1098          try_rename("$fromdir/$fromfile","$todir/$tofile");          if (! try_rename("$fromdir/$fromfile","$todir/$tofile")) Error("Rename error","Can't rename file <tt>$fromfile</tt> to <tt>$tofile</tt>",1);
1099          try_dir("$todir/.log");          try_dir("$todir/.log");
1100          try_rename("$fromdir/.log/$fromfile","$todir/.log/$tofile");          try_rename("$fromdir/.log/$fromfile","$todir/.log/$tofile");
1101          try_dir("$todir/.note");          try_dir("$todir/.note");
# Line 1606  function readMime() { Line 1609  function readMime() {
1609          switch ($HTTP_POST_VARS["POSTACTION"]) {          switch ($HTTP_POST_VARS["POSTACTION"]) {
1610          case "UPLOAD" :          case "UPLOAD" :
1611                  $FN_name=stripSlashes($HTTP_POST_FILES["FN"]["tmp_name"]);                  $FN_name=stripSlashes($HTTP_POST_FILES["FN"]["tmp_name"]);
1612                    $FN=stripSlashes($HTTP_POST_FILES["FN"]["name"]);
1613                  if (!is_writeable($fsDir)) Error("Write denied",$relDir) ;                  if (!is_writeable($fsDir)) Error("Write denied",$relDir) ;
1614                  if (strstr($FN_name,"/"))  
                         Error("Non-conforming filename") ;  
                 // TODO : should rather check for escapeshellcmds  
                 // but maybe RFC 18xx asserts safe filenames ....  
1615                  $source = $FN_name ;                  $source = $FN_name ;
1616                  if (! file_exists($source)) {                  if (! file_exists($source)) {
1617                          Error("You must select file with browse to upload it!");                          Error("You must select file with browse to upload it!");
1618                  }                  }
1619    
1620                  $FILENAME = $HTTP_POST_VARS["FILENAME"];                  $FILENAME = $HTTP_POST_VARS["FILENAME"];
1621                    if (strstr($FILENAME,"/"))
1622                            Error("Upload error","Non-conforming filename. Filename <tt>$FILENAME</tt> has slashes (<tt>/</tt>) in it.") ;
1623                  if (! isset($FILENAME)) {       // from update file                  if (! isset($FILENAME)) {       // from update file
1624                          $target = "$fsDir/$FN_name" ;                          $target = "$fsDir/".basename($FN);
1625                  } else {                  } else {
1626                          $target = "$fsDir/$FILENAME";                          $target = "$fsDir/$FILENAME";
1627                  }                  }
# Line 1750  function readMime() { Line 1754  function readMime() {
1754          case "RENAME" :            case "RENAME" :  
1755                  if ( $CONFIRM != "on" ) break ;                  if ( $CONFIRM != "on" ) break ;
1756    
1757                    $NEWNAME=stripSlashes($HTTP_POST_VARS["NEWNAME"]);
1758                  LogIt("$fsDir/$FN","renamed $FN to $NEWNAME",trperm_r);                  LogIt("$fsDir/$FN","renamed $FN to $NEWNAME",trperm_r);
1759                  safe_rename($fsDir,$FN,$NEWNAME);                  safe_rename($fsDir,$FN,$NEWNAME);
1760                  break ;                  break ;
1761    
1762          case "NOTE" :            case "NOTE" :  
1763                    $NOTE=stripSlashes($HTTP_POST_VARS["NOTE"]);
1764                  WriteNote("$fsDir/$FN","$NOTE");                  WriteNote("$fsDir/$FN","$NOTE");
1765                  break ;                  break ;
1766    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.26