| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:19:30 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=8f2c57e1d2cf40082d5ee092649ff1a8ddffd24392012b644579f7b9010a7d30a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22lO18oVt2cftPI_zRtpEpCUXTMuQNJR7C%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d10d7f7b939dfa-BLR
(in-package :ftp-log)(ql:quickload :cl-ppcre)(ql:quickload :cl-strftime) - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (in-package :ftp-log)
- (ql:quickload :cl-ppcre)
- (ql:quickload :cl-strftime)
- (ql:quickload :file-attributes)
- (defun get-log-file-list (logd op)
- (with-open-file (logfile
- (format nil "~A~A-~A-ftp.log" logd op (cl-strftime:format-time nil "%d%m%Y"))
- :if-does-not-exist :create)
- (loop for line = (read-line logfile nil nil)
- while line
- collect (cl-ppcre:do-register-groups (fline)
- ("\\S+\\s(\\w+.+)" line) (return fline)))))
- (defun ftp-log (src fpattern logd op)
- (let ((ftp-dir-files (directory (format nil "~A~A" src fpattern))))
- (if (> (length ftp-dir-files) 0)
- (let ((loglist (get-log-file-list logd op)))
- (loop for file in ftp-dir-files
- do
- (if (not (member (format nil "~A.~A" (pathname-name file) (pathname-type file))
- loglist :test #'equal))
- (with-open-file (logfile
- (format nil "~A~A-~A-ftp.log"
- logd op (cl-strftime:format-time nil "%d%m%Y"))
- :direction :output :if-does-not-exist :create :if-exists :append)
- (write-line (format nil "~A ~A.~A"
- (cl-strftime:format-time nil :rfc-3339 (org.shirakumo.file-attributes:modification-time logfile))
- (pathname-name file) (pathname-type file) ) logfile))
- nil))
- nil))))
- (defun main ()
- (ftp-log "/data/genoa/upload/mp4/" "*.wav" "./" "genoa"))
Advertisement
Add Comment
Please, Sign In to add comment
-
✅ Make $2500 in 20 minutes⭐⭐⭐ X
JavaScript | 1 sec ago | 0.25 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 7 sec ago | 0.24 KB
-
📌 Swapzone +37% glitch ⭐ O
JavaScript | 10 sec ago | 0.25 KB
-
📝 Crypto Swap Glitch ✅ Working
JavaScript | 17 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 5
JavaScript | 19 sec ago | 0.25 KB
-
📝 EASY MONEY GUIDE ✅ Working
JavaScript | 26 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 28 sec ago | 0.25 KB
-
📌 ChangeNOW Exploit
JavaScript | 35 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
