diff options
Diffstat (limited to 'lava-log-mode.el')
-rw-r--r-- | lava-log-mode.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lava-log-mode.el b/lava-log-mode.el index 2a90375..1154b02 100644 --- a/lava-log-mode.el +++ b/lava-log-mode.el @@ -39,7 +39,7 @@ "Minimal highlighting expressions for LAVA Log Mode.") (defvar lava-log-hacking-session - "Please connect to: .*root@\\([[:digit:].]+\\)" + " \\(\\w*@[[:digit:].]\\{7,15\\}+\\)" "Regex used to find hacking sessions, the capture group includes IP address.") ;;; Mode magic @@ -56,10 +56,9 @@ found" (save-excursion (goto-char (point-min)) (when (re-search-forward lava-log-hacking-session nil t) - (let* ((ip (match-string 1)) - (ssh-stanza (format "root@%s" ip))) - (kill-new ssh-stanza) - (message "Found hacking session prompt: %s" ssh-stanza))))) + (let ((login (match-string 1))) + (kill-new login) + (message "Found hacking session prompt: %s" login))))) ;; Define the mode ;;###autoload |