files

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@10617 d0543943-73ff-0310-b7d9-9358b9ac24b2

rootkit/.emacs

@@ -0,0 +1,193 @@
+
+;(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
+
+;;; You can either fine-tune the bells and whistles of this mode or
+;;; bulk enable them by putting
+
+;(setq cperl-hairy t)
+(global-unset-key "\C-h")
+(global-set-key "\C-h" 'delete-backward-char)
+(load "/usr/share/emacs/site-lisp/rng-auto.el")
+
+(require 'cc-mode)
+(defun my-build-tab-stop-list (width)
+  (let ((num-tab-stops (/ 80 width))
+        (counter 1)
+        (ls nil))
+    (while (<= counter num-tab-stops)
+      (setq ls (cons (* width counter) ls))
+      (setq counter (1+ counter)))
+    (set (make-local-variable 'tab-stop-list) (nreverse ls))))
+(defun my-c-mode-common-hook ()
+  (setq tab-width 4) ;; change this to taste, this is what K&R uses :)
+  (my-build-tab-stop-list tab-width)
+  (setq c-basic-offset tab-width)
+  (setq indent-tabs-mode t)) ;; force only spaces for indentation
+(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
+
+
+
+;; replace C-s with C-\ in a much more general way so that C-\ can be typed
+;; for every instance of C-s. It is at such a low level that emacs even thinks
+;; that you typed a C-s.  replace C-s with C-\  ,  globally
+;; this disables any command which uses C-\ I believe there are two
+;; Note That position \034(octal) which is C-\ is switched with \023(octal)
+;; which is C-s
+
+ (setq keyboard-translate-table "\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\023\035\036\037 !\042#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\134]^_`abcdefghijklmnopqrstuvwxyz{|}~\177")
+
+
+        ;; change ctrl-q so it can be used as flow control
+        ;; remap C-q tp ESC `
+
+;; (global-unset-key "\C-q")
+;; (global-set-key "\e`" 'quoted-insert)
+
+
+	;; don't make backup files
+        ;; (setq make-backup-files nil)
+(setq require-final-newline t)
+
+
+	;; change input mod to CBREAK mode for C-s C-q
+	;; emacs will never see C-s, C-q
+        ;; (set-input-mode nil t)
+
+	;; change help command from C-h to ESC ?
+	;; so we can use C-h for backspace
+(global-unset-key "\C-h")
+(global-set-key "\C-h" 'delete-backward-char)
+
+(global-set-key "\e?" 'help-command)
+(global-set-key "\C-x\C-x" 'mail-send)
+	;; set backspace to delete a char same as DEL
+
+        ;; (global-unset-key "\d")
+        ;; (global-set-key "\d" 'delete-char)
+(global-set-key "\C-cg" 'goto-line)
+	;; set up the ispell spelling checker interface
+(global-unset-key "\C-o")
+(global-set-key "\C-o" 'undo)
+(global-set-key "\M-\]" 'copy-region-as-kill)
+(global-set-key "\C-\\" 'mark-word)
+(global-unset-key "\C-f" )
+(global-set-key "\C-f" 'forward-word)
+(global-unset-key "\C-b" )
+(global-set-key "\C-b" 'backward-word)
+(global-unset-key "\M-f" )
+(global-set-key "\M-f" 'find-file)
+(global-set-key "\M-o" 'find-file-other-window)
+(global-set-key "\M-\\" 'mark-word)
+(global-set-key "\M-[" 'mark-whole-buffer)
+(global-unset-key "\M-]")
+(global-set-key "\M-]" 'indent-region)
+(global-set-key "\C-x\C-m" 'save-buffer)
+(global-set-key "\C-c\C-m" 'delete-other-windows)
+(global-set-key "\C-c\'" 'split-window-vertically)
+(global-set-key "\C-c\;" 'split-window-horizontally)
+(global-set-key "\C-x\z" 'yank)
+
+
+
+(autoload 'ispell-word "ispell"
+ "Check the spelling of word in buffer." t)
+(autoload 'ispell-complete-word "ispell" "Complete word at or before point" t)
+(autoload 'ispell-region "ispell" 
+  "Check spelling of every word in the region" t)
+(autoload 'ispell-buffer "ispell" 
+  "Check spelling of every word in the buffer" t)
+
+(global-set-key "\e$" 'ispell-word)
+(global-unset-key "\C-t")
+(global-set-key "\C-t" 'forward-word)
+;; (global-unset-key "\C-&")
+;; (global-set-key "\C-&" 'backward-word)
+(global-set-key "\C-cs" 'ispell-region)
+
+(global-set-key "\C-c," 'backward-paragraph)
+(global-set-key "\C-c." 'forward-paragraph)
+(global-set-key "\C-c\C-c" 'compile)
+(global-set-key "\C-c\/" 'compile)
+(global-set-key "\C-c\]" 'replace-string)
+(global-set-key "\C-ce" 'exchange-dot-and-mark)
+(global-set-key "\C-cs" 'shrink-window)
+
+;; THE FOLLOWING ARE CUSTOMIZATIONS YOU CAN ADD IF YOU WANT THEM
+;; YOU WILL HAVE TO EDIT THIS FILE TO DO SO
+
+;; AUTO FILL
+;;  If you want emacs to automatically wrap when you reach the
+;;  end of a line (i.e. you don't have to type in the RETURN at the
+;;  end of each line, you just keep typing) remove the semicolons
+;;  from the two line after this paragraph (the ones with setq).
+;;  Set the default major mode to text mode and turn on auto fill
+
+
+;;(setq default-major-mode 'text-mode)
+(setq text-mode-hook 'turn-on-auto-fill)
+;; (setq load-path ("/usr/local/lib/emacs/lisp/" "/usr/local/test/lib/emacs/site-lisp" "/home/anthm/.lisp"))
+(setq term-file-prefix (concat (car load-path) "/term/"))
+(setq term-setup-hook '(lambda nil
+	(if (fboundp 'enable-arrow-keys) (enable-arrow-keys))))
+
+; (autoload 'html-mode "/home/anthm/.lisp/html-mode" "HTML major mode." t)
+ ;(or (assoc "\\.html$" auto-mode-alist)
+  ; (setq auto-mode-alist (cons '("\\.html$" . html-mode) 
+   ;                            auto-mode-alist)))
+
+
+
+  (setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
+  (setq auto-mode-alist (cons '("\\.cgi$" . cperl-mode) auto-mode-alist))
+  (setq auto-mode-alist (cons '("\\.p[ml]$" . cperl-mode) auto-mode-alist))
+
+  (setq auto-mode-alist (cons '("\\.xml$" . nxml-mode) auto-mode-alist))
+
+(setq html-helper-do-write-file-hooks t)
+(setq html-helper-build-new-buffer t)
+
+
+(add-hook 'cperl-mode-hook 'n-cperl-mode-hook t)
+(defun n-cperl-mode-hook ()
+;  (setq cperl-indent-level 4)
+;  (setq cperl-continued-statement-offset 0)
+;  (setq cperl-extra-newline-before-brace t)
+  (set-face-background 'cperl-array-face "black")
+  (set-face-background 'cperl-hash-face "black")
+  )
+
+
+
+
+
+(cond ((fboundp 'global-font-lock-mode)
+       ;; Customize face attributes
+       (setq font-lock-face-attributes
+             ;; Symbol-for-Face Foreground Background Bold Italic Underline
+             '((font-lock-comment-face       "DarkGreen")
+	       (font-lock-preprocessor-face       "gray")
+               (font-lock-string-face        "Sienna")
+               (font-lock-keyword-face       "purple")
+               (font-lock-function-name-face "limegreen")
+               (font-lock-variable-name-face "Yellow")
+               (font-lock-type-face          "Yellow")
+               (font-lock-reference-face     "Purple")
+               ))
+       ;; Load the font-lock package.
+       (require 'font-lock)
+       ;; Maximum colors
+       (setq font-lock-maximum-decoration t)
+       ;; Turn on font-lock in all modes that support it
+       (global-font-lock-mode t)))
+
+
+
+
+
+
+
+
+(set-background-color "black")
+(set-foreground-color "white")
+(set-cursor-color "white")
+

rootkit/.screenrc

@@ -0,0 +1,2 @@
+escape ^\b
+defscrollback 500000

rootkit/install-cc-mode.sh

@@ -0,0 +1,18 @@
+version=5.31.3
+wget http://easynews.dl.sourceforge.net/sourceforge/cc-mode/cc-mode-${version}.tar.gz
+tar -zxvf cc-mode-${version}.tar.gz
+cd cc-mode-${version}
+emacs -batch -no-site-file -q -f batch-byte-compile cc-*.el
+
+if [ -d /usr/share/emacs ] ; then
+target=/usr/share/emacs/site-lisp
+else
+target=/usr/local/share/emacs/site-lisp
+fi
+
+cp *.elc $target
+wget http://www.freeswitch.org/eg/nxml-mode-20041004.tar.gz
+tar -zxvf nxml-mode-20041004.tar.gz
+cd nxml-mode-20041004
+cp *.el* $target
+