#!/usr/bin/env perl

use strict;
use warnings;

use POSIX;

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

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

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

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

my $positionInSequence = floor( (time() % 60) / 10 );
my %sequences = (	0 => [ 5100, 5100, 9100, 1100, 4100, 4100 ],
					1 => [ 4200, 4200, 9200, 1200, 5200, 5200 ],
					2 => [ 5300, 5300, 1300, 9300, 4300, 4300 ],
					3 => [ 4400, 4400, 1400, 9400, 5400, 5400 ]
				);
my @values = ( 500, 100, 900, 400 );

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

exit( 0 );
