#!/usr/local/bin/perl -w
use slack;

$hurry++;
if ($project{'completiontime'} < $project{'estimate'}) {
	$bonus++;
} else {
	die "canned";
}
if ($project eq 'complete') {
	my $schedule = '';
	my $activity = slack::new('IRC');
	$activity->start('/join #perlmonks');
} else {
	my $schedule = 'full';
	while (my $boss != 'looking') {
		my $activity = slack::new('IRC');
		$activity->start('/join #perlmonks');
	}
}