Anubis / Anubis

                                      The Anubis Project. 
   
                                  A Web Oriented File Manager. 
   
   
   
   Author: Alain Proute'
   

read web/making_a_web_site.anubis   
   
   
   This file defines a datum of type HTML_Off_Form (see 'web/making_a_web_site.anubis' for
   the definition  of this type) which  is a tool for  managing file through  the web. The
   file manager shows the path of the  directory currently managed, a list of all files in
   the directory (or only those which match some mask), with informations like the size of
   the file  or the date  of last  modification.  There are  buttons for changing  the way
   files are displayed, and for climbing into the parent directory.  There is also a field
   for uploading a  new file into the  directory.  For each subdirectory, there  is a link
   for entering this subdirectory.   When one clicks on a file name,  a popup window opens
   containing tool  for managing the file. You  can delete, rename, download,  or move the
   file. If the file is an executable, you can also execute it. If it is an image, you can
   see it.
   
   As explained in 'web/making_a_web_site.anubis', the  page shown to a client is computed
   from a  state (represented  by parameter '$State'  below).  This is  why 'file_manager'
   actually returns  a function computing  the file manager  itself from the state  of the
   client. From this state, the file manager must  also be able to recover the path of the
   directory  to be  managed, and  to change  the  path of  this directory.   This is  why
   'file_manager' takes  such tools  as its  arguments. The same  principles apply  to the
   layout.
   
public type FileManagerLayout:
   short,      // only file names
   long.       // file names with details (size, date, ...)
   
public define $State -> HTML_Off_Form
   file_manager
     (
       $State -> String                        get_current_directory,
       $State -> FileManagerLayout             get_layout,
     ). 
   
   The  argument function  'change_directory' returns  a 'Maybe($State)'.  It  must return
   'failure' if the client is not allowed to change to the new directory.
   
   Of course, this file manager comes with a list of actions (of type 'Web_Action($State)'
   as defined in 'web/making_a_web_site.anubis').  The function below constructs this list
   of  actions.   It  should  be  used   to  construct  your  web  site  description  (see
   'web_site_description'  in   'web/making_a_web_site.anubis').  All  action   names  are
   prefixed by "filemng_".

public define List(Web_Action($State))
   file_manager_actions
     (  
       String                                  site_directory, 
       $State -> Bool                          allow,
       $State -> String                        get_current_directory,
       ($State,String) -> Maybe($State)        change_current_directory,
       ($State,FileManagerLayout) -> $State    change_layout
     ). 
   
   Since the  file manager  allows to  perform many operations  on the  server, it  may be
   somewhat dangerous. For this reason, it should be integrated only in some HTTPS secured
   administration page of your web site.
   
   
        
   --- That's all for the public part ! --------------------------------------------------
   
   
   
read tools/basis.anubis

   
   
   
   
   *** [] Displaying the subdirectories
   
define List(HTML_Row(HTML_Off_Form))
   subdirectories
     (
       String                cd, 
       List(FileDescription) l, 
       Bool                  b
     ) =
   if l is 
     {
       [ ]      then [ ],
       [h . t]  then if h is 
         {
           no_info(_)          then subdirectories(cd,t,b),
           file(_,_,_,_)       then subdirectories(cd,t,b),
           link(_,_,_,_)       then subdirectories(cd,t,b),
           directory(name,_,_) then 
             [row([/* background_color(if b then rgb(255,240,240) else rgb(230,255,230)) */],
                [
                  cell([],actioner(same,other("_top",[]),
                                   link([],name),
                                   "filemng_chdir",
                                   [("new",cd+"/"+name)])), 
                ]) 
              . subdirectories(cd,t,not(b))]
         }
     }. 
   
   
define HTML_Off_Form
   subdirectories
     (
       $State                                  s,
       $State -> String                        gcd,
       $State -> FileManagerLayout             gl
     ) =
   with cd = gcd(s), 
   dirs = directory_full_list(cd+"/","","","*"), 
   if dirs is []
   then text([color(rgb(240,0,0))],"No subdirectory.")
   else table([nude],subdirectories(cd,dirs,true)). 
        
   
   
   
   *** [] Displaying the files
   
define String 
   zero_pad_2
     (
       Int32 n
     ) =
   with s = integer_to_string(n), 
   if length(s) < 2
   then "0"+s 
   else s. 
   
     
define String
   format_month
     (
       Int32 m
     ) =
   if m = 0  then "jan" else
   if m = 1  then "feb" else
   if m = 2  then "mar" else
   if m = 3  then "apr" else
   if m = 4  then "may" else
   if m = 5  then "jun" else
   if m = 6  then "jul" else
   if m = 7  then "aug" else
   if m = 8  then "sep" else
   if m = 9  then "oct" else
   if m = 10 then "nov" else
   "dec". 
   
   
define String 
   format_date
     (
       Int32 t
     ) =
   if convert_time(t) is date_and_time(year,month,day,hour,min,sec,wday,yday) then 
   integer_to_string(year)+" "+format_month(month)+" "+zero_pad_2(day)+" "+
   zero_pad_2(hour)+":"+zero_pad_2(min)+":"+zero_pad_2(sec). 
 
   
define List(HTML_Row(HTML_Off_Form))
   files
     (
       String                cd, 
       List(FileDescription) l, 
       Bool                  b
     ) =
   if l is 
     {
       [ ]      then [ ],
       [h . t]  then if h is 
         {
           no_info(_)          then files(cd,t,b),
           file(name,size,mode,lm)    then 
             [row([background_color(if b then rgb(255,240,240) else rgb(240,255,240))],
                [
                  cell([width(200)],private_download(cd+"/"+name,name)),
                  cell([width(8)],text([],"")),
                  cell([width(40)],text([color(rgb(230,0,0))],integer_to_string(size))),
                  cell([width(8)],text([],"")),
                  cell([nowrap],text([],format_date(lm)))
                ]) 
              . files(cd,t,not(b))]
           link(_,_,_,_)       then files(cd,t,b),
           directory(_,_,_)    then files(cd,t,b)
         }
     }. 
   
   
define HTML_Off_Form
   files
     (
       $State                                  s,
       $State -> String                        gcd,
       $State -> FileManagerLayout             gl
     ) =
   with cd = gcd(s), 
       fds = directory_full_list(cd+"/","*","",""),
   if fds is [] 
   then text([color(rgb(230,0,0)),size(12)],"No file in this directory.")
   else table([nude],files(cd,fds,true)). 
        
   
   
   
   
   
   
public define $State -> HTML_Off_Form
   file_manager
     (
       $State -> String                        gcd,
       $State -> FileManagerLayout             gl,
     ) =
   ($State s) |-> 
     table([nude],[
   
       //--- displaying the current directory ---
       row(cell([h_center,background_color(rgb(255,255,0))],
                text([size(12),color(rgb(0,0,255))],gcd(s)))),
   
       //--- some buttons ---
       row(cell([left],table([],[row([
         cell([],actioner(same,                //same connection
                          same,                // same window
                          link([bold,font("helvetica"),size(14)],"Up"),
                          "filemng_up",
                          []))
   
           ])]))), 
   
       //--- displaying the subdirectories and files ---
       row(cell([h_center],table([nude],[
         row([
           cell([h_center],text([size(14)],"Subdirectories")),
           cell([h_center],text([size(14)],"Files"))
             ]),
         row([
           cell([],fixed_size(200,200,center(subdirectories(s,gcd,gl)))),
           cell([],fixed_size(500,200,center(         files(s,gcd,gl))))
             ])]))),
   
        //--- upload field ---
        row(cell([h_center],form("",
          table([],[
             row([
               cell([h_center,bottom,height(40)],
                    text([color(rgb(230,0,0))],"Add a new file to this directory")),
               cell([],text([],""))
                 ]),
             row([
               cell([],file_upload("file",80)),
               cell([width(10)],text([],"")),
               cell([],actioner(same,same,
                                link([bold,font("helvetica"),size(14)],"Send"),
                                "filemng_upload",
                                []))
                 ])]))))
      
       ]). 
   
   
   
   *** [] Carve the parent directory from a path. 
   
   We need to find the last '/'. If it does not exist we keep the sale path. If it exists,
   we keep what comes just before it. 
   
   Actually, we search backwards for the first '/' from the end. 
   
define Maybe(Int32)
   find_last_slash
     (
       String s,
       Int32  i
     ) =
   if nth(i,s) is 
     {
       failure     then failure, // out of range
       success(c)  then 
         if c = '/'
         then success(i)
         else if c = '\\'
              then success(i)
              else find_last_slash(s,i-1)
     }. 
   
define Maybe(Int32)
   find_last_slash
     (
       String s
     ) =
   find_last_slash(s,length(s)-1). 
   
define String 
   carve_parent
     (
       String path
     ) =
   if find_last_slash(path) is 
     {
       failure     then  path, 
       success(i)  then  substr(path,0,i)
     }. 
   

define One
   print
     (
       Maybe(Int8) x
     ) =
   if x is 
     {
       failure    then print("--- failure\n"), 
       success(c) then print("--- success("+int8_to_int32(c)+")\n")
     }.
   
   
public define List(Web_Action($State))
   file_manager_actions
     (  
       String                                  site_dir, 
       $State -> Bool                          allow,
       $State -> String                        gcd,
       ($State,String) -> Maybe($State)        ccd,
       ($State,FileManagerLayout) -> $State    cl
     ) =
   [
   
     //--- going up to the parent directory ---
     https_action("filemng_up",
                  allow, 
                  (List(Web_arg) lwa,
                   $State        s) |-> 
                      if ccd(s,carve_parent(gcd(s))) is 
                        {
                          failure         then s,
                          success(s1)     then s1
                        }),
   
     //--- changing the layout to 'short' ---
     https_action("filemng_short", 
                  allow, 
                  (List(Web_arg) l, 
                   $State        s) |-> cl(s,short)),
   
     //--- changing the layout to 'long' ---
     https_action("filemng_short", 
                  allow, 
                  (List(Web_arg) l, 
                   $State        s) |-> cl(s,long)),
   
     //--- changing to a subdirectory ---
     https_action("filemng_chdir", 
                  allow, 
                  (List(Web_arg) l, 
                   $State        s) |-> 
                     if web_arg_value(l,"new") is 
                       {
                         not_found  then s,
                         found(new) then if ccd(s,new) is 
                           {
                             failure     then s, 
                             success(s1) then s1
                           }
                       }),
   
     //--- uploading a file ---
     https_action("filemng_upload",
                  allow,
                  (List(Web_arg) l, 
                   $State        s) |-> 
                     if file_upload_value(l,"file") is 
                       {
                         failure    then s,
                         success(p) then if p is (fn,tfn) then 
                           forget(execute("cp",[tfn,gcd(s)+"/"+fn])); s
                       })
                        
                        
   ].