sub manually_page {
	system("/bin/bash -c clear");
	my $wnum = &UnixDate( "today", "%U" ); # defines the week number for the current week 1 - 53
	my $sched = new Schedule::Oncall;
	#open(SESAME, "sbur.sched.$wunm");
	if ( defined(open(SESAME, "sbur.sched.$wnum")) ) {
		my @sched = $sched->load ("file" =>  "sbur.sched.$wnum");
		my $oncall = $sched->oncall (time);
		my %info = $sched->info ("$oncall");
		my $person = $sched->oncall (time);
		my $pemail = $info{pager}->[0]; # assigned oncall pager email
		my $fname = $info{fullname}->[0,1]; # assigns the full name of who's oncall
		my $emailaddy = $info{email}->[0]; # assigns the email of who's oncall
		
	} else {
		print "There isn't a sched file defined!\n";
	}
	
	my %mail = (
		To      => "$fname <$emailaddy>",
		From    => 'oncall script <oncall.pl@dcx.com>',
		Subject => 'Test message yepper',
		'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
	);