Annotation of loncom/lciptables, revision 1.4
1.1 raeburn 1: #!/usr/bin/perl
2: #
3: # The Learning Online Network with CAPA
4: #
1.4 ! raeburn 5: # $Id: lciptables,v 1.3 2010/10/12 10:17:10 foxr Exp $
1.1 raeburn 6: #
7: # Copyright Michigan State University Board of Trustees
8: #
9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
10: #
11: # LON-CAPA is free software; you can redistribute it and/or modify
12: # it under the terms of the GNU General Public License as published by
13: # the Free Software Foundation; either version 2 of the License, or
14: # (at your option) any later version.
15: #
16: # LON-CAPA is distributed in the hope that it will be useful,
17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19: # GNU General Public License for more details.
20: #
21: # You should have received a copy of the GNU General Public License
22: # along with LON-CAPA; if not, write to the Free Software
23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24: #
25: # /home/httpd/html/adm/gpl.txt
26: #
27: # http://www.lon-capa.org/
28: #
29: # lciptables - LONC-CAPA setuid script to:
30: # o use iptables commands to update Firewall rules for current
31: # list of IPs for LON-CAPA hosts in server's cluster.
32: #
33:
34: use strict;
35: use lib '/home/httpd/lib/perl/';
36: use LONCAPA::Firewall;
37:
38: # ------------------------------------------------------------------ Exit codes
39: # Exit codes.
40: # ( (0,"ok"),
41: # (1,"User ID mismatch. This program must be run as user 'www'"),
42: # (2,"Missing argument: Usage: this script takes one argument - ".
43: # " the name of a file in /home/httpd/perl/tmp containing IP addresses."),
44: # (3,"Missing IP addresses file. The file containing IP addresses is missing."),
45: # (4,"Error. Only one lciptables script can run at any time."),
46: #
47: # ------------------------------------------------------------- Initializations
48: # Security
49: $ENV{'PATH'}='/bin/:/usr/bin:/usr/local/sbin:/home/httpd/perl'; # Nullify path
50: # information
51: delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints
52:
53: # Do not print error messages.
54: my $noprint=1;
55:
56: print "In lciptables\n" unless $noprint;
57:
58: # ----------------------------- Make sure this process is running from user=www
59: my $wwwid=getpwnam('www');
1.3 foxr 60:
61: if ($wwwid!=$<) {
1.1 raeburn 62: print("User ID mismatch. This program must be run as user 'www'\n")
63: unless $noprint;
64: &Exit(1);
65: }
66:
67: # ----------------------------------- Retrieve IP addreses for hosts in cluster
1.3 foxr 68:
1.1 raeburn 69:
70: my %iphost;
71: if (@ARGV != 1) {
72: print("Error. this script takes one argument - the name of a file in /home/httpd/perl/tmp containing IP addresses.\n") unless $noprint;
73: &Exit(2);
74: }
75: my $tmpfile = $ARGV[0];
76: if (-e $tmpfile) {
77: if (open(my $fh,"<$tmpfile")) {
78: while(<$fh>) {
79: chomp();
80: $iphost{$_} = 1;
81: }
82: close($fh);
83: } else {
84: &Exit(3);
85: }
86: } else {
87: print "Error. File containing IP addresses of hosts in cluster does not exist\n" unless $noprint;
88: &Exit(3);
89: }
90:
91: # --------------------------- Handle case of another lciptables process (locking)
92: unless (&try_to_lock("/tmp/lock_lciptables")) {
93: print "Error. Too many other simultaneous iptables manipulation requests being ".
94: "made.\n" unless $noprint;
95: &Exit(4);
96: }
97:
98: my $lond_port = &LONCAPA::Firewall::get_lond_port();
99:
1.3 foxr 100:
1.1 raeburn 101: &EnableRoot();
102:
1.2 raeburn 103: my @fw_chains = &LONCAPA::Firewall::get_fw_chains();
1.1 raeburn 104: my $iptables = &LONCAPA::Firewall::get_pathto_iptables();
105: my $firewall_result =
1.4 ! raeburn 106: &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,$lond_port,\%iphost,[$lond_port]);
1.1 raeburn 107: if ($firewall_result) {
108: print "$firewall_result\n";
109: }
1.2 raeburn 110: my $firewall_result = &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,$lond_port,\%iphost,[$lond_port]);
1.1 raeburn 111: if ($firewall_result) {
112: print "$firewall_result\n";
113: }
114:
115: # -------------------------------------------------------- Exit script
116: print "lciptables Exiting\n" unless $noprint;
117: &DisableRoot;
118: unlink('/tmp/lock_lciptables');
119: &Exit(0);
120:
121:
122: sub EnableRoot {
123: if ($wwwid==$>) {
124: ($<,$>)=($>,$<);
125: ($(,$))=($),$();
126: }
127: else {
128: # root capability is already enabled
129: }
130: return $>;
131: }
132:
133: sub DisableRoot {
134: if ($wwwid==$<) {
135: ($<,$>)=($>,$<);
136: ($(,$))=($),$();
137: }
138: else {
139: # root capability is already disabled
140: }
141: }
142:
143: sub try_to_lock {
144: my ($lockfile)=@_;
145: my $currentpid;
146: my $lastpid;
147: # Do not manipulate lock file as root
148: if ($>==0) {
149: return 0;
150: }
151: # Try to generate lock file.
152: # Wait 3 seconds. If same process id is in
153: # lock file, then assume lock file is stale, and
154: # go ahead. If process id's fluctuate, try
155: # for a maximum of 10 times.
156: for (0..10) {
157: if (-e $lockfile) {
158: open(LOCK,"<$lockfile");
159: $currentpid=<LOCK>;
160: close LOCK;
161: if ($currentpid==$lastpid) {
162: last;
163: }
164: sleep 3;
165: $lastpid=$currentpid;
166: } else {
167: last;
168: }
169: if ($_==10) {
170: return 0;
171: }
172: }
173: open(LOCK,">$lockfile");
174: print LOCK $$;
175: close LOCK;
176: return 1;
177: }
178:
179: sub Exit {
180: my ($code) = @_;
181: &DisableRoot();
182: print "Exiting with status $code\n" unless $noprint;
183: exit $code;
184: }
185:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lciptables CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom