148 |
sub GetUnique($) |
sub GetUnique($) |
149 |
{ |
{ |
150 |
my $s = shift; |
my $s = shift; |
151 |
my $socket = ConnectToTicketsDaemon($s); |
if ($s->{'ticket_value'}) { |
152 |
print $socket "SITE $s->{path}/$s->{script}\n"; |
my $socket = ConnectToTicketsDaemon($s); |
153 |
<$socket>; |
print $socket "SITE $s->{path}/$s->{script}\n"; |
154 |
print $socket "GETUNIQUE\n"; |
<$socket>; |
155 |
$_ = <$socket>; |
print $socket "GETUNIQUE\n"; |
156 |
close($socket); |
$_ = <$socket>; |
157 |
if(! /^([\w-]+)$/) { |
close($socket); |
158 |
Die("Couldn't understand ticket daemon reply: $_"); |
if(! /^([\w-]+)$/) { |
159 |
|
Die("Couldn't understand ticket daemon reply: $_"); |
160 |
|
} |
161 |
|
return $1; |
162 |
|
} else { |
163 |
|
return $s->{'user'}.'-'.rand_ascii_32(); |
164 |
} |
} |
|
return $1; |
|
165 |
} |
} |
166 |
|
|
167 |
sub DropUnique($$) |
sub DropUnique($$) |
168 |
{ |
{ |
169 |
my $s = shift; |
my $s = shift; |
170 |
my $unique_id = shift; |
my $unique_id = shift; |
171 |
|
return 1 unless ($s->{'ticket_value'}); |
172 |
if(defined $unique_id) { |
if(defined $unique_id) { |
173 |
my $socket = ConnectToTicketsDaemon($s); |
my $socket = ConnectToTicketsDaemon($s); |
174 |
print $socket "SITE $s->{path}/$s->{script}\n"; |
print $socket "SITE $s->{path}/$s->{script}\n"; |