commit 5dd70e79861477cd10cdfdeaa88f53d24d4734f0
parent fd77f49edfbc956dd3de9e3065f3bdd5bf2302cc
Author: kyle <kyle@getaddrinfo.net>
Date: Sun, 22 Nov 2015 23:29:14 -0700
sl: changes to go with last commit
- just throwing single quotes around stuff we want to regex out
Diffstat:
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/sl b/sl
@@ -325,15 +325,15 @@ sub msg_join_list
return if (device_id_invalid($dbh, $device_id, $addr));
- print "info: $addr: device $device_id\n";
- print "info: $addr: list $list_id\n";
+ print "info: $addr: device '$device_id'\n";
+ print "info: $addr: list '$list_id'\n";
my $time = time;
$check_list_member_sth->execute($list_id, $device_id);
if (!$check_list_member_sth->fetchrow_array()) {
$new_list_member_sth->execute($list_id, $device_id, $time);
- print "info: $addr: device $device_id has been added to list $list_id\n";
+ print "info: $addr: device '$device_id' has been added to list $list_id\n";
} else {
print "warn: $addr: tried to create a duplicate list member entry for device $device_id and list $list_id\n";
}
@@ -350,16 +350,16 @@ sub msg_leave_list
return if (device_id_invalid($dbh, $device_id, $addr));
- print "info: $addr: device $device_id\n";
- print "info: $addr: list $list_id\n";
+ print "info: $addr: device '$device_id'\n";
+ print "info: $addr: list '$list_id'\n";
$check_list_member_sth->execute($list_id, $device_id);
if ($check_list_member_sth->fetchrow_array()) {
$remove_list_member_sth->execute($list_id, $device_id);
- print "info: $addr: device $device_id has been removed from list $list_id\n";
+ print "info: $addr: device '$device_id' has been removed from list '$list_id'\n";
} else {
- print "warn: $addr: tried to leave a list the user was not in for device $device_id and list $list_id\n";
+ print "warn: $addr: tried to leave a list the user was not in for device '$device_id' and list '$list_id'\n";
}
$get_list_members_sth->execute($list_id);
@@ -367,7 +367,7 @@ sub msg_leave_list
my $alive = 1;
if (!$get_list_members_sth->fetchrow_array()) {
- print "info: $addr: list $list_id is empty... deleting\n";
+ print "info: $addr: list '$list_id' is empty... deleting\n";
$delete_list_sth->execute($list_id);
$delete_list_data_sth->execute($list_id);
$alive = 0;