Ceph scripts

Signed-off-by: [email protected] <[email protected]>

Author: [email protected]

.emacs

@@ -0,0 +1,288 @@
+;; -*- mode: emacs-lisp -*-
+
+(require 'xcscope)
+(require 'cc-mode)
+
+;; MELPA packages
+
+(require 'package) 
+(add-to-list 'package-archives
+             '("melpa" . "http://melpa.org/packages/") t)
+(when (< emacs-major-version 24)
+  ;; For important compatibility libraries like cl-lib
+  (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
+(package-initialize) ;; You might already have this line
+
+(add-to-list 'package-archives
+             '("melpa-stable" . "http://stable.melpa.org/packages/") t)
+;; set style
+
+(setq-default c-basic-offset 4 c-default-style "linux")
+(setq-default tab-width 4 indent-tabs-mode t)
+(define-key c-mode-base-map (kbd "RET") 'newline-and-indent)
+
+;; auto repair brackets
+;;(require 'autopair)
+;;(autopair-global-mode 1)
+;;(setq autopair-autowrap t)
+
+;;; yasnippet
+;;; should be loaded before auto complete so that they can work together
+;;(require 'yasnippet)
+;;(yas-global-mode 1)
+
+;;; auto complete mod
+;;; should be loaded after yasnippet so that they can work together
+(require 'auto-complete-config)
+(add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
+(ac-config-default)
+;;; set the trigger key so that it can work together with yasnippet on tab key,
+;;; if the word exists in yasnippet, pressing tab will cause yasnippet to
+;;; activate, otherwise, auto-complete will
+(ac-set-trigger-key "TAB")
+(ac-set-trigger-key "<tab>")
+
+(require 'ac-clang)
+(define-key c++-mode-map (kbd "C-S-<return>") 'ac-complete-clang)
+;; replace C-S-<return> with a key binding that you want
+
+; change moving between windows to Shift+{left,up,down,right}
+(windmove-default-keybindings)
+(setq windmove-wrap-around t)
+
+; Save space
+(menu-bar-mode nil)
+
+; Handle .gz files
+(auto-compression-mode t)
+
+; Provide templates for new files
+(auto-insert-mode t)
+
+;display column number
+(column-number-mode 1)
+
+
+;;(defun my-c-mode-hook ()
+;;  (setq c-basic-offset 4
+;;        c-indent-level 4
+;;        c-default-style "cc-mode"))
+;;(add-hook 'c-mode-common-hook 'my-c-mode-hook)
+
+; Allow completions like em-s-region to complete to emacspeak-speak-region
+;;(partial-completion-mode)
+
+;; This somehow produced a failure on excelior
+;;(add-hook 'after-init-hook 'server-start)
+;;(add-hook 'server-done-hook
+;;	  (lambda ()
+;;	    (shell-command "screen -r -X select `cat ~/tmp/emacsclient-caller`");;))
+
+;;(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)
+
+;;(unless (featurep 'emacspeak)
+;;  (add-hook 'emacs-lisp-mode-hook 'eldoc-mode))
+
+; Update string in the first 8 lines looking like Timestamp: <> or " "
+;;(add-hook 'write-file-hooks 'time-stamp)
+
+;;; Diary
+;(setq diary-file "~/emacs/diary")
+;(add-hook 'diary-hook 'appt-make-list)
+;(diary 0)
+
+;;; Eshell
+;;(eval-after-load "em-term"
+ ;; '(add-to-list 'eshell-visual-commands "zsh"))
+
+;;; Gnus
+;;(setq gnus-init-file "~/emacs/.gnus.el")
+
+;;; Abbrevs
+; Use C-xaig to correct common typos
+(setq abbrev-file-name "~/emacs/abbrev_defs")
+(if (file-exists-p abbrev-file-name)
+    (quietly-read-abbrev-file))
+(set-default 'abbrev-mode t)
+
+;; Misc options I just prefer everytime
+(setq cperl-indent-level 2
+      custom-buffer-indent 2
+      gc-cons-threshold (* 1024 1024)
+      european-calendar-style t
+      mail-user-agent 'message-user-agent
+      message-generate-headers-first t
+      w3-display-frames 'ask
+      widget-choice-toggle t
+      widget-menu-minibuffer-flag t
+      url-privacy-level '(os agent)
+      vc-cvs-diff-switches "-u")
+
+
+(put 'narrow-to-region 'disabled nil)
+
+;;; Crypt++
+
+(require 'crypt++ nil t)
+(setq crypt-encryption-type 'mcrypt)
+
+;;; Internet Time
+
+;(add-to-list 'load-path (expand-file-name "~/emacs/lisp/"))
+;(require 'itime)
+;(setq display-time-string-forms
+;      '(24-hours ":" minutes " "
+;		 (itime-string 24-hours minutes seconds)
+;		 (if mail
+;		     " Mail"
+;		   ""))
+;       display-time-interval 30)
+;(display-time-mode 1)
+
+
+;;; Load local configuration
+;;(condition-case data
+;;    (let ((default-directory "~/emacs/"))
+;;      (load-file "./local"))
+;;  (file-error 'notfound))
+
+;;; Load Customize
+
+;;(if (file-exists-p
+;;     (setq custom-file;
+;;	   (concat "~/emacs/custom-" 
+;;		   (int-to-string emacs-major-version))))
+;;    (load-file custom-file))
+
+;;; Semantic
+
+;(unless (featurep 'emacspeak)
+;  (global-semantic-auto-parse-mode 1)
+;  (unless (featurep 'emacspeak)
+;    (setq semantic-auto-parse-no-working-message t))
+;  (add-hook 'semantic-init-hooks 'senator-minor-mode))
+
+
+;; Emacs wiki
+
+;;(require 'emacs-wiki)
+;;(add-to-list 'emacs-wiki-interwiki-names '("Bug" . "http://bugs.debian.org/"))
+;;(add-to-list 'emacs-wiki-interwiki-names '("Package" . "http://packages.debian.org/"))
+;;(setq
+;; emacs-wiki-projects
+;; '(
+;;   ("PrivateNotes"
+;;    (emacs-wiki-directories "~/doc/private"))
+;;   ("DebianWiki"
+;;    (emacs-wiki-directories "~/debian/notes")
+;    (emacs-wiki-publishing-directory . "/[su/[email protected]]~/public_html/")
+;;    (emacs-wiki-publishing-directory . "~/debian/public_html")
+;;    )))
+
+(when (featurep 'emacspeak)
+  (defun viavoice-set-language (lang)
+    (cond
+     ((eq lang 'german)
+      (dtk-interp-queue "`l4 Deutsch")
+    (dtk-interp-speak))
+     ((eq lang 'english)
+      (dtk-interp-queue "`l1 English")
+      (dtk-interp-speak))
+     (t (error "Unknown language"))))
+  (defun emacspeak-set-language-to-german ()
+    (interactive)
+    (viavoice-set-language 'german))
+  (defun emacspeak-set-language-to-english ()
+    (interactive)
+    (viavoice-set-language 'english))
+  (global-set-key (kbd "C-c e") 'emacspeak-set-language-to-english)
+  (global-set-key (kbd "C-c d") 'emacspeak-set-language-to-german))
+
+(define-prefix-command 'f8-map nil "f7=grep, f8=compile")
+(define-key f8-map [f8] 'compile)
+(define-key f8-map [f7] 'grep)
+(global-set-key [f8] 'f8-map)
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(column-number-mode t)
+ '(load-home-init-file t t))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(default ((t (:family "DejaVu Sans" :foundry "unknown" :slant normal :weight normal :height 120 :width normal)))))
+
+;;(defun c-lineup-arglist-tabs-only (ignored) 
+;;   "Line up argument lists by tabs, not spaces" 
+;;   (let* ((anchor (c-langelem-pos c-syntactic-element)) 
+;;         (column (c-langelem-2nd-pos c-syntactic-element)) 
+;;         (offset (- (1+ column) anchor)) 
+;;         (steps (floor offset c-basic-offset))) 
+;;     (* (max steps 1) 
+;;        c-basic-offset))) 
+
+;; Add kernel style 
+;;(c-add-style 
+;;  "linux-tabs-only" 
+;;  '("linux" (c-offsets-alist 
+;;            (arglist-cont-nonempty 
+;;             c-lineup-gcc-asm-reg 
+;;             c-lineup-arglist-tabs-only)))) 
+;;(custom-set-variables 
+;;  '(c-default-style "linux-tabs-only") 
+;;) 
+
+'(c-max-one-liner-length 80)
+
+'(fill-column 80)
+'(c-ignore-auto-fill (quote (string cpp)))
+
+; cedet semantic
+;;(semantic-mode 1)
+
+;;(require 'semantic/ia)
+;;(require 'semantic/bovine/gcc)
+
+;;(defun my-semantic-hook ()
+;;  (imenu-add-to-menubar "TAGS"))
+;;(add-hook 'semantic-init-hooks 'my-semantic-hook)
+
+(defun set-frame-size-according-to-resolution ()
+  (interactive)
+  (if window-system
+  (progn
+    ;; use 120 char wide window for largeish displays
+    ;; and smaller 80 column windows for smaller displays
+    ;; pick whatever numbers make sense for you
+    (if (> (x-display-pixel-width) 1280)
+           (add-to-list 'default-frame-alist (cons 'width 120))
+           (add-to-list 'default-frame-alist (cons 'width 80)))
+    ;; for the height, subtract a couple hundred pixels
+    ;; from the screen height (for panels, menubars and
+    ;; whatnot), then divide by the height of a char to
+    ;; get the height we want
+    (add-to-list 'default-frame-alist 
+         (cons 'height (/ (- (x-display-pixel-height) 200)
+                             (frame-char-height)))))))
+
+(set-frame-size-according-to-resolution)
+
+;;;;;;;;;;
+;;; c-mode
+(setq c-default-style '((c-mode . "cc-mode")
+			(java-mode . "java")
+			(awk-mode . "awk")
+			(other . "cc-mode")))
+
+(setq-default indent-tabs-mode nil)
+;;(setq-default c-default-style "cc-mode")
+
+;;defun my-c-mode-hook ()
+;;  (setq c-basic-offset 4
+;;       c-indent-level 4
+;;       c-default-style "cc-mode"))
+;;(add-hook 'c-mode-common-hook 'my-c-mode-hook)

.gitconfig

@@ -0,0 +1,7 @@
+[user]
+	name = Orit Wasserman
+	email = [email protected]
+[core]
+	editor = emacs
+[alias]
+lol = log --graph --decorate --pretty=oneline --abbrev-commit

16309.py

@@ -0,0 +1,42 @@
+#!/usr/bin/env python
+import boto
+import boto.s3.connection
+import os
+aws_access_key=os.environ['S3_ACCESS_KEY_ID']
+aws_secret_key=os.environ['S3_SECRET_ACCESS_KEY']
+bucket_name="bucket1"
+port=8000
+# Connect to s3.
+conn = boto.connect_s3(aws_access_key_id = aws_access_key,
+                       aws_secret_access_key = aws_secret_key,
+                       host = 'localhost',
+                       port = port,
+                       is_secure = False,
+                       calling_format = boto.s3.connection.OrdinaryCallingFormat())
+# Create bucket.
+bucket = conn.create_bucket(bucket_name)
+
+num_objs = 100
+# create object on non versioned bucket
+for i in range(1, num_objs):
+    obj = boto.s3.key.Key(bucket)
+    obj.key = 'obj'+ `i`
+    obj.set_contents_from_string('Non versioned')
+
+print bucket
+print 'list objects'
+for k in bucket.get_all_keys(max_keys = 5):
+    print k
+for version in bucket.list_versions():
+    print version.name + ' id ' + version.version_id
+
+# Turn on versioning for this bucket.
+bucket.configure_versioning(True)
+
+print bucket
+print 'list object versioning on '
+for k in bucket.get_all_keys(max_keys=5):
+    print k
+for version in bucket.list_versions():
+    print version.name + ' id ' + version.version_id
+

17040.sh

@@ -0,0 +1,14 @@
+TOKEN=0555b35654ad1656d804
+BUCKET=cont
+publicURL=http://127.0.0.1:8000
+
+#getting token
+#curl -D - -H "X-Auth-User: tester1:tester1" -H "X-Auth-Key: asdf" ${publicURL}/auth 
+
+token=AUTH_rgwtk0f000000746573746572313a74657374657231358a5852f43e7de8d73f89553cd3551ef377a4c0e716592d1d852e51125b170fbc55f0da
+
+bucket='evgeny-test'
+
+python ~/scripts/create_swift_bucket.py --name $bucket
+swift -A $publicURL/auth/1.0 -U tester1:tester1  -K 'asdf' upload $bucket /tmp/456 /tmp/456 
+