Skip to content
Browse files

Merge branch 'master' of github.com:mkb218/opera-omnia

  • Loading branch information...
2 parents 63456c7 + c8ca79a commit 66b96cdef04d6a54c0c67f6eb441dc134bf10d82 @mkb218 committed May 1, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 fma/fma.pl
View
5 fma/fma.pl
@@ -36,8 +36,13 @@
my $rawdata = getstore($track_url, "fma.tmp");
print length($rawdata)."\n";
my $ua = LWP::UserAgent->new;
+ my $play = "off";
+ if (rand() < 0.001) {
+ $play = "on";
+ }
my %args = ( add => "on",
filetype => "mp3",
+ play => $play,
filedata => ["fma.tmp"]);
my $worked = $ua->request(POST "http://brainchamber.hydrogenproject.com:9001/upload?add=on&filetype=mp3", Content => \%args, Content_Type => 'form-data');
print $worked->code;

0 comments on commit 66b96cd

Please sign in to comment.
Something went wrong with that request. Please try again.