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/teamspeak/tsuser
1 1 
#!/usr/bin/perl
2 
#
2 
#
3 3 
# This program is free software; you can redistribute it and/or
4 4 
# modify it under the terms of the GNU General Public License
5 5 
# as published by the Free Software Foundation; version 2 dated June,
......
68 68 
		}
69 69 
	}
70 70 
}
71 
else
71 
else
72 72 
{
73 73 
	foreach my $server (@uports)
74 74 
	{
......
76 76 
		print $FS "si ".$server, "\n\n";
77 77 
		my $MASK = $string."=*";
78 78 

  		




  79
  
  
    
		while(<$FS>) 


  		




  
  79
  
    
		while(<$FS>)


  		




  80
  80
  
    
		{


  		




  81
  81
  
    
        		my $input_line = $_;


  		




  82
  82
  
    
			if ( $input_line =~ m/($MASK)/ )


  		












Formats disponibles :  Unified diff