SFTPユーザーログイン情報リアルタイムフィルタリング

Question

ソリューションスケッチTXR不明瞭な音声。

(defvarl db-user "user")
(defvarl db-pw "password")

(defun mysql-insert (db-name table-name . values)
  (let* ((alist (plist-to-alist values))
         (columns [mapcar car alist])
         (values [mapcar cdr alist]))
    ;; fix as necessary, remove echo
    (sh `echo mysql -u @{db-user} -p@{db-pw} -e \ \
         "INSERT INTO @{db-name}.${table-name} (@{columns ", "}) \ \
          VALUES ('@{values "', '"}')"`)))

;; (daemon nil nil) ;; uncomment to daemonize

(let ((log (open-tail "syslog")))
  (whilet ((line (get-line log)))
    (if-match `@mon @day @hh:@mm:@ss @nil systemd[@pid]: Started Session @num of user @user.` line
      (mysql-insert "log-db" "sftp-table"
                    'date `@mon @day @hh:@mm:@ss`
                    'user user))))

データに対してこのコマンドを実行すると、ログをスキャンしてMySQLコマンドを印刷します。

$ txr daemon.tl
mysql -u user -ppassword -e INSERT INTO log-db.name (date, user)  VALUES ('Jun 23 15:47:13', 'ftpuser1')

次に、より多くのデータがログに追加されるのを待ちます。オープンストリームはログファイルopen-tailのように機能します。tail -fファイルが回転すると自動的に検出され、名前が変更され、ファイルが回転しても機能します。新しいファイルsyslogの名前を変更して書き込みを開始すると、そのsyslog.1ままになります。syslog

言い換えればsyslog、日付を目的の形式に調整し、実際のデータベース、テーブル、列名を使用するなどの他の編集に加えて、実際のファイルを指す必要があります。

データベースパスワードは、環境変数またはコマンドラインパラメータを介して入力できます。ただし、これがデーモンとして実行されている場合は記録する必要があります。どこかに。

データベース挿入コマンドは正しくエスケープする必要があります。何らかの理由でvaluesユーザー名が含まれると'どうなりますか？

Answer 1

ソリューションスケッチTXR不明瞭な音声。

(defvarl db-user "user")
(defvarl db-pw "password")

(defun mysql-insert (db-name table-name . values)
  (let* ((alist (plist-to-alist values))
         (columns [mapcar car alist])
         (values [mapcar cdr alist]))
    ;; fix as necessary, remove echo
    (sh `echo mysql -u @{db-user} -p@{db-pw} -e \ \
         "INSERT INTO @{db-name}.${table-name} (@{columns ", "}) \ \
          VALUES ('@{values "', '"}')"`)))

;; (daemon nil nil) ;; uncomment to daemonize

(let ((log (open-tail "syslog")))
  (whilet ((line (get-line log)))
    (if-match `@mon @day @hh:@mm:@ss @nil systemd[@pid]: Started Session @num of user @user.` line
      (mysql-insert "log-db" "sftp-table"
                    'date `@mon @day @hh:@mm:@ss`
                    'user user))))