Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/sabnzbd/sabnzbd_dataleft | ||
|---|---|---|
| 6 | 6 |
# |
| 7 | 7 |
# SABnzbd : http://sabnzbd.org/ |
| 8 | 8 |
# |
| 9 |
# This program is free software: you can redistribute it and/or modify
|
|
| 9 |
# This program is free software: you can redistribute it and/or modify |
|
| 10 | 10 |
# it under the terms of the GNU General Public License as published by |
| 11 | 11 |
# the Free Software Foundation, either version 3 of the License, or |
| 12 | 12 |
# (at your option) any later version. |
| ... | ... | |
| 26 | 26 |
# [sabnzbd*] |
| 27 | 27 |
# env.host http://host:port/ |
| 28 | 28 |
# env.api apikey |
| 29 |
#
|
|
| 29 |
# |
|
| 30 | 30 |
|
| 31 | 31 |
use strict; |
| 32 | 32 |
use XML::Simple; |
| ... | ... | |
| 62 | 62 |
my $vals = $req->content(); |
| 63 | 63 |
my $xmlvals = $xml->XMLin($vals); |
| 64 | 64 |
|
| 65 |
#get/output vals
|
|
| 65 |
#get/output vals |
|
| 66 | 66 |
my $left = $xmlvals->{mbleft};
|
| 67 | 67 |
$left =~ /(\d+)\./; |
| 68 | 68 |
print "rem.value ".$1."\n"; |
Formats disponibles : Unified diff