adding more bugs...

generators/testkontrol.pl

@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+
+my $port = 9001;
+my $target = "localhost";
+
+# ----------------------------------------------------------
+
+use Net::OpenSoundControl::Client;
+use Data::Dumper qw(Dumper);
+use Getopt::Std;
+
+my $client;
+my $verbose = 0;
+
+# ----------------------------------------------------------
+#
+#		MAIN
+#
+getopts('d:v', \%options);
+
+if (defined $options{"d"}) {
+	# print Dumper $options{"d"};
+	($target, $port) = split /:/, $options{"d"};
+	}
+$verbose = 1 if (defined $options{"v"});
+
+print "trashing ", $target, " on port ", $port, "\n";
+
+$client =  Net::OpenSoundControl::Client->new(
+		Name => "testkontrol",
+		Host => $target, Port => $port)
+		or die "Could not start client: $@\n";
+
+print Dumper $client if $verbose;
+
+my ($foo, $knum, $kval);
+
+for ($foo=0; $foo<128; $foo++) {
+	$kval = int(128*rand());
+	$knum = int(128*rand());
+	
+	print "$knum -> $kval\n" if $verbose;
+	$client->send(['/kontrol/v', 'i', $knum, 'i', $kval]);
+	sleep(1);
+	}
+
+# ----------------------------------------------------------
+