From e0ada251ac68dc91192c7ec7d10f3a1d7784916a Mon Sep 17 00:00:00 2001
From: Mageia SVN-Git Migration <svn-git-migration@mageia.org>
Date: Sat, 14 May 2011 01:22:07 +0100
Subject: Synthesized commit during git-svn import combining previous Mandriva
 history with Mageia.

This commit consitsts of the following subversion commits:

------------------------------------------------------------------------
r1310 | dmorgan | 2011-05-14 01:22:07 +0100 (Sat, 14 May 2011) | 1 line

Import cleaned mgaonline
------------------------------------------------------------------------
---
 mdkupdate | 107 --------------------------------------------------------------
 1 file changed, 107 deletions(-)
 delete mode 100755 mdkupdate

(limited to 'mdkupdate')

diff --git a/mdkupdate b/mdkupdate
deleted file mode 100755
index 9335e9a8..00000000
--- a/mdkupdate
+++ /dev/null
@@ -1,107 +0,0 @@
-#!/usr/bin/perl
-################################################################################
-# Mdkupdate                                                                    # 
-#                                                                              #
-# Copyright (C) 2002-2006 Mandriva                                             #
-#                                                                              #
-# Daouda Lo                                                                    #
-# Thierry Vignaud <tvignaud at mandriva dot com>                               #
-#                                                                              #
-# This program is free software; you can redistribute it and/or modify         #
-# it under the terms of the GNU General Public License Version 2 as            #
-# published by the Free Software Foundation.                                   #
-#                                                                              #
-# This program is distributed in the hope that it will be useful,              #
-# but WITHOUT ANY WARRANTY; without even the implied warranty of               #
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                #
-# GNU General Public License for more details.                                 #
-#                                                                              #
-# You should have received a copy of the GNU General Public License            #
-# along with this program; if not, write to the Free Software                  #
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.   #
-################################################################################
-
-# workaround standalone.pm eating "--auto" from @ARGV:
-BEGIN { $::no_global_argv_parsing = 1 }
-
-use strict;
-use POSIX;
-use lib qw(/usr/lib/libDrakX /usr/lib/libDrakX/drakfirsttime);
-use standalone; # for explanations
-use common;
-use interactive;
-use URI::Escape;
-use run_program;
-
-use mdkonline;
-
-use Getopt::Long;
-
-BEGIN { unshift @::textdomains, 'mdkupdate' }
-
-require_root_capability();
-
-my $confdir = '/root/.MdkOnline';
-my $conffile = "$confdir/mdkupdate";
-
-my $logfile = '/var/tmp/mdkupdate.log';
-
-
-my $CLIENT_VERSION = "4";
-my $YEARS = "2002-2006";
-
-#for compatibilities with former versions
-mkdir_p($confdir) if !-d $confdir;
--e '/root/.mdkupdate' and system "/bin/mv", "/root/.mdkupdate", $conffile;
-
-
-sub usage() {
-    print STDERR N("mdkupdate version %s
-Copyright (C) %s Mandriva.
-This is free software and may be redistributed under the terms of the GNU GPL.
-
-usage:
-", $CLIENT_VERSION, $YEARS) . N("  --help		- print this help message.
-") . N("  --auto		- Mandriva Update launched automatically.
-") . N("  --mnf			- launch mnf specific scripts.
-") . N("  --noX			- text mode version of Mandriva Update.
-") . N("  --debug			- log what is done
-");
-    exit(0);
-}
-
-my ($auto, $mnf, $noX, $debug);
-my %options = (
-	       'auto'	    => \$auto,
-	       'mnf'	    => \$mnf,
-	       'noX'	    => \$noX,
-            'd|debug'   => \$debug,
-	       'h|help'    => \&usage,
-	      );
-
-GetOptions(%options);
-
--e $logfile and rm_rf($logfile);
-
-my $ret = update_pkgs();
-if ($ret != 1) {
-    output_p($logfile, "[mdkupdate] Error 100: Packages failed to upgrade");
-    log::explanations("[mdkupdate] Error 100: Packages failed to upgrade");
-}
-clean_dir();
-
-
-sub update_pkgs {
-    my (@pkgs) = @_;
-    eval {
-	run_program::raw({ timeout => 'never' }, '/usr/sbin/urpmi', '--auto-update', '--auto', '--keep', '--update', map { if_(/(.*)-[^-]*-[^-]*\.[^-.]*?\.rpm$/, $1) } @pkgs);
-	$? == 0 or die N("Unable to update packages from update_source medium.\n");
-    };
-    $@ and output_p($logfile, "[mdkupdate] Error 99: $@"), return 0;
-    return 1;
-}
-
-sub clean_dir() {
-    mdkonline::clean_confdir();
-    output_p($logfile, 'OK');
-}
-- 
cgit v1.2.1