#!/usr/bin/perl
#---------------------------------------------------------------
# Project         : Mandrakelinux
# Module          : hwdb/clients
# File            : add_system
# Version         : $Id: add_system,v 1.7 2004/08/04 02:49:17 flepied Exp $
# Author          : Frederic Lepied
# Created On      : Mon Dec 29 19:36:09 2003
# Purpose         : upload a complete system (all components) record to the
#                 hardware database.
#---------------------------------------------------------------

use lib qw(/usr/share/hwdb);
use hwdb;

my $hwdb = hwdb::init("add_system", 2, " <system name>");

hwdb::upload_system($hwdb);

# add_system ends here
