gist: 1843 - A small erlang snippet to clear ipwcore cache files.- GitHub


  
    
      clear.erl #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4

          
          
            
              Now = calendar:datetime_to_gregorian_seconds(erlang:universaltime()) - 14400,
DelFun = fun(File, {ok, [{{time, Time}, _}]}) when Time < Now -> file:delete(File); (_, _) -> ok end,
[DelFun(File, file:consult(File)) || File <- filelib:wildcard("cache/*")].
Description:	A small erlang snippet to clear ipwcore cache files.
Public Clone URL:	git://gist.github.com/1843.git Give this clone URL to anyone. `git clone git://gist.github.com/1843.git gist-1843`
Embed All Files:	show embed