#!/usr/bin/perl -w
#
#  Perform a 'fake build' to test the 'makebuild' script.
#  060222 liverpole
#
                                                                                
# Strict
use strict;
use warnings;
                                                                                
# Flush output
$|++;
                                                                                
# Things to pretend to build
my @modules = qw( admin drivers tools );
                                                                                
# Do a simulated 'make clean'
map { unlink("$_.txt") } @modules;  # Unlink each module's logfile
unlink "cvstag.txt";                # This one's special
                                                                                
# Pretend to build everything
sleep 1;
foreach (@modules) {
    print STDERR "Building module '$_' ...\n";
    system("touch $_.txt");
    print STDERR " - phase 1\n"; sleep 1;
    print STDERR " - phase 2\n"; sleep 1;
    print STDERR " - phase 3\n"; sleep 1;
}
                                                                                
# Pretend to perform the tagging procedure
print STDERR "CVS tagging ...\n";
system("touch cvstag.txt");
for (my $i = 1; $i <= 16; $i++) {
    sleep 1;
    print STDERR "Tagging file $i\n";
}