#!/usr/bin/perl

# -- IN SHORT:
#    
#    Deletes old cookies so people can't stay logged in for ever.


# -- IN LONG:
#    
#    moves  cookie_jar.4 --> /dev/null, if exists;
#           cookie_jar.3 --> cookie_jar.4, if exists;
#           cookie_jar.2 --> cookie_jar.3, if exists;
#           cookie_jar.1 --> cookie_jar.2, if exists;
#           cookie_jar   --> cookie_jar.1, if exists;
#    
#   then cookie_jar is auto-recreated by the usual thingy;  does this, say
#   each hour or so.  The effect is that people are unceremoniously dumped 
#   out.  
