/[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.17 by dpavlin, Wed Sep 6 14:25:15 2000 UTC revision 1.21 by dpavlin, Wed Sep 13 08:27:43 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 975  the source<BR>of this file.<BR><BR> Line 976  the source<BR>of this file.<BR><BR>
976    
977  //////////////////////////////////////////////////////////////////  //////////////////////////////////////////////////////////////////
978    
979  function Logit($target,$msg) {  function LogIt($target,$msg) {
980    
981            $target=stripSlashes($target);
982          $dir=dirname($target);          $dir=dirname($target);
983          if (! file_exists($dir."/.log")) {          if (! file_exists($dir."/.log")) {
984                  mkdir($dir."/.log",0700);                  mkdir($dir."/.log",0700);
# Line 995  function Logit($target,$msg) { Line 997  function Logit($target,$msg) {
997    
998  function WriteNote($target,$msg) {  function WriteNote($target,$msg) {
999    
1000            $target=stripSlashes($target);
1001          $dir=dirname($target);          $dir=dirname($target);
1002          if (! file_exists($dir."/.note")) {          if (! file_exists($dir."/.note")) {
1003                  mkdir($dir."/.note",0700);                  mkdir($dir."/.note",0700);
# Line 1011  function WriteNote($target,$msg) { Line 1014  function WriteNote($target,$msg) {
1014    
1015  function ReadNote($target) {  function ReadNote($target) {
1016    
1017            $target=stripSlashes($target);
1018          $dir=dirname($target);          $dir=dirname($target);
1019          $file=basename($target);          $file=basename($target);
1020          $msg="";          $msg="";
# Line 1027  function ReadNote($target) { Line 1031  function ReadNote($target) {
1031    
1032  function MoveTo($source,$folder) {  function MoveTo($source,$folder) {
1033    
1034            $source=stripSlashes($source);
1035          $file=basename($source);          $file=basename($source);
1036          if (! file_exists($folder)) {          if (! file_exists($folder)) {
1037                  mkdir($folder,0700);                  mkdir($folder,0700);
# Line 1040  function MoveTo($source,$folder) { Line 1045  function MoveTo($source,$folder) {
1045    
1046  function Lock($target) {  function Lock($target) {
1047    
1048            $target=stripSlashes($target);
1049          $dir=dirname($target);          $dir=dirname($target);
1050          if (! file_exists($dir."/.lock")) {          if (! file_exists($dir."/.lock")) {
1051                  mkdir($dir."/.lock",0700);                  mkdir($dir."/.lock",0700);
# Line 1060  function Lock($target) { Line 1066  function Lock($target) {
1066    
1067  function CheckLock($target) {  function CheckLock($target) {
1068    
1069            $target=stripSlashes($target);
1070          $dir=dirname($target);          $dir=dirname($target);
1071          $file=basename($target);          $file=basename($target);
1072          $msg=0;          $msg=0;
# Line 1074  function CheckLock($target) { Line 1081  function CheckLock($target) {
1081    
1082  function Unlock($target) {  function Unlock($target) {
1083    
1084            $target=stripSlashes($target);
1085          $dir=dirname($target);          $dir=dirname($target);
1086          $file=basename($target);          $file=basename($target);
1087          if (file_exists($dir."/.lock/$file")) {          if (file_exists($dir."/.lock/$file")) {
# Line 1122  function rrmdir($dir) { Line 1130  function rrmdir($dir) {
1130    
1131  //////////////////////////////////////////////////////////////////  //////////////////////////////////////////////////////////////////
1132    
1133    function ChangeLog($target,$msg) {
1134    
1135            global $gblFsRoot;
1136            $log=fopen("$gblFsRoot/.changelog","a+");
1137            if (substr($target,0,strlen($gblFsRoot)) == $gblFsRoot)
1138                    $target=substr($target,strlen($gblFsRoot),strlen($target)-strlen($gblFsRoot));
1139            fputs($log,time()."\t$target\t$GLOBALS[gblUserName]\t$msg\n");
1140            fclose($log);
1141    
1142    }
1143    
1144    function DisplayChangeLog($day) {
1145    
1146            global $gblFsRoot;
1147            if (!file_exists("$gblFsRoot/.changelog")) return;
1148            $log=fopen("$gblFsRoot/.changelog","r");
1149            $logarr = array();
1150            while($line = fgetcsv($log,255,"\t")) {
1151                    if ($day!=1 || ($day==1 && (time()-$line[0] < 24*60))) {
1152                            array_unshift($logarr,array($line[0],$line[1],$line[2],$line[3]));
1153                    }
1154            }
1155            fclose($log);
1156            $cl1=" class=lst"; $cl2="";
1157            print "<table border=0 width=100%>\n";
1158            while ($e = array_shift($logarr)) {
1159                    $cl=$cl1; $cl1=$cl2; $cl2=$cl;
1160                    $date = date("$GLOBALS[gblDateFmt]", $e[0]);
1161                    $time = date("$GLOBALS[gblTimeFmt]", $e[0]);
1162                    $dir = dirname($e[1]);
1163                    $file = basename($e[1]);
1164                    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";
1165            }
1166            print "</table>";
1167            print "<p>".GifIcon(up)." Back to <a href=$GLOBALS[PHP_SELF]>front page</a>.</p>";
1168    }
1169    
1170    //////////////////////////////////////////////////////////////////
1171    
1172  // MAIN PROGRAM  // MAIN PROGRAM
1173  // ============  // ============
1174  // query parameters: capital letters  // query parameters: capital letters
# Line 1215  function rrmdir($dir) { Line 1262  function rrmdir($dir) {
1262                  if (isset($FILENAME)) {                  if (isset($FILENAME)) {
1263                          Unlock($target);                          Unlock($target);
1264                  }                  }
1265                    ChangeLog($target,"updated");
1266                  break ;                  break ;
1267    
1268          case "SAVE" :          case "SAVE" :
# Line 1230  function rrmdir($dir) { Line 1278  function rrmdir($dir) {
1278                  fclose($fh) ;                  fclose($fh) ;
1279                  clearstatcache() ;                  clearstatcache() ;
1280                  Logit($path,"saved changes");                  Logit($path,"saved changes");
1281                    ChangeLog($path,"saved changes");
1282                  break ;                  break ;
1283    
1284          case "CREATE" :          case "CREATE" :
# Line 1260  function rrmdir($dir) { Line 1309  function rrmdir($dir) {
1309                          }                          }
1310                          $tstr = "$PHP_SELF?A=E&D=".urlencode($relDir)."&F=".urlencode($FN) ;                          $tstr = "$PHP_SELF?A=E&D=".urlencode($relDir)."&F=".urlencode($FN) ;
1311                          header("Location: " . $tstr) ;                          header("Location: " . $tstr) ;
1312                            ChangeLog($target,"created");
1313                          exit ;                          exit ;
1314                  }                  }
1315                  break ;                  break ;
# Line 1357  function rrmdir($dir) { Line 1407  function rrmdir($dir) {
1407          // $A=Ci : checkin file $D/$F          // $A=Ci : checkin file $D/$F
1408          // $A=V : view file (do nothing except log)          // $A=V : view file (do nothing except log)
1409          // default : display directory $D          // default : display directory $D
1410            
1411            $F=stripSlashes($F);
1412    
1413          switch ($A) {          switch ($A) {
1414          case "U" :          case "U" :
1415                  // upload to $relDir                  // upload to $relDir
# Line 1399  function rrmdir($dir) { Line 1451  function rrmdir($dir) {
1451                  header("Content-Disposition: attachment; filename=$F" );                  header("Content-Disposition: attachment; filename=$F" );
1452                  Header("Location: ".urlpath("$relDir/$F"));                  Header("Location: ".urlpath("$relDir/$F"));
1453                  exit;                  exit;
1454            case "Ch" :
1455                    StartHTML("(File changes)","All changes chronologicaly...");
1456                    DisplayChangeLog(0);    // all
1457                    EndHTML() ;
1458                    exit;
1459            case "Ch1" :
1460                    StartHTML("(File changes)","Changes to files in last day...");
1461                    DisplayChangeLog(1);
1462                    EndHTML() ;
1463                    exit;
1464          }          }
1465    
1466          // default: display directory $relDir          // default: display directory $relDir

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.26