Unix/Linuxを中心に技術メモや身近な体験を記録。
Tweet
Tweet
Tweet
Tweet
$ ovs-vsctl set bridge br-ex other-config:hwaddr=92:c3:28:4c:09:45
$ neutron port-update $PORTID00 \ --allowed-address-pairs type=dict list=true mac_address=fa:16:3e:0c:6d:89,ip_address=172.16.100.99
neutron port-update $PORTID00 \ --allowed-address-pairs type=dict list=true mac_address=fa:16:3e:0c:6d:89,ip_address=172.16.100.0/24
Tweet
抽象化（ちゅうしょうか、英: Abstraction、独: Abstraktion）とは、思考における手法のひとつで、対象から注目すべき要素を重点的に抜き出して他は無視する方法である。反対に、ある要素を特に抜き出して、これを無視したり、切り捨てる意味もあり、この用法については捨象するという。従って、抽象と捨象は盾の両面といえる。Wikipedia より
Tweet
Tweet
easy_install virtualenv virtualenvwrapper
if [ -f /usr/bin/virtualenvwrapper.sh ]; then export WORKON_HOME=~/.virtualenvs source `which virtualenvwrapper.sh` fi export PIP_DOWNLOAD_CACHE=~/.pip_cache
pip install python-novaclient python-neutronclient python-swiftclient python-cinderclient* python-glanceclient はコンパイルエラーになります。crypto周り？？
gcc-core libxml2 libxml2-devel libxslt libxslt-devel openssl-devel libffi libffi-devel yaml
Tweet
$ pip install python-keystoneclient python-swiftclientエラーが出る場合はOS側のライブラリ等が足りません。エラーメッセージを見れば大体何が足りないかはわかると思います。
$ vim openrc_conoha export OS_AUTH_URL=API Auth URL export OS_TENANT_ID=テナントID export OS_USERNAME=ユーザー名 export OS_PASSWORD=自分のパスワード
$ source openrc_conoha
$ swift stat
Account: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Containers: 0
Objects: 0
Bytes: 0
Meta Quota-Bytes: 110058536960000
X-Timestamp: 1409734987.60990
Content-Type: text/plain; charset=utf-8
Accept-Ranges: bytes
$ swift post container01
$ swift list
container01
$ swift stat container01
Account: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Container: container01
Objects: 0
Bytes: 0
Read ACL:
Write ACL:
Sync To:
Sync Key:
Accept-Ranges: bytes
X-Timestamp: 1409736843.00552
X-Trans-Id: tx2eb6ef4622c34c1a90c62-005406e0a8
Content-Type: text/plain; charset=utf-8
$ cat hoge.txt
hogehoge
$ swift upload container01 hoge.txt
hoge.txt
$ swift stat container01
Account: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Container: container01
Objects: 1
Bytes: 9
Read ACL:
Write ACL:
Sync To:
Sync Key:
Accept-Ranges: bytes
X-Timestamp: 1409736843.00709
X-Trans-Id: tx70d3fe1c2c534d2d8f513-005406e148
Content-Type: text/plain; charset=utf-8
$ swift post --read-acl ".r:*,.rlistings" container01
$ swift stat container01
Account: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Container: container01
Objects: 1
Bytes: 9
Read ACL: .r:*,.rlistings
Write ACL:
Sync To:
Sync Key:
Accept-Ranges: bytes
X-Trans-Id: txd0161d15696c407cadd5b-005406e2d3
X-Timestamp: 1409736843.00552
Content-Type: text/plain; charset=utf-8
$ keystone endpoint-get --service object-store +------------------------+---------------------------------------------------------------------------+ | Property | Value | +------------------------+---------------------------------------------------------------------------+ | object-store.publicURL | https://objectstore-r1nd1001.cnode.jp/v1/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx | +------------------------+---------------------------------------------------------------------------+xxxxxxxxxxxx 部分にはテナントIDが入ります。
$ curl https://objectstore-r1nd1001.cnode.jp/v1/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/container01/hoge.txt hogehoge
Tweet
Tweet
Tweet
Tweet
にて予約が可能となっています。前書きと目次については
(defmacro nova-call (name args documentation lambda-list &body body)
(let ((documentation (if (stringp documentation) documentation "")))
(destructuring-bind (&key url content (method :get)) lambda-list
`(defun ,name ,args
,documentation
(assert *token*)
(assert *service-catalog*)
(let* ((service-url (car (service-catalog-query "compute")))
(url (merge-uris ,url service-url)))
(let ((data (restart-case
(rpc-call url ,method ,content)
(retry ()
:report "Retry Openstack Call."
(rpc-call url ,method ,content)))))
,@body))))))
(defclass resource ()
((id :initarg :id
:reader resource-id)
(connection :initarg :connection
:reader resource-connection)
(attributes :initform (make-hash-table))))
(defmethod resource-error-class ((resource resource))
'openstack-error)
(defmethod print-object ((resource resource) stream)
(if (slot-boundp resource 'id)
(print-unreadable-object (resource stream :type t :identity t)
(format stream "~A" (resource-id resource)))
(print-unreadable-object (resource stream :type t :identity t))))
(defmethod decode-resource (resource parent type)
;; TODO (RS) currently extra keys are just ignored in all resources,
;; it would be best if they were saved somewhere.
(apply #'make-instance
type
:connection (resource-connection parent)
:parent parent
(concatenate 'list
(alist-plist resource)
'(:allow-other-keys t))))
(defmethod decode-resource-list (resources parent type)
(loop :for resource :in resources
:collect (decode-resource resource parent type)))
(defgeneric resource-authentication-headers (resource)
(:documentation "Return a list of the authentication headers that
should be added to the request."))
(defmethod upload-file ((client openstack-client) (filename string)
&key (container "/testainer") (content-type "application/text") headers)
"Upload file will upload `filename' into the ObjectStore."
(let* ((url (format nil "~a~a~a/~a"
*computeurl*
(slot-value client 'tenantid)
container
(pathname-name filename)))
(md5-hash (md5-digest-file filename)))
(base-request url :PUT
:content-type content-type
:content (pathname filename)
:headers (base-headers client headers)
:after-request #'(lambda (request)
(let* ((recvdheaders (nth 2 request))
(etag (cdr (assoc :ETAG recvdheaders))))
(string= etag md5-hash))))))
Tweet
Tweet
Tweet
Tweet
Tweet
Tweet
