From 9b1d68eb65c3d9f129d33f60ffb756997979c11b Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Mon, 20 Sep 2004 05:25:30 +0000
Subject: - added hw_db client for hardware upload

---
 mdkonline.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index 6d0430e7..44ec7ba0 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -55,12 +55,8 @@ sub header { "
 ********************************************************************************";
 }
 output($file, map { chomp; "$_\n" }
-  header("partitions"), cat_("/proc/partitions"),
-  header("cpuinfo"), cat_("/proc/cpuinfo"),
-  header("fstab"), cat_("/etc/fstab"),
-  header("/etc/modules.conf"), cat_("/etc/modules.conf"),
   header("rpm -qa"), join('', sort `rpm -qa`),
-  header("mandrake version"), cat_('/etc/mandrake-release'));
+  header("mandrake version"), cat_('/etc/mandrakelinux-release'));
 system("/usr/bin/bzip2 -f $file");
 open(my $F, $file . ".bz2") or die "Cannot open file : $!";
 my ($chunk, $buffer);
@@ -93,6 +89,10 @@ sub mv_files {
     -e $source and system("mv", $source, $dest);
 }
 
+sub hw_upload {
+    my ($login, $hostname, $passwd) = @_;
+    system("HWDB_PASSWD=$passwd hwdb_add_system $login $hostname");
+}
 sub automated_upgrades {
     my ($conffile, $login, $passwd, $boxname, $key, $country, $auto) = @_;
     my ($r) = get_release();
-- 
cgit v1.2.1