Contents of /trunk/examples/simple/class/70partitions

#! /usr/bin/perl

# read one disk config file and define classes depending on partition names
# (c) Thomas Lange, 2001, lange@informatik.uni-koeln.de

sub match {
    # here you can add more definitions
    m#\s/scratch\s#          && print "NFS_SERVER SCRATCH ";
    m#\s/files/scratch\s#    && print "NFS_SERVER FILES_SCRATCH ";
    m#\s/tmp\s#              && print "TMP_PARTITION ";
    m#\s/fai-boot\s#         && print "FAI_BOOTPART ";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - -
# main routine is read only for you
foreach $class ( $ENV{HOSTNAME}, reverse split /\s+/, $ENV{classes}) {
  $file = "$ENV{FAI}/disk_config/$class";
  next unless -f $file;
  open (PART,"<$file") || die "Can't open $file\n";
  while (<PART>) {
    # skip comments
    next if /^#/;
    &match;
  }
  close PART;
  print "\n";
  # read only one config file
  exit 0;
}
1	lange	1906	#! /usr/bin/perl
2
3			# read one disk config file and define classes depending on partition names
4			# (c) Thomas Lange, 2001, lange@informatik.uni-koeln.de
5
6			sub match {
7			# here you can add more definitions
8			m#\s/scratch\s# && print "NFS_SERVER SCRATCH ";
9			m#\s/files/scratch\s# && print "NFS_SERVER FILES_SCRATCH ";
10			m#\s/tmp\s# && print "TMP_PARTITION ";
11			m#\s/fai-boot\s# && print "FAI_BOOTPART ";
12			}
13
14			# - - - - - - - - - - - - - - - - - - - - - - - - - - -
15			# main routine is read only for you
16			foreach $class ( $ENV{HOSTNAME}, reverse split /\s+/, $ENV{classes}) {
17			$file = "$ENV{FAI}/disk_config/$class";
18			next unless -f $file;
19			open (PART,"<$file") \|\| die "Can't open $file\n";
20			while (<PART>) {
21			# skip comments
22			next if /^#/;
23			&match;
24			}
25			close PART;
26			print "\n";
27			# read only one config file
28			exit 0;
29			}
Name	Value
svn:eol-style	native
svn:executable	*
svn:keywords	Author Date Id Revision