#!/usr/bin/env perl

use strict;
use warnings;

use POSIX;

sub printFirstLine {
	my( $index ) = @_;
	print( 'SlotMergeConstraint = StringListMember( "SQUID' . $index . '", AssignedSQUIDs )' . "\n" );
}

sub printLastLine {
	my( $index ) = @_;
	print( "- SQUIDsSlot${index}\n" );
}

sub printUsageLine {
	my( $usage ) = @_;
	print( "UptimeSQUIDsSeconds = ${usage}\n" );
}

sub printMemoryUsageLine {
	my( $usage ) = @_;
	print( "UptimeSQUIDsMemoryPeakUsage = ${usage}\n" );
}

my $positionInSequence = floor( (time() % 60) / 10 );
my %sequences = (	0 => [ 51, 51, 91, 11, 41, 41 ],
					1 => [ 42, 42, 92, 12, 52, 52 ],
					2 => [ 53, 53, 13, 93, 43, 43 ],
					3 => [ 44, 44, 14, 94, 54, 54 ]
				);
my @values = ( 5.0, 1.0, 9.0, 4.0 );

for( my $i = 0; $i < 4; ++$i ) {
	printFirstLine( $i );
	printUsageLine( $values[ $i ] );
	printMemoryUsageLine( $sequences{ $i }->[ $positionInSequence ] );
	printLastLine( $i );
}

exit( 0 );
