function strip_filename
{
        perl -lane 'print $1 if /filename:\[(\S+?)\]/' -
}

function epoch
{
         perl -lane '$d=gmtime($1) if /epoch:\[(\d+)\]/; s/epoch:\[\d+\]/epoch:\[$d\]/ and print' -
}

function read_index
{
        sudo -u abuse /abuse/AUP/bin/read_index.pl
}