#!/usr/bin/perl

# ˆ© Copyright 2008, Pall Thayer

# This file is part of "Nude Studies in Aleatoric Environments".

#

#    'Nude Studies in Aleatoric Environments' is art: you can redistribute

#    it and/or modify it under the terms of the GNU General Public License

#    as published by the Free Software Foundation, either version 3 of the

#    License, or (at your option) any later version.

#

#    'Nude Studies in Aleatoric Environments' is distributed in the

#    hope that it will be useful, but WITHOUT ANY WARRANTY; without

#    even the implied warranty of MERCHANTABILITY or FITNESS FOR A

#    PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

#    You should have received a copy of the GNU General Public License

#    along with "Nude Studies in Aleatoric Environments".  If not,

#    see <http://www.gnu.org/licenses/>.

# programming begins here:

use IO::Socket;

while(1){

	$SeisIn = `slinktool -d -S "CI_CWC:BHE" -u bud.iris.washington.edu`;

	my @myValues;

	$SeisIn =~ s/\s{3,}/bla/g;

	@splitSeisIn = split("bla", $SeisIn);

	foreach(@splitSeisIn){

		unless($_ =~ m/[a-zA-z]/){

			if($_ =~ m/\d/){

				$val = abs($_);

				push(@myValues, $val);

			}

		}

	}

$sum = 0;

$count = 1;

@myValues = sort({$a <=> $b} @myValues);

$highest = pop(@myValues);

$highest = int(($highest-500)*(300-0)/(50000-500));

$highest = int($highest/2);

$highest = "1:".$highest;

$sock = IO::Socket::INET->new(Proto     => 'udp',

                              PeerPort  => 9689,

                              PeerAddr  => 'localhost')

    or die "Creating socket: $!\n";

	$sock->send($highest) or die "send: $!";

close($sock);

print "send_data: $highest\n";

}