home *** CD-ROM | disk | FTP | other *** search
/ chilidog.highland.cc.ks.us / chilidog.highland.cc.ks.us.zip / chilidog.highland.cc.ks.us / backup / bradford.20110725.etc.tar.gz / bradford.20110725.etc.tar / etc / sysconfig / scripts / SuSEfirewall2-rpcinfo < prev    next >
Text File  |  2006-04-22  |  4KB  |  149 lines
  1. #!/usr/bin/perl -w
  2. # SuSEfirewall2-rpcinfo - helper script for SuSEfirewall2
  3. # Copyright (C) 2004 SUSE Linux AG
  4. # Copyright (C) 2005 SUSE Linux Products GmbH
  5. #
  6. # Author: Ludwig Nussel
  7. # 
  8. # Please send feedback via http://www.suse.de/feedback
  9. #
  10. # This program is free software; you can redistribute it and/or
  11. # modify it under the terms of the GNU General Public License
  12. # version 2 as published by the Free Software Foundation.
  13. # 
  14. # This program is distributed in the hope that it will be useful,
  15. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17. # GNU General Public License for more details.
  18. # 
  19. # You should have received a copy of the GNU General Public License
  20. # along with this program; if not, write to the Free Software
  21. # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  22.  
  23. # determine ports of RPC services specified on the command line and print them
  24. # as iptables command line parameters. Only services that are actually running
  25. # and are running as root are printed.
  26.  
  27. use strict;
  28. #use Data::Dumper;
  29.  
  30. if ($#ARGV < 0)
  31. {
  32.     print STDERR "Usage: $0 <service ...>\n\n";
  33.     exit 1;
  34. }
  35.  
  36. # {
  37. #           'ypbind' => [
  38. #                        {
  39. #                          'udp' => [
  40. #                                     979
  41. #                                   ],
  42. #                          'tcp' => [
  43. #                                     982
  44. #                                   ],
  45. #                          'sport' => '666:777',
  46. #                          'net' => '10.10.0.1/32'
  47. #                        },
  48. # }
  49. my %services;
  50. foreach my $service (@ARGV)
  51. {
  52.     my @a = split(/,/,$service);
  53.     if( $#a == 0)
  54.     {
  55.     push @{$services{$service}}, {};
  56.     }
  57.     elsif ($#a >= 2 && $a[1] eq '_rpc_')
  58.     {
  59.     my %h = ();
  60.     $h{'net'} = $a[0] if($a[0] && length($a[0]));
  61.     $h{'sport'} = $a[3] if($a[3] && length($a[3]));
  62.     push @{$services{$a[2]}}, \%h;
  63.     }
  64. }
  65.  
  66. my %udpports = ();
  67. my %tcpports = ();
  68.  
  69. # collect registered rpc services
  70. open (RPCINFO, '/usr/sbin/rpcinfo -p localhost|') or die;
  71. <RPCINFO>; # header line
  72. while(<RPCINFO>)
  73. {
  74.     chomp;
  75.     my @line = split;
  76.     next if($#line < 4);
  77.     next unless (exists $services{$line[4]});
  78.     if($line[2] eq 'udp')
  79.     {
  80.     $udpports{$line[3]} = $line[4];
  81.     }
  82.     elsif($line[2] eq 'tcp')
  83.     {
  84.     $tcpports{$line[3]} = $line[4];
  85.     }
  86. }
  87. close RPCINFO;
  88.  
  89. # @param file
  90. # @param hashref
  91. sub getportsfor($$)
  92. {
  93.     my ($proto, $href) = @_;
  94.     # check if the registered ports are actually used and whether they are
  95.     # owned by a process running as root
  96.     open (FILE, '<', "/proc/net/$proto") or die;
  97.     <FILE>; # header line
  98.     my $ret = 0;
  99.     while(<FILE>)
  100.     {
  101.     chomp;
  102.     my @line = split;
  103.     next if($line[7] != 0); # only root allowed
  104.     my ($addr, $port) = split(/:/, $line[1], 2);
  105.     $port = pack('H*', $port); # "007B" => "\x00\x7B"
  106.     $port = unpack('n', $port); # "\x00\x7B" => 0x007B
  107.     if(exists $href->{$port})
  108.     {
  109.         ++$ret;
  110.         foreach my $h (@{$services{$href->{$port}}})
  111.         {
  112.         push @{$h->{$proto}}, $port;
  113.         }
  114.     }
  115.     }
  116.     close FILE;
  117.  
  118.     # always also add portmapper
  119.     if($ret && !exists $services{'portmapper'})
  120.     {
  121.     push @{$services{'portmapper'}}, { tcp => [111], udp => [111] };
  122.     }
  123. }
  124.  
  125. getportsfor('udp', \%udpports);
  126. getportsfor('tcp', \%tcpports);
  127.  
  128. #print Dumper(\%services);
  129.  
  130. foreach my $l (values %services)
  131. {
  132.     foreach my $h (@$l)
  133.     {
  134.     foreach my $proto (('udp', 'tcp'))
  135.     {
  136.         if(exists($h->{$proto}))
  137.         {
  138.         foreach my $port (@{$h->{$proto}})
  139.         {
  140.             print "-p $proto --dport $port";
  141.             print " --sport ".$h->{'sport'} if exists $h->{'sport'};
  142.             print " -s ".$h->{'net'} if exists $h->{'net'};
  143.             print "\n";
  144.         }
  145.         }
  146.     }
  147.     }
  148. }
  149.