shlist

share and manage lists between multiple people
Log | Files | Refs

commit 80117b0ff81a791d4b25d761d9ba18a50360a5c1
parent e16eab02753afd1b01c8ded5191d1c49ef576b53
Author: kyle <kyle@0x30.net>
Date:   Mon, 11 Jan 2016 21:47:09 -0700

sl: misc cleanups

Diffstat:
Mserver/sl | 9++-------
1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/server/sl b/server/sl @@ -20,7 +20,6 @@ $SIG{TERM} = sub { exit }; $SIG{INT} = sub { exit }; my $db_file = "db"; -# EXLOCK needs to be 0 because SQLite expects it to be $db_file = File::Temp->new(SUFFIX => '.db', EXLOCK => 0) if ($args{t}); my $log = logger->new(); @@ -101,9 +100,7 @@ while (my $client_sock = $listen_sock->accept()) { send_msg($client_sock, $ver, $msg_type, $reply); } } -print ">>>>>> got here\n"; -# any header parsing errors or message read errors are fatal sub recv_msg { my ($sock) = @_; @@ -544,8 +541,7 @@ sub msg_list_items_get { return "ok\0$out"; } -sub fingerprint -{ +sub fingerprint { return substr shift, 0, 8; } @@ -570,8 +566,7 @@ sub devid_to_phnum { return $ph_num; } -sub device_id_valid -{ +sub device_id_valid { my ($sth, $device_id) = @_; unless ($device_id =~ m/^[a-zA-Z0-9+\/=]*$/) {