#!/usr/bin/perl
#------------------------------------------------------------------------------------------
# Project	: hcl
# File		: hclcollector
# Author	: Keerthan Muthurasa <kmuthurasa at mandriva dot com>
# Created On	: Mon Sept 24 16:34:05 2007
# Purpose	: Hclcollector collect  hardward configuration  when firstbooting the 
# 		  machine.Data are stored in a specifique directory and then user can select
# 		  them in order to send to server.
#-------------------------------------------------------------------------------------------

use strict;
use lib qw(/usr/lib/libDrakX);
use File::Temp qw( tempdir );
use File::Basename;
use common;
use hclcollector;

require_root_capability();
my $tempdir = tempdir(CLEANUP => 1);
my $base = basename($tempdir);
hclcollector::init($tempdir);
if (-e "$tempdir/$base.tar.bz2") { system("mv $tempdir/$base.tar.bz2 /tmp/report.tar.bz2 >/dev/null") }
if (-e "$tempdir/$base.tar.gz2") { system("mv $tempdir/$base.tar.gz /tmp/report.tar.gz >/dev/null") }
