Rights widgets now automatically recorded

[disorder] / scripts / make-version-string

#! /usr/bin/perl -w
use strict;
sub output {
    print @_ or die "$0: stdout: $!\n";
}
my @csv = `../config.status --version`;
my $version;
my $options;
my $cc;
my $compiler;
for(@csv) {
    chomp;
    if(/disorder config\.status (\S+)/) {
	$version = $1;
    }
    if(/with options \"(.*)\"/) {
	$options = $1;
    }
}
if(exists $ENV{CC}) {
    $cc = $ENV{CC};
    $cc =~ s/\s+/ /g;
    my @cv = `$cc --version`;
    $compiler = $cv[0];
}
die "no version found\n" unless defined $version;
output("%s (DisOrder) $version\n");
output(" configure options: $options\n") if defined $options;
output(" compiler: $cc\n") if defined $compiler;
output(" version: $compiler\n") if defined $cc;
output("Copyright (C) 2003-2008 Richard Kettlewell et al\n");
output("License GPLv2+: GNU GPL version 2 or later:\n");
output("        http://www.gnu.org/licenses/old-licenses/gpl-2.0.html\n");
output("This is free software: you are free to change and redistribute it.\n");
output("There is NO WARRANTY, to the extent permitted by law.\n");

close STDOUT or die "$0: stdout: $!\n";