package Shortcuts;

# See the bottom of this file for the POD documentation.  Search for the
# string '=head'.

use strict;
use diagnostics;
use vars qw($q @ISA @EXPORT_OK $VERSION);
use subs qw(debug);
use Exporter;
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT_OK = qw(debug print_at_form create_at_job);

### subroutines ###
sub debug {
		use CGI::Carp qw(carpout fatalsToBrowser);
		&carpout (\*STDOUT);
}

sub print_at_form {
	my $q = $_[0];
	print $q->startform();
	print "Hour";
	print $q->popup_menu(-name=>'hour', -values=>[1..12]);
	print "Minutes";
	print $q->popup_menu(-name=>'minute', -values=>[qw/00 05 10 15 20 25 30 35 40 45 50 55/]);
	print "Day";
	print $q->popup_menu(-name=>'day', -values=>[qw/Today Mon Tue Wed Thu Fri Sat Sun/]);
	print $q->radio_group(-name=>'meridiem', -values=>[qw/am pm/]);
	print $q->submit(-name=>'Submit');
	print $q->endform();
	return $q;
}

sub create_at_job {
	my %time = &_untaint;
	my $string = "/usr/bin/at $time{hour}:$time{minute} $time{meridiem} $time{day}";
	my $pid = open(ATJOB, "| $string") or die "Couldn't fork: $!\n";
	print ATJOB $at_command;
	close(ATJOB);
	print "Your job has been scheduled for <b>$time{hour}:$time{minute} $time{meridiem} $time{day}</b>";
}

sub _untaint {
	my %time;
	$ENV{"PATH"} = "";
	if ($q->param('hour') =~ /^(1|2|3|4|5|6|7|8|9|10|11|12)$/) { $time{hour} = $1; } else { die "Can't untaint 'hour'"}
	if ($q->param('minute') =~ /^(00|05|10|15|20|25|30|35|40|45|50|55)$/) { $time{minute} = $1; } else { die "Can't untaint 'minute'"}
	if ($q->param('day') =~ /^(Today|Mon|Tue|Wed|Thu|Fri|Sat|Sun|)$/) { $time{day} = $1; } else { die "Can't untaint 'day'"}
	if ($q->param('meridiem') =~ /^(am|pm)$/) { $time{meridiem} = $1; } else { die "Can't untaint 'meridiem'"}
	return %time;
}

1;