1 |
#!/usr/bin/perl |
2 |
#***************************************************************************** |
3 |
# |
4 |
# Copyright (c) 2002 Guillaume Cottenceau |
5 |
# Copyright (c) 2002-2007 Thierry Vignaud <tvignaud@mandriva.com> |
6 |
# Copyright (c) 2002-2007 Mandriva Linux |
7 |
# |
8 |
# This program is free software; you can redistribute it and/or modify |
9 |
# it under the terms of the GNU General Public License version 2, as |
10 |
# published by the Free Software Foundation. |
11 |
# |
12 |
# This program is distributed in the hope that it will be useful, |
13 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
15 |
# GNU General Public License for more details. |
16 |
# |
17 |
# You should have received a copy of the GNU General Public License |
18 |
# along with this program; if not, write to the Free Software |
19 |
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
20 |
# |
21 |
#***************************************************************************** |
22 |
# |
23 |
# $Id: edit-urpm-sources.pl 244763 2008-09-04 16:12:52Z tv $ |
24 |
|
25 |
|
26 |
use strict; |
27 |
use lib qw(/usr/lib/libDrakX); |
28 |
use Rpmdrake::init; |
29 |
use standalone; |
30 |
use rpmdrake; |
31 |
use common; |
32 |
use Rpmdrake::edit_urpm_sources; |
33 |
|
34 |
require_root_capability(); |
35 |
|
36 |
readconf(); |
37 |
|
38 |
run(); |
39 |
|
40 |
myexit 0; |