projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git+ssh://github.com/adefaria/clearscm
[clearscm.git]
/
maps
/
bin
/
add2nulllist.pl
diff --git
a/maps/bin/add2nulllist.pl
b/maps/bin/add2nulllist.pl
index
70a4760
..
82a3714
100755
(executable)
--- a/
maps/bin/add2nulllist.pl
+++ b/
maps/bin/add2nulllist.pl
@@
-4,7
+4,8
@@
use warnings;
use FindBin;
use FindBin;
-use lib "$FindBin::Bin/../lib", '/opt/clearscm/lib';
+use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
use MAPS;
use MAPSLog;
use MAPS;
use MAPSLog;
@@
-68,7
+69,7
@@
sub Add2List(@) {
my ($status, $rule) = OnNulllist($item->{sender}, $userid);
my ($status, $rule) = OnNulllist($item->{sender}, $userid);
- if ($status
== 0
) {
+ if ($status) {
display ' Already on list';
} else {
my ($message, $msg) = Add2Nulllist(%$item);
display ' Already on list';
} else {
my ($message, $msg) = Add2Nulllist(%$item);
@@
-87,16
+88,16
@@
sub Add2List(@) {
if ($seq->{sequence}) {
my $count = DeleteList(
if ($seq->{sequence}) {
my $count = DeleteList(
- userid => $item->{userid}
+ userid => $item->{userid}
,
type => $otherlist,
type => $otherlist,
- sequence => $seq->{sequence}
+ sequence => $seq->{sequence}
,
);
display "Removed $item->{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
if $count > 0;
ResequenceList(
);
display "Removed $item->{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
if $count > 0;
ResequenceList(
- userid => $
rec
{userid},
+ userid => $
item->
{userid},
type => $otherlist,
);
} # if
type => $otherlist,
);
} # if