1 |
#!/usr/bin/perl |
2 |
|
3 |
# Copyright (C) 1999-2006 Mandriva (pixel@mandrakesoft.com) |
4 |
# |
5 |
# This program is free software; you can redistribute it and/or modify |
6 |
# it under the terms of the GNU General Public License as published by |
7 |
# the Free Software Foundation; either version 2, or (at your option) |
8 |
# any later version. |
9 |
# |
10 |
# This program is distributed in the hope that it will be useful, |
11 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 |
# GNU General Public License for more details. |
14 |
# |
15 |
# You should have received a copy of the GNU General Public License |
16 |
# along with this program; if not, write to the Free Software |
17 |
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
18 |
|
19 |
use lib qw(/usr/lib/libDrakX); |
20 |
|
21 |
# i18n: IMPORTANT: to get correct namespace (drakx-net instead of libDrakX) |
22 |
BEGIN { unshift @::textdomains, 'drakx-net' } |
23 |
use standalone; #- warning, standalone must be loaded very first, for 'explanations' |
24 |
|
25 |
use interactive; |
26 |
use network::drakfirewall; |
27 |
|
28 |
$ugtk2::wm_icon = "/usr/share/mcc/themes/default/firewall-mdk.png"; |
29 |
|
30 |
my $in = 'interactive'->vnew('su'); |
31 |
|
32 |
network::drakfirewall::main($in, undef); |
33 |
|
34 |
$in->exit; |