/[docman]/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.15 by dpavlin, Wed Sep 6 11:04:32 2000 UTC revision 1.20 by dpavlin, Wed Sep 13 08:08:22 2000 UTC
# Line 695  function Navigate($fsRoot,$relDir) { Line 695  function Navigate($fsRoot,$relDir) {
695                  $text .= ", <a href=$self?D=".urlencode($relDir)."&show_deleted=1>undelete</a>";                  $text .= ", <a href=$self?D=".urlencode($relDir)."&show_deleted=1>undelete</a>";
696          }          }
697          $text .= " or revise files on this web site." ;          $text .= " or revise files on this web site." ;
698            $text .= "<br>Examine list of files <a href=\"$self?A=Ch1\">changed in last day</a> or <a href=\"$self?A=Ch\">all changes</a>.";
699          StartHTML("(Navigate)",$text) ;          StartHTML("(Navigate)",$text) ;
700    
701          echo "<TABLE BORDER=0 CELLPADDING=2          echo "<TABLE BORDER=0 CELLPADDING=2
# Line 1104  function safe_rename($from,$to) { Line 1105  function safe_rename($from,$to) {
1105    
1106  //////////////////////////////////////////////////////////////////  //////////////////////////////////////////////////////////////////
1107    
1108    // recursivly delete directory
1109    
1110    function rrmdir($dir) {
1111            $handle=opendir($dir);
1112            while ($file = readdir($handle)) {
1113                    if ($file != "." && $file != "..") {
1114                            if (is_dir("$dir/$file"))
1115                                    rrmdir("$dir/$file");
1116                            else
1117                                    if (! @unlink("$dir/$file")) return(0);
1118                    }
1119            }
1120            closedir($handle);
1121            return @rmdir($dir);
1122    }
1123    
1124    //////////////////////////////////////////////////////////////////
1125    
1126    function ChangeLog($target,$msg) {
1127    
1128            global $gblFsRoot;
1129            $log=fopen("$gblFsRoot/.changelog","a+");
1130            if (substr($target,0,strlen($gblFsRoot)) == $gblFsRoot)
1131                    $target=substr($target,strlen($gblFsRoot),strlen($target)-strlen($gblFsRoot));
1132            fputs($log,time()."\t$target\t$GLOBALS[gblUserName]\t$msg\n");
1133            fclose($log);
1134    
1135    }
1136    
1137    function DisplayChangeLog($day) {
1138    
1139            global $gblFsRoot;
1140            if (!file_exists("$gblFsRoot/.changelog")) return;
1141            $log=fopen("$gblFsRoot/.changelog","r");
1142            $logarr = array();
1143            while($line = fgetcsv($log,255,"\t")) {
1144                    if ($day!=1 || $day==1 && ($line[0]-time() < 24*60)) {
1145                            array_unshift($logarr,array($line[0],$line[1],$line[2],$line[3]));
1146                    }
1147            }
1148            fclose($log);
1149            $cl1=" class=lst"; $cl2="";
1150            print "<table border=0 width=100%>\n";
1151            while ($e = array_shift($logarr)) {
1152                    $cl=$cl1; $cl1=$cl2; $cl2=$cl;
1153                    $date = date("$GLOBALS[gblDateFmt]", $e[0]);
1154                    $time = date("$GLOBALS[gblTimeFmt]", $e[0]);
1155                    $dir = dirname($e[1]);
1156                    $file = basename($e[1]);
1157                    print "<tr><td$cl>$date</td><td$cl>$time</td><td$cl><a href=\"$GLOBALS[PHP_SELF]?D=".urlencode($dir)."\">$dir</a>/$file</td><td$cl>$e[2]</td><td$cl>$e[3]</td></tr>\n";
1158            }
1159            print "</table>";
1160    }
1161    
1162    //////////////////////////////////////////////////////////////////
1163    
1164  // MAIN PROGRAM  // MAIN PROGRAM
1165  // ============  // ============
1166  // query parameters: capital letters  // query parameters: capital letters
# Line 1197  function safe_rename($from,$to) { Line 1254  function safe_rename($from,$to) {
1254                  if (isset($FILENAME)) {                  if (isset($FILENAME)) {
1255                          Unlock($target);                          Unlock($target);
1256                  }                  }
1257                    ChangeLog($target,"updated");
1258                  break ;                  break ;
1259    
1260          case "SAVE" :          case "SAVE" :
1261                  $path = $gblFsRoot . escapeshellcmd($RELPATH) ;                  $path = $gblFsRoot . $RELPATH ;
1262                  $writable = is_writeable($path) ;                  $writable = is_writeable($path) ;
1263                  $legaldir = is_writeable(dirname($path)) ;                  $legaldir = is_writeable(dirname($path)) ;
1264                  $exists   = (file_exists($path)) ? 1 : 0 ;                  $exists   = (file_exists($path)) ? 1 : 0 ;
# Line 1212  function safe_rename($from,$to) { Line 1270  function safe_rename($from,$to) {
1270                  fclose($fh) ;                  fclose($fh) ;
1271                  clearstatcache() ;                  clearstatcache() ;
1272                  Logit($path,"saved changes");                  Logit($path,"saved changes");
1273                    ChangeLog($path,"saved changes");
1274                  break ;                  break ;
1275    
1276          case "CREATE" :          case "CREATE" :
# Line 1242  function safe_rename($from,$to) { Line 1301  function safe_rename($from,$to) {
1301                          }                          }
1302                          $tstr = "$PHP_SELF?A=E&D=".urlencode($relDir)."&F=".urlencode($FN) ;                          $tstr = "$PHP_SELF?A=E&D=".urlencode($relDir)."&F=".urlencode($FN) ;
1303                          header("Location: " . $tstr) ;                          header("Location: " . $tstr) ;
1304                            ChangeLog($target,"created");
1305                          exit ;                          exit ;
1306                  }                  }
1307                  break ;                  break ;
# Line 1274  function safe_rename($from,$to) { Line 1334  function safe_rename($from,$to) {
1334                          }                          }
1335                  }                  }
1336                  else {  // delete directory                  else {  // delete directory
1337                    if ( ! @rmdir($fsDir) ) {                    if ( ! @rrmdir($fsDir) ) {
1338                      Error("Rmdir failed", $tstr . $fsDir) ;                      Error("Rmdir failed", $tstr . $fsDir) ;
1339                    }                    }
1340                    else {                    else {
# Line 1381  function safe_rename($from,$to) { Line 1441  function safe_rename($from,$to) {
1441                  header("Content-Disposition: attachment; filename=$F" );                  header("Content-Disposition: attachment; filename=$F" );
1442                  Header("Location: ".urlpath("$relDir/$F"));                  Header("Location: ".urlpath("$relDir/$F"));
1443                  exit;                  exit;
1444            case "Ch" :
1445                    StartHTML("(File changes)","All changes chronologicaly...");
1446                    DisplayChangeLog(0);    // all
1447                    EndHTML() ;
1448                    exit;
1449            case "Ch1" :
1450                    StartHTML("(File changes)","Changes to files in last day...");
1451                    DisplayChangeLog(1);
1452                    EndHTML() ;
1453                    exit;
1454          }          }
1455    
1456          // default: display directory $relDir          // default: display directory $relDir

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.20

  ViewVC Help
Powered by ViewVC 1.1.26