projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Welcome to MAPS 2.0
[clearscm.git]
/
maps
/
bin
/
maps
diff --git
a/maps/bin/maps
b/maps/bin/maps
index
e7e9cea
..
52e234f
100755
(executable)
--- a/
maps/bin/maps
+++ b/
maps/bin/maps
@@
-187,9
+187,15
@@
sub ProcessMsgs ($$$) {
if ($onlist) {
verbose "Blacklisting $sender";
if ($onlist) {
verbose "Blacklisting $sender";
- my @msg = split /\n/, $data;
- Blacklist $sender, $sequence, $hit_count, @msg;
+ Blacklist(
+ userid => $userid,
+ sender => $sender,
+ sequence => $sequence,
+ hit_count => $hit_count,
+ data => $data,
+ );
+
next;
} # if
next;
} # if
@@
-204,7
+210,13
@@
sub ProcessMsgs ($$$) {
# Return processing:
verbose "Returning message from $sender";
# Return processing:
verbose "Returning message from $sender";
- ReturnMsg $sender, $reply_to, $subject, $data;
+ ReturnMsg(
+ userid => $userid,
+ sender => $sender,
+ reply_to => $reply_to,
+ subject => $subject,
+ data => $data,
+ );
} # while
} # ProcessMsgs
} # while
} # ProcessMsgs
@@
-220,9
+232,9
@@
GetOptions(
my $msgfile;
if ($ARGV[0] and $ARGV[0] ne "") {
my $msgfile;
if ($ARGV[0] and $ARGV[0] ne "") {
- open $msgfile, $ARGV[0];
+ open $msgfile,
'<',
$ARGV[0];
-
if (!
$msgfile) {
+
unless (
$msgfile) {
Error "Unable to open file ($ARGV[0]): $!\n";
exit 1;
} # if
Error "Unable to open file ($ARGV[0]): $!\n";
exit 1;
} # if
@@
-232,9
+244,9
@@
if ($ARGV[0] and $ARGV[0] ne "") {
verbose "Starting MAPS....";
verbose "Starting MAPS....";
-my
($username, $user_email)
= SetContext $userid
+my
%userOptions
= SetContext $userid
or die "$userid is not a registered MAPS user\n";
or die "$userid is not a registered MAPS user\n";
-ProcessMsgs $msgfile, $user
name, $user_email
;
+ProcessMsgs $msgfile, $user
Options{name}, $userOptions{email}
;
exit 0;
exit 0;