Projet

Général

Profil

Révision 17f78427

ID17f784270ae966ee9a13e9f5104a5b8f925b639e
Parent ef851f0c
Enfant d4320aea, 5b2396a9

Ajouté par Lars Kruse il y a plus de 7 ans

Whitespace cleanup

  • remove trailing whitespace
  • remove empty lines at the end of files

Voir les différences:

plugins/assp/assp-message-statistics
17 17 
use Mail::Sendmail;
18 18 

  		




  19
  19
  
    
# -------------------------- DEBUG VARS ---------------------------------


  		




  20
  
  
    
my $DEBUG = 0;														# for debugging purpose


  		




  21
  
  
    
my $EMAILDEBUG = 0;													# for email debugging


  		




  22
  
  
    
my $pluginname = &basename( "$0" );									# get the basename of the plugin


  		




  23
  
  
    
my @to = qw( webmaster@bguel.info );								# the list of admins receivced messages on an 


  		




  24
  
  
    
my $from = "$pluginname-at-host\@guel.info";						# the host from where it comes


  		




  25
  
  
    
my $muninnodename = "mail.guel.info";		        				# the Node from where it comes


  		




  26
  
  
    
my $smtp = "mail.guel.info";										# the smtp relay to send the mail


  		




  
  20
  
    
my $DEBUG = 0;					# for debugging purpose


  		




  
  21
  
    
my $EMAILDEBUG = 0;				# for email debugging


  		




  
  22
  
    
my $pluginname = &basename( "$0" );		# get the basename of the plugin


  		




  
  23
  
    
my @to = qw( webmaster@bguel.info );		# the list of admins receivced messages on an


  		




  
  24
  
    
my $from = "$pluginname-at-host\@guel.info";	# the host from where it comes


  		




  
  25
  
    
my $muninnodename = "mail.guel.info";		# the Node from where it comes


  		




  
  26
  
    
my $smtp = "mail.guel.info";			# the smtp relay to send the mail


  		




  27
  27
  
    

  		




  28
  28
  
    
# ------------------------- GLOBAL VARS ---------------------------------


  		




  29
  
  
    
my $version = "1.0";												# UA Version


  		




  30
  
  
    
my $agentname = "$pluginname Munin Plugin V$version";				# UA String


  		




  31
  
  
    
my $url = "http://localhost:55553/";							# (defaults to localhost)


  		




  32
  
  
    
my $response = 0;													# the server output


  		




  33
  
  
    
my @content = ();													# the content we're retrive from $response


  		




  
  29
  
    
my $version = "1.0";				# UA Version


  		




  
  30
  
    
my $agentname = "$pluginname Munin Plugin V$version";	# UA String


  		




  
  31
  
    
my $url = "http://localhost:55553/";		# (defaults to localhost)


  		




  
  32
  
    
my $response = 0;				# the server output


  		




  
  33
  
    
my @content = ();				# the content we're retrive from $response


  		




  34
  34
  
    
my %index = (		# for Version 2


  		




  35
  
  
    
		'from'	=> 66,												# <-- index frame from ( a tweak for other ASSP Versions )


  		




  36
  
  
    
		'to'	=> 100												# <-- index frame to ( "" )


  		




  
  35
  
    
		'from'	=> 66,			# <-- index frame from ( a tweak for other ASSP Versions )


  		




  
  36
  
    
		'to'	=> 100			# <-- index frame to ( "" )


  		




  37
  37
  
    
);


  		




  38
  38
  
    

  		




  39
  39
  
    

  		




  ......




  85
  85
  
    
# =============== THE GET ====================


  		




  86
  86
  
    
if( $ARGV[0] eq "" ){


  		




  87
  87
  
    
	my $agent = LWP::UserAgent->new();


  		




  88
  
  
    
	$agent->agent("$agentname");	


  		




  
  88
  
    
	$agent->agent("$agentname");


  		




  89
  89
  
    
	$response = $agent->get( $url );


  		




  90
  90
  
    
	&response_error() unless $response->is_success;


  		




  91
  91
  
    
	@content = split( /\n/, $response->content );


  		




  92
  92
  
    

  		




  93
  93
  
    
	my $line = "";


  		




  94
  
  
    
	my $count = $index{from};	


  		




  
  94
  
    
	my $count = $index{from};


  		




  95
  95
  
    
	my $label;


  		




  96
  96
  
    
	my( $key, $value, $last );


  		




  97
  97
  
    
	while( 1 ){


  		












Formats disponibles :  Unified diff