@@ -164,6 +164,9 @@ sub HandleHttpRequest { elsif($rq->{URI} =~ /^\/history\/(.+)$/) { $data = $self->_JSON_HistoryAction($1); } + elsif($rq->{METHOD} eq 'POST' && $rq->{URI} =~ /^\/new_torrent$/) { + $data = $self->_JSON_NewTorrentAction($body); + } elsif(my($xh,$xfile) = $rq->{URI} =~ /^\/getfile\/([a-z0-9]{40})\/(\d+)$/) { if(my $so = $self->{super}->Storage->OpenStorage($xh)) { $xfile = abs(int($xfile-1)); # 'GUI' starts at 1 / Storage at 0 @@ -469,6 +472,30 @@ sub _HttpSendHeader { ########################################################################## +# Accept a POST'ed Torrent file, and dumps it into the autoload directory +sub _JSON_NewTorrentAction { + my ($self, $torrent) = @_; + my $ok = 0; + my $msg = ''; + + # Create new autoload file + my $destfile = sprintf("%s/%x-%x-%x.http_download", $self->{super}->Configuration->GetValue('tempdir'), $$, int(rand(0xFFFFFF)), int(time())); + if( open(DEST, ">", $destfile) ) { + print DEST $torrent; + close(DEST); + my $exe = $self->{super}->Admin->ExecuteCommand('load', $destfile); + $ok = 1 unless $exe->{FAILS}; + $msg = $exe->{MSG}[0][1]; + } + else { + $msg = "Could not create temp file $destfile: $!"; + } + + $msg = $self->_sEsc($msg); + return qq!({ ok => $ok, msg => "$msg" })!; +} + +########################################################################## # Return global statistics sub _JSON_GlobalStats { my($self) = @_; plugins/Bitflu/10_AdminHTTP.pm 5996b07f9902e7662791b88c1f878dfc9c25a565 Pedro Melo melo@simplicidade.org http://github.com/melo/bitflu/commit/d3057ccfdac5932f64e80ba7a98f2c73922fbb5d d3057ccfdac5932f64e80ba7a98f2c73922fbb5d 2008-10-29T05:57:52-07:00 2008-10-29T05:57:52-07:00 Added new action, /new_torrent You can POST a torrent file to be started. For example: lwp-request -c 'application/x-bittorrent' -m POST \ http://127.0.0.1:4081/new_torrent < my.torrent should do the trick. Signed-off-by: Pedro Melo <melo@simplicidade.org> 3dd4196d0636271017296fd8da504af4de05a38d Pedro Melo melo@simplicidade.org