Projet

Général

Profil

Révision 3cb70022

ID3cb7002287ad783e1ac15027d58e79e1da99b5b0
Parent 0af7f438
Enfant 54ad1ad4

Ajouté par Younes Ichiche il y a plus de 5 ans

Aligning rtorrent rtrom_ modules same way as rtom_allsessions_

Voir les différences:

plugins/rtorrent/rtom_spdd
39 39 
#	port		rTorrent's scgi port (scgi_port)	- using scgi_port	- needed, when "src" is NOT set to "socket"
40 40 
#	category        Change graph category
41 41 
#	diff		"yes" for using bps for upload and Bps for download, or anything else for using Bps for both
42 
#	api		use "pre09" (pre 0.9.0) or "current" (0.9.0+, the default) API calls
42 43 
#
43 44 
#
44 45 
# Configuration example
......
102 103 
my $ip		= $ENV{"ip"} || "127.0.0.1";
103 104 
my $port	= $ENV{"port"} || "5000";
104 105 
my $socket	= $ENV{"socket"} || "";
106 
my $api         = $ENV{"api"} || "current";
105 107 

  		




  106
  108
  
    
my $pattern	= qr/<value><(int|i4|i8|ex\.i8)>([-]{0,1}\d+)<\/(int|i4|i8|ex\.i8)><\/value>/;


  		




  107
  109
  
    

  		




  108
  
  
    
my $line	= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.multicall</methodName><params><param><value><array><data><value><struct><member><name>methodName</name><value><string>get_up_total</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>get_down_total</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>get_upload_rate</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>get_download_rate</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value></data></array></value></param></params></methodCall>";


  		




  
  110
  
    
my $line        = "";


  		




  
  111
  
    
if ($api =~ /pre09/) {


  		




  
  112
  
    
  $line		= "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.multicall</methodName><params><param><value><array><data><value><struct><member><name>methodName</name><value><string>get_up_total</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>get_down_total</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>get_upload_rate</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>get_download_rate</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value></data></array></value></param></params></methodCall>";


  		




  
  113
  
    
} else {


  		




  
  114
  
    
  $line         = "<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>system.multicall</methodName><params><param><value><array><data><value><struct><member><name>methodName</name><value><string>throttle.global_up.total</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>throttle.global_down.total</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>throttle.global_up.max_rate</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value><value><struct><member><name>methodName</name><value><string>throttle.global_down.max_rate</string></value></member><member><name>params</name><value><array><data/></array></value></member></struct></value></data></array></value></param></params></methodCall>";


  		




  
  115
  
    
}


  		




  
  116
  
    

  		




  109
  117
  
    
my $llen	= length $line;


  		




  110
  118
  
    
my $header	= "CONTENT_LENGTH\000${llen}\000SCGI\001\000";


  		




  111
  119
  
    
my $hlen	= length $header;


  		












Formats disponibles :  Unified diff