summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--mdkonline.pm10
1 files changed, 5 insertions, 5 deletions
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();