--- trunk/lib/perl/Gedafe/Util.pm	2005/02/16 22:49:57	13
+++ trunk/lib/perl/Gedafe/Util.pm	2005/05/08 15:01:05	14
@@ -148,22 +148,27 @@
 sub GetUnique($)
 {
 	my $s = shift;
-	my $socket = ConnectToTicketsDaemon($s);
-	print $socket "SITE $s->{path}/$s->{script}\n";
-	<$socket>;
-	print $socket "GETUNIQUE\n";
-	$_ = <$socket>;
-	close($socket);
-	if(! /^([\w-]+)$/) {
-		Die("Couldn't understand ticket daemon reply: $_");
+	if ($s->{'ticket_value'}) {
+		my $socket = ConnectToTicketsDaemon($s);
+		print $socket "SITE $s->{path}/$s->{script}\n";
+		<$socket>;
+		print $socket "GETUNIQUE\n";
+		$_ = <$socket>;
+		close($socket);
+		if(! /^([\w-]+)$/) {
+			Die("Couldn't understand ticket daemon reply: $_");
+		}
+		return $1;
+	} else {
+		return $s->{'user'}.'-'.rand_ascii_32();
 	}
-	return $1;
 }
 
 sub DropUnique($$)
 {
 	my $s = shift;
 	my $unique_id = shift;
+	return 1 unless ($s->{'ticket_value'});
 	if(defined $unique_id) {
 		my $socket = ConnectToTicketsDaemon($s);
 		print $socket "SITE $s->{path}/$s->{script}\n";