# # #
##########################################################
-#$Id: ossec-batch-manager.pl,v 1.4 2007/11/05 21:05:39 jeff Exp $
+#$Id$
# TODO:
# - Add check for ossec 1.4 and support longer agent names
# - Add in eval so that older version of perl without
my ($id, $name, $ip, $key) = split;
if ($id == $extractid) {
# Newlines are valid base64 characters so use '' instead for \n
- $decoded = MIME::Base64::encode($key, '');
+ $decoded = MIME::Base64::encode($_, '');
print "$decoded\n";
exit 0;
}