#!/usr/bin/perl 

package DateParser;

use Date::Manip;
sub date_mangler {
        $arg = $_[0];
        $times = $_[1];
        $seconds_gm = time();
        $some_day = localtime($seconds_gm);
        $parsed=&ParseDate($some_day);
        $epoch = &UnixDate($parsed,"%s");
        if(not defined $times) { $times = 1; }
        if(not defined $arg) { $arg = 'default'; }

        if(($arg eq '-min') or ($arg eq '-MIN')){
                $epoch -= ($times *60);
        }
        elsif(($arg eq '-hour') or ($arg eq '-HOUR')){
                $epoch -= ($times * 3600);
        }
        elsif(($arg eq '-day') or ($arg eq '-DAY')){
                $epoch -= ($times * 86400);
        }
        else {
                $epoch -= 86400;
        }
        return $epoch;
}
1;