From: bw1 <redacted>
Date: Tue, 23 Jan 2018 13:20:51 +0000 (+0100)
Subject: [mldonkey_bandwidth] new setting "mldonkey_bandwidth_host"
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=b2be424202aee287895557ec84cdbbfb46d596c5;p=irssi-scripts.irssi.org.git

[mldonkey_bandwidth] new setting "mldonkey_bandwidth_host"
---

diff --git a/scripts/mldonkey_bandwidth.pl b/scripts/mldonkey_bandwidth.pl
index 80138bc..c382395 100644
--- a/scripts/mldonkey_bandwidth.pl
+++ b/scripts/mldonkey_bandwidth.pl
@@ -1,13 +1,10 @@
+use strict;
 require LWP::UserAgent;
 use Irssi;
 use HTTP::Request::Common;
-use strict;
 use vars qw($VERSION %IRSSI);
-######################
-my $ip = "127.0.0.1";
-#enter mldonkey's IP here and make sure you are allowed to connect!
-######################
-$VERSION = "20030712";
+
+$VERSION = "20180123";
 %IRSSI = (
 	authors		=> "Carsten Otto",
 	contact		=> "c-otto\@gmx.de",
@@ -18,11 +15,15 @@ $VERSION = "20030712";
 	changed		=> "$VERSION",
 	commands	=> "mlbw"
 );
+
+Irssi::settings_add_str('mldonkey_bandwidth', 'mldonkey_bandwidth_host' ,'127.0.0.1:4080');
+my $host = Irssi::settings_get_str('mldonkey_bandwidth_host');
+
 sub cmd_mlbw
 {
 	my ($args, $server, $target) = @_;
 	my $ua = LWP::UserAgent->new(timeout => 5);
-	my $req = GET "http://$ip:4080/submit?q=bw_stats";
+	my $req = GET "http://$host/submit?q=bw_stats";
 	my $resp = $ua->request($req);
 	my $output = $resp->content();
 	my $down = $output;
@@ -41,4 +42,10 @@ sub cmd_mlbw
 	}
 }
 
+sub cmd_changed
+{
+	$host = Irssi::settings_get_str('mldonkey_bandwidth_host');
+}
+
 Irssi::command_bind('mlbw', 'cmd_mlbw');
+Irssi::signal_add('setup changed', 'cmd_changed');