#! /usr/bin/perl

# define classes for different disk configurations

# global variables:
# $numdisks             # number of disks
# %disksize{$device}    # size for each device in MB
# $sum_disk_size        # sum of all disksizes in MB

use Debian::Fai;

read_disk_info();

# rules for classes
#-------------------------------------------------------
# two SCSI disks 2-5 GB
($numdisks == 2) and
    disksize(sda,2000,5400) and
    disksize(sdb,2000,5400) and
    class("SD_2_5GB");

# one disk 0.5-5 GB, IDE
($numdisks == 1) and
    testsize($sum_disk_size,530,5000) and
    class("SMALL_IDE");

# diskless
($numdisks == 0) and class("DISKLESS");
#-------------------------------------------------------
# do not edit beyond this line

exit;
