#!/usr/bin/perl
# zzzmklog -- generate unique logfile name;
#             check for existence of previous logfiles with a given name
#             [named analogously to mktemp(1)]
#
# Copyright (C) 2003 Fabian "zzznowman" Pietsch
#
# Version 0.1.0 (2003-10-17)
#

use strict;


die("Wrong number of arguments") unless ($#ARGV == 0);

my ($log, $triesleft) = ($ARGV[0], 100);
while (-e $log) {
	if ($log =~ /^(.+-)([0-9]+)(\.log)$/) {
		$log = $1.($2 + 1).$3;
	}
	elsif ($log =~ /^(.+)(\.log)$/) {
		$log = $1."-2".$2;
	}
	elsif ($log =~ /^(.+-)([0-9]+)$/) {
		$log = $1.($2 + 1);
	}
	else {
		$log = $log."-2";
	}

	$triesleft--;
	die("No more tries left") unless ($triesleft > 0);
}
print($log."\n");