Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
erc /
[ HOME SHELL ]
Name
Size
Permission
Action
erc-autoaway.elc
11.58
KB
-rw-r--r--
erc-backend.elc
154.28
KB
-rw-r--r--
erc-button.elc
16.69
KB
-rw-r--r--
erc-capab.elc
7.67
KB
-rw-r--r--
erc-compat.elc
4.38
KB
-rw-r--r--
erc-dcc.elc
39.39
KB
-rw-r--r--
erc-ezbounce.elc
5.19
KB
-rw-r--r--
erc-fill.elc
6.71
KB
-rw-r--r--
erc-goodies.elc
32.55
KB
-rw-r--r--
erc-hecomplete.elc
7.96
KB
-rw-r--r--
erc-ibuffer.elc
6.77
KB
-rw-r--r--
erc-identd.elc
4.86
KB
-rw-r--r--
erc-imenu.elc
2.61
KB
-rw-r--r--
erc-join.elc
6.03
KB
-rw-r--r--
erc-lang.elc
4.68
KB
-rw-r--r--
erc-list.elc
9.25
KB
-rw-r--r--
erc-log.elc
14.83
KB
-rw-r--r--
erc-match.elc
19.02
KB
-rw-r--r--
erc-menu.elc
6.15
KB
-rw-r--r--
erc-netsplit.elc
7.94
KB
-rw-r--r--
erc-networks.elc
39.94
KB
-rw-r--r--
erc-notify.elc
9.37
KB
-rw-r--r--
erc-page.elc
4.88
KB
-rw-r--r--
erc-pcomplete.elc
10.62
KB
-rw-r--r--
erc-replace.elc
3.85
KB
-rw-r--r--
erc-ring.elc
5.21
KB
-rw-r--r--
erc-services.elc
15.01
KB
-rw-r--r--
erc-sound.elc
5.59
KB
-rw-r--r--
erc-speedbar.elc
10
KB
-rw-r--r--
erc-spelling.elc
4.66
KB
-rw-r--r--
erc-stamp.elc
14.9
KB
-rw-r--r--
erc-track.elc
34.83
KB
-rw-r--r--
erc-truncate.elc
4.18
KB
-rw-r--r--
erc-xdcc.elc
5.74
KB
-rw-r--r--
erc.elc
219.16
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : erc-match.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:03 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-match.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`erc-match.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301%\207" [require erc custom-declare-group erc-match nil "Keyword and Friend/Foe/... recognition.\nGroup containing all things concerning pattern matching in ERC\nmessages." :group] 6) #@263 Non-nil if Erc-Match mode is enabled. See the command `erc-match-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `erc-match-mode'. (custom-declare-variable 'erc-match-mode 'nil '(#$ . 846) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-match :type 'boolean) #@446 Toggle ERC match mode. With arg, turn ERC match mode on if and only if arg is positive. This mode checks whether messages match certain patterns. If so, they are hidden or highlighted. This is controlled via the variables `erc-pals', `erc-fools', `erc-keywords', `erc-dangerous-hosts', and `erc-current-nick-highlight-type'. For all these highlighting types, you can decide whether the entire message or only the sending nick is highlighted. (defalias 'erc-match-mode #[(&optional arg) "\303 \304=\203 \n?\202( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\211\2033 \313 \210\2026 \314 \210\315\316\n\203@ \317\202A \320\"\210\321 \203e \322\302!\210\303 \203X \303 \232\203e \310\323\n\203b \324\202c \325\"\210)\326 \210\n\207" [#1=#:last-message arg erc-match-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-match-enable erc-match-disable run-hooks erc-match-mode-hook erc-match-mode-on-hook erc-match-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Match mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1274) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-match-mode nil boundp erc-match-mode-map] 5) #@24 Enable ERC match mode. (defalias 'erc-match-enable #[nil "\301\302\303\"\210\304\305\306\307\310#\207" [erc-match-mode add-to-list erc-modules match t add-hook erc-insert-modify-hook erc-match-message append] 4 (#$ . 2577) nil]) #@25 Disable ERC match mode. (defalias 'erc-match-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-match-mode delq match nil remove-hook erc-insert-modify-hook erc-match-message] 3 (#$ . 2813) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-match-mode definition-name match erc-match-enable erc-match-disable] 4) #@22 List of pals on IRC. (custom-declare-variable 'erc-pals 'nil '(#$ . 3191) :group 'erc-match :type '(repeat regexp)) #@23 List of fools on IRC. (custom-declare-variable 'erc-fools 'nil '(#$ . 3313) :group 'erc-match :type '(repeat regexp)) #@228 List of keywords to highlight in all incoming messages. Each entry in the list is either a regexp, or a cons cell with the regexp in the car and the face to use in the cdr. If no face is specified, `erc-keyword-face' is used. (custom-declare-variable 'erc-keywords 'nil '(#$ . 3438) :group 'erc-match :type '(repeat (choice regexp (list regexp face)))) #@84 List of regexps for hosts to highlight. Useful to mark nicks from dangerous hosts. (custom-declare-variable 'erc-dangerous-hosts 'nil '(#$ . 3798) :group 'erc-match :type '(repeat regexp)) #@690 *Determines how to highlight text in which your current nickname appears (does not apply to text sent by you). The following values are allowed: nil - do not highlight the message at all 'keyword - highlight all instances of current nickname in message 'nick - highlight the nick of the user who typed your nickname 'nick-or-keyword - highlight the nick of the user who typed your nickname, or all instances of the current nickname if there was no sending user 'all - highlight the entire message where current nickname occurs Any other value disables highlighting of current nickname altogether. (custom-declare-variable 'erc-current-nick-highlight-type ''keyword '(#$ . -3994) :group 'erc-match :type '(choice (const nil) (const nick) (const keyword) (const nick-or-keyword) (const all))) #@295 *Determines how to highlight messages by pals. See `erc-pals'. The following values are allowed: nil - do not highlight the message at all 'nick - highlight pal's nickname only 'all - highlight the entire message from pal Any other value disables pal highlighting altogether. (custom-declare-variable 'erc-pal-highlight-type ''nick '(#$ . -4884) :group 'erc-match :type '(choice (const nil) (const nick) (const all))) #@300 *Determines how to highlight messages by fools. See `erc-fools'. The following values are allowed: nil - do not highlight the message at all 'nick - highlight fool's nickname only 'all - highlight the entire message from fool Any other value disables fool highlighting altogether. (custom-declare-variable 'erc-fool-highlight-type ''nick '(#$ . -5327) :group 'erc-match :type '(choice (const nil) (const nick) (const all))) #@285 *Determines how to highlight messages containing keywords. See variable `erc-keywords'. The following values are allowed: 'keyword - highlight keyword only 'all - highlight the entire message containing keyword Any other value disables keyword highlighting altogether. (custom-declare-variable 'erc-keyword-highlight-type ''keyword '(#$ . -5776) :group 'erc-match :type '(choice (const nil) (const keyword) (const all))) #@312 *Determines how to highlight messages by nicks from dangerous-hosts. See `erc-dangerous-hosts'. The following values are allowed: 'nick - highlight nick from dangerous-host only 'all - highlight the entire message from dangerous-host Any other value disables dangerous-host highlighting altogether. (custom-declare-variable 'erc-dangerous-host-highlight-type ''nick '(#$ . -6219) :group 'erc-match :type '(choice (const nil) (const nick) (const all))) #@233 Alist telling ERC where to log which match types. Valid match type keys are: - keyword - pal - dangerous-host - fool - current-nick The other element of each cons pair in this list is the buffer name to use for the logged message. (custom-declare-variable 'erc-log-matches-types-alist ''((keyword . "ERC Keywords")) '(#$ . 6690) :group 'erc-match :type '(repeat (cons (choice :tag "Key" (const keyword) (const pal) (const dangerous-host) (const fool) (const current-nick)) (string :tag "Buffer name")))) #@166 Flag specifying when matched message logging should happen. When nil, don't log any matched messages. When t, log messages. When 'away, log messages only when away. (custom-declare-variable 'erc-log-matches-flag ''away '(#$ . 7202) :group 'erc-match :type '(choice (const nil) (const away) (const t))) #@330 Format for matched Messages. This variable specifies how messages in the corresponding log buffers will be formatted. The various format specs are: %t Timestamp (uses `erc-timestamp-format' if non-nil or "[%Y-%m-%d %H:%M] ") %n Nickname of sender %u Nickname!user@host of sender %c Channel in which this was received %m Message (custom-declare-variable 'erc-log-match-format '"%t<%n:%c> %m" '(#$ . 7511) :group 'erc-match :type 'string) #@150 Types of matches to beep for when a match occurs. The function `erc-beep-on-match' needs to be added to `erc-text-matched-hook' for beeping to work. (custom-declare-variable 'erc-beep-match-types ''(current-nick) '(#$ . 7956) :group 'erc-match :type '(choice (repeat :tag "Beep on match" (choice (const current-nick) (const keyword) (const pal) (const dangerous-host) (const fool))) (const :tag "Don't beep" nil))) #@214 Hook run when text matches a given match-type. Functions in this hook are passed as arguments: (match-type nick!user@host message) where MATCH-TYPE is a symbol of: current-nick, keyword, pal, dangerous-host, fool (custom-declare-variable 'erc-text-matched-hook ''(erc-log-matches) '(#$ . 8378) :options '(erc-log-matches erc-hide-fools erc-beep-on-match) :group 'erc-match :type 'hook) #@126 Syntax table used when highlighting messages. This syntax table should make all the valid nick characters word constituents. (defvar erc-match-syntax-table (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\304#\210\302\311\304#\210\302\312\304#\210\302\313\304#\210\302\314\304#\210\302\315\304#\210\302\316\304#\210\302\317\304#\210\302\320\304#\210)\207" [table make-syntax-table modify-syntax-entry 40 "w" 41 91 93 123 125 96 39 94 45 95 124 92] 4) (#$ . 8771)) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\207" [custom-declare-face erc-current-nick-face ((t (:bold t :foreground "DarkTurquoise"))) "ERC face for occurrences of your current nickname." :group erc-faces erc-dangerous-host-face ((t (:foreground "red"))) "ERC face for people on dangerous hosts.\nSee `erc-dangerous-hosts'." erc-pal-face ((t (:bold t :foreground "Magenta"))) "ERC face for your pals.\nSee `erc-pals'." erc-fool-face ((t (:foreground "dim gray"))) "ERC face for fools on the channel.\nSee `erc-fools'." erc-keyword-face ((t (:bold t :foreground "pale green"))) "ERC face for your keywords.\nNote that this is the default face to use if\n`erc-keywords' does not specify another."] 6) #@162 Add an entry interactively to a list. LIST must be passed as a symbol The query happens using PROMPT. Completion is performed on the optional alist COMPLETIONS. (defalias 'erc-add-entry-to-list #[(list prompt &optional completions) "\304 \305#\306\n J\"\203 \307\310\n\"\202 \n JBL)\207" [prompt completions entry list completing-read #[(x) "\302@ J\"?\207" [x list erc-member-ignore-case] 3] erc-member-ignore-case error "\"%s\" is already on the list"] 4 (#$ . 10112)]) #@157 Remove an entry interactively from a list. LIST must be passed as a symbol. The elements of LIST can be strings, or cons cells where the car is the string. (defalias 'erc-remove-entry-from-list #[(list prompt) "\304\305J\"\306\n \307\310$\311 J\"\203 \312 J\"L\202* \312\313 J\"J\"L*\207" [list alist prompt entry mapcar #[(x) "<\203 \207C\207" [x] 1] completing-read nil t erc-member-ignore-case delete assoc] 5 (#$ . 10597)]) #@38 Add pal interactively to `erc-pals'. (defalias 'erc-add-pal #[nil "\300\301\302\303 #\207" [erc-add-entry-to-list erc-pals "Add pal: " erc-get-server-nickname-alist] 4 (#$ . 11045) nil]) #@41 Delete pal interactively to `erc-pals'. (defalias 'erc-delete-pal #[nil "\300\301\302\"\207" [erc-remove-entry-from-list erc-pals "Delete pal: "] 3 (#$ . 11238) nil]) #@40 Add fool interactively to `erc-fools'. (defalias 'erc-add-fool #[nil "\300\301\302\303 #\207" [erc-add-entry-to-list erc-fools "Add fool: " erc-get-server-nickname-alist] 4 (#$ . 11411) nil]) #@43 Delete fool interactively to `erc-fools'. (defalias 'erc-delete-fool #[nil "\300\301\302\"\207" [erc-remove-entry-from-list erc-fools "Delete fool: "] 3 (#$ . 11609) nil]) #@46 Add keyword interactively to `erc-keywords'. (defalias 'erc-add-keyword #[nil "\300\301\302\"\207" [erc-add-entry-to-list erc-keywords "Add keyword: "] 3 (#$ . 11787) nil]) #@49 Delete keyword interactively to `erc-keywords'. (defalias 'erc-delete-keyword #[nil "\300\301\302\"\207" [erc-remove-entry-from-list erc-keywords "Delete keyword: "] 3 (#$ . 11966) nil]) #@60 Add dangerous-host interactively to `erc-dangerous-hosts'. (defalias 'erc-add-dangerous-host #[nil "\300\301\302\"\207" [erc-add-entry-to-list erc-dangerous-hosts "Add dangerous-host: "] 3 (#$ . 12159) nil]) #@63 Delete dangerous-host interactively to `erc-dangerous-hosts'. (defalias 'erc-delete-dangerous-host #[nil "\300\301\302\"\207" [erc-remove-entry-from-list erc-dangerous-hosts "Delete dangerous-host: "] 3 (#$ . 12373) nil]) #@77 Check whether the current nickname is in MSG. NICKUSERHOST will be ignored. (defalias 'erc-match-current-nick-p #[(nickuserhost msg) "\304 p\305\216\306\n!\210 \205 \307\310\311\312 !\310Q \"+\207" [#1=#:buffer #2=#:table erc-match-syntax-table msg syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table string-match "\\b" regexp-quote erc-current-nick] 4 (#$ . 12601)]) #@67 Check whether NICKUSERHOST is in `erc-pals'. MSG will be ignored. (defalias 'erc-match-pal-p #[(nickuserhost msg) "\205 \302 \"\207" [nickuserhost erc-pals erc-list-match] 3 (#$ . 13028)]) #@76 Check whether NICKUSERHOST is in `erc-fools' or MSG is directed at a fool. (defalias 'erc-match-fool-p #[(nickuserhost msg) "\205 \205 \303\n \"\206 \304!\207" [msg nickuserhost erc-fools erc-list-match erc-match-directed-at-fool-p] 3 (#$ . 13226)]) #@92 Check whether any keyword of `erc-keywords' matches for MSG. NICKUSERHOST will be ignored. (defalias 'erc-match-keyword-p #[(nickuserhost msg) "\205 \302\303\304 \"\"\207" [msg erc-keywords erc-list-match mapcar #[(x) "<\203 @\207\207" [x] 1]] 4 (#$ . 13488)]) #@78 Check whether NICKUSERHOST is in `erc-dangerous-hosts'. MSG will be ignored. (defalias 'erc-match-dangerous-host-p #[(nickuserhost msg) "\205 \302 \"\207" [nickuserhost erc-dangerous-hosts erc-list-match] 3 (#$ . 13762)]) #@264 Check whether MSG is directed at a fool. In order to do this, every entry in `erc-fools' will be used. In any of the following situations, MSG is directed at an entry FOOL: - MSG starts with "FOOL: " or "FOO, " - MSG contains ", FOOL." (actually, "\s. FOOL\s.") (defalias 'erc-match-directed-at-fool-p #[(msg) "\304\305\"\304\306\"\307\n \"\206 \307 \"*\207" [erc-fools fools-end fools-beg msg mapcar #[(entry) "\301\302Q\207" [entry "^" "[:,] "] 3] #[(entry) "\301\302Q\207" [entry "\\s. " "\\s."] 3] erc-list-match] 4 (#$ . 13994)]) #@82 Mark certain keywords in a region. Use this defun with `erc-insert-modify-hook'. (defalias 'erc-match-message #[nil "eb\210\306\307\310e!\311\n!\211\205 \312 !@ ` \f\205* \313\314\f!d\315#\205* \316\224\211 \2052 \316\225\211 \203H \317\\dX\203H \317\\\202I ed{ \n\205` \320\321 \203^ \322 \"\202_ \". \207" [to-match-nick-dep to-match-nick-indep vector nickuserhost nickname old-pt ("pal" "fool" "dangerous-host") ("keyword" "current-nick") erc-get-parsed-vector erc-get-parsed-vector-nick erc-parse-user re-search-forward regexp-quote t 0 2 mapc #[(match-type) "eb\210\306P\307\310\311Q!\312\307 \313P!!\314\230\203# \315\316 !\202* \312\307 \317P!! \307 \320P! \n#$\"\205\360 \321=\203R %\203R \322&%\323 p%\210\202\335 \314\230\203\216 \324=\203\216 %\203p \322&%\323 p%\210\202\335 \325%\206w e\\b\210\326\f\327\330#\203\335 \322\331\224\331\225\323 $\210\202z \332=\203\237 \322ed\323 p%\210\202\335 \333\230\203\263 \334=\203\263 \335\336\f\"\210\202\335 \314\230\203\335 \334=\203\335 \325%\206\306 e\\b\210\326\f\327\330#\203\335 \322\331\224\331\225\323 $\210\202\311 \337\340\307!#\206\355 \341\342'!P$$-\207" [match-type match-prefix match-pred match-htype match-regex match-face "erc-" intern "erc-match-" "-p" eval "-highlight-type" "current-nick" regexp-quote erc-current-nick "s" "-face" nick erc-put-text-property face nick-or-keyword 2 re-search-forward nil t 0 all "keyword" keyword mapc #[(elt) " \211:\203 @A\305\f\206 e\\b\210\306 \307\310#\205, \311\312\224\312\225\302\n$\210\202 *\207" [elt match-face face regex nick-end 2 re-search-forward nil t erc-put-text-property 0] 6] run-hook-with-args erc-text-matched-hook "Server:" erc-get-parsed-vector-type nickuserhost message nick-end nick-beg vector] 6] append nick-beg nick-end message] 6 (#$ . 14544)]) #@323 Log matches in a separate buffer, determined by MATCH-TYPE. The behavior of this function is controlled by the variables `erc-log-matches-types-alist' and `erc-log-matches-flag'. Specify the match types which should be logged in the former, and deactivate/activate match logging in the latter. See `erc-log-match-format'. (defalias 'erc-log-matches #[(match-type nickuserhost message) " \236A\306\n!@ \307=\204 \310=\205U \311 \205U \f\205U \312\313\314 \315\316\317\320!\2032 \2063 \321!\322\323 \206; \324\325\326\n&\n\" r\327\f!q\210\307 db\210c+*\207" [match-type erc-log-matches-types-alist nickuserhost nick match-buffer-name erc-log-matches-flag erc-parse-user t away erc-away-time format-spec format-spec-make 110 116 format-time-string boundp erc-timestamp-format "[%Y-%m-%d %H:%M] " 99 erc-default-target "" 109 117 erc-log-matches-make-buffer erc-log-match-format message line inhibit-read-only] 13 (#$ . 16383)]) #@62 Create or get a log-matches buffer named NAME and return it. (defalias 'erc-log-matches-make-buffer #[(name) "\303!\211\206 \304!r\nq\210 \204 \305c\210\306\307\310\"\210\n+\207" [name buffer-already buffer get-buffer get-buffer-create " == Type \"q\" to dismiss messages ==\n" erc-view-mode-enter nil #[(buffer) "\301\302!\205 \303!\207" [buffer y-or-n-p "Discard messages? " kill-buffer] 2]] 4 (#$ . 17329)]) #@56 Display a notice that messages were logged while away. (defalias 'erc-log-matches-come-back #[(proc parsed) "\302 \203 \303=\203 \304\305 \"\210\306\207" [erc-log-matches-flag erc-log-matches-types-alist erc-away-time away mapc #[(match-type) "\305A!A\211\205A \306r\nq\210\307dS\310\")!\306\311 !\211 \205@ \205@ \312 \f\"\205@ \313\314\315\316\317\320 \"$\210\313\314\315\316\317\321 \"$**\207" [match-type buffer-name buffer last-msg-time away-time get-buffer erc-emacs-time-to-erc-time get-text-property timestamp erc-away-time erc-time-gt erc-display-message nil notice active format "You have logged messages waiting in \"%s\"." "Type \"C-c C-k %s RET\" to view them."] 8] nil] 3 (#$ . 17754)]) (add-hook 'erc-server-305-functions 'erc-log-matches-come-back nil) #@47 Interactively open an erc-log-matches buffer. (defalias 'erc-go-to-log-matches-buffer #[nil "\302\303\304\305\"\306#\307 !)\207" [erc-log-matches-types-alist buffer-name completing-read "Switch to ERC Log buffer: " mapcar #[(x) "A\301B\207" [x t] 2] #[(buffer-cons) "\301@!\207" [buffer-cons get-buffer] 2] switch-to-buffer] 5 (#$ . 18538) nil]) (define-key erc-mode-map " " 'erc-go-to-log-matches-buffer) #@85 Hide foolish comments. This function should be called from `erc-text-matched-hook'. (defalias 'erc-hide-fools #[(match-type nickuserhost message) "\301=\205\f \302ed\303p$\207" [match-type fool erc-put-text-properties (invisible intangible)] 5 (#$ . 18955)]) #@91 Beep when text matches. This function is meant to be called from `erc-text-matched-hook'. (defalias 'erc-beep-on-match #[(match-type nickuserhost message) " \235\205 \302 \207" [match-type erc-beep-match-types beep] 2 (#$ . 19221)]) (provide 'erc-match)
Close
