#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: alarmclock,v 1.1 1997/04/26 22:30:51 ejb Exp $
# $Source: /home/ejb/scripts/RCS/alarmclock,v $
# $Author: ejb $
#

require 5.002;
use strict;

my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";

my $tty = $ARGV[0] or die "Usage: $whoami tty\n";
open(TTY, ">$tty") or die "$whoami: open $tty failed: $!\n";
select(TTY);
$| = 1;
$ENV{'DISPLAY'} = ":0";
open(P, ">/tmp/alarmpid") and print P "$$\n" and close(P);
while (1)
{
    &alarmclock();
}

sub alarmclock
{
    for (2500, 2000, 1500, 1000, 500, 1000, 1500, 2000)
    {
	&setbeep($_);
	&beep();
    }
}

sub setbeep
{
    my $pitch = shift;
    system("/usr/X11R6/bin/xset b 100 $pitch 300");
}

sub beep
{
    print chr(7);
    sleep 1;
}