Ruby on Sinatra:写一个简易文件服务器

用ruby写了个文件服务器，实现简易的文件和文件夹浏览、下载的功能，主要代码如下

get '/*' do
  rootpath = "/home/baicai/"
  p = params["splat"][0]
  if p=='' or p==nil
    @currentpath = rootpath
  else
    @currentpath = rootpath+p+'/'
  end
  if File.directory? @currentpath
    files = Dir.entries @currentpath
    r_file = Array.new
    r_dir = Array.new
    files.each do |file|
      childpath = @currentpath+file
      childname = ''
      if p=='' or p==nil
        childname = file
      else
        childname = p+'/'+file
      end
      if file != '.' and file != '..'
        if File.directory? childpath
          r_dir.push Hash[:mtime => File.mtime(childpath), :size => '-', :filename => file+'/', :url => 'http://192.168.1.151:8001/'+childname]
        else
          r_file.push Hash[:mtime => File.mtime(childpath), :size => File.size(childpath), :filename => file, :url => 'http://192.168.1.151:8001/'+childname]
        end
      end
    end
    r_dir.sort! { |x, y| x[:filename] <=> y[:filename] }
    r_file.sort! { |x, y| x[:filename] <=> y[:filename] }
    @dirfiles = r_dir
    r_file.each do |r|
      @dirfiles.push r
    end
    @pagetitle = @currentpath[12, @currentpath.length]
    haml IO.read("views/filebrowser.haml")
  else
    content_type 'application/octet-stream'
    IO.read(@currentpath.chop!)
  end
end

haml文件如下

!!! XML
%html
  %head
    %title File Server
  %body{:bgcolor => "white"}
    %h1{:style => "font-family:Calibri,Arial,Microsoft YaHei"}= @pagetitle
    %hr
    %table{:border => "0"}
      %tr
        %th{:align => "left"} 文件名
        %th{:width => "20"}
        %th{:align => "left"} 修改时间
        %th{:width => "20"}
        %th{:align => "right"} 大小
      -@dirfiles.each do |dirfile|
        %tr{:style => "font-family:Calibri,Arial,Microsoft YaHei;font-size:20px"}
          %td
            %a{:href => dirfile[:url]}= dirfile[:filename]
          %td
          %td= dirfile[:mtime].strftime("%Y-%m-%d %H:%M:%S")
          %td
          %td= dirfile[:size]
    %hr

效果如图：

FEATURED TAGS

FRIENDS