#!/usr/local/bin/perl -w

###
###  Copyright 2000-2007 University of Illinois Board of Trustees
###  All rights reserved. 
###
###  platform-name - script to print PSG platform name
###
###  Campus Information Technologies and Educational Services
###  University of Illinois at Urbana-Champaign
###


use strict;

use File::Basename;
use Getopt::Long;

use PSGConf::Util;

my ($platform, @suffixes, $print_canonical, $print_suffixes);


###############################################################################
###  main program
###############################################################################

Getopt::Long::Configure('bundling');
GetOptions(
	'c'	=> \$print_canonical,
	's'	=> \$print_suffixes
)
	|| print_usage();

($platform, @suffixes) = platform_name();

if ($print_canonical)
{
	map { print "$platform-$_\n" } @suffixes;
}
elsif ($print_suffixes)
{
	map { print "$_\n" } @suffixes;
}
else
{
	print "$platform\n";
}

exit(0);


###############################################################################
###  print usage and exit
###############################################################################

sub print_usage
{
	my ($progname);

	$progname = basename($0);

	print "Usage: $progname [-c|-s]\n";
	exit(1);
}