| <configuration scan="true" scanPeriod="1 seconds" debug="false"> | |
| <appender name="CONSOLE" class="ch.qos.logback.core.ConsoleAppender"> | |
| <encoder> | |
| <pattern>%d{HH:mm:ss.SSS} [%thread] %-5level %logger{36} - %msg%n</pattern> | |
| </encoder> | |
| </appender> | |
| <appender name="COMPUTEFILE" class="ch.qos.logback.core.rolling.RollingFileAppender"> | |
| <file>logs/jclouds-compute.log</file> | |
| <rollingPolicy class="ch.qos.logback.core.rolling.TimeBasedRollingPolicy"> |
Zero to running in five minutes with lein.
The first thing we need is leiningen,
a build tool for clojure. You can downlaod this with your web browser, curl or
wget or your favourite download tool. Here we show using curl.
bash$ curl -O http://github.com/technomancy/leiningen/raw/stable/bin/lein
| (use 'pallet.crate.automated-admin-user) | |
| (def my-group | |
| (pallet.core/group-spec "my-group" | |
| :phases {:bootstrap (phase-fn (automated-admin-user))})) | |
| (pallet.core/converge | |
| {my-group 1} | |
| :compute (pallet.configure/compute-service :gogrid)) |
| :virtualbox | |
| {:provider "virtualbox" | |
| :environment | |
| {:image | |
| {:bridged-network "Airport 2" ;; The name of the network interface to use for bridging | |
| }} |
| <?xml version="1.0" encoding="UTF-8" ?> | |
| <!DOCTYPE log4j:configuration SYSTEM "log4j.dtd"> | |
| <log4j:configuration xmlns:log4j="http://jakarta.apache.org/log4j/"> | |
| <appender name="console" class="org.apache.log4j.ConsoleAppender"> | |
| <param name="Target" value="System.out"/> | |
| <param name="Threshold" value="ERROR" /> | |
| <layout class="org.apache.log4j.PatternLayout"> | |
| <param name="ConversionPattern" value="%d %p %c{1}:%L - %m%n"/> | |
| </layout> |
| <configuration scan="true" scanPeriod="1 seconds" debug="true"> | |
| <appender name="CONSOLE" class="ch.qos.logback.core.ConsoleAppender"> | |
| <ImmediateFlush>true</ImmediateFlush> | |
| <!-- deny all events with a level below INFO, that is TRACE and DEBUG --> | |
| <filter class="ch.qos.logback.classic.filter.ThresholdFilter"> | |
| <level>ERROR</level> | |
| </filter> | |
| <encoder> | |
| <pattern>%d{HH:mm:ss.SSS} %-5level - %msg%n</pattern> | |
| </encoder> |
| (def machine-config | |
| {:cpu-count 2 | |
| :memory-size 555 | |
| :network [{:attachment-type :bridged | |
| :host-interface "en1: Airport 2"} | |
| nil | |
| {:attachment-type :bridged | |
| :host-interface "nothing"}] | |
| :storage [{:name "IDE Controller" | |
| :bus :ide |
| (def machine-config | |
| {:cpu-count 2 | |
| :memory-size 555 | |
| :network [{:attachment-type :bridged | |
| :host-interface "en1: Airport 2"} | |
| nil | |
| {:attachment-type :bridged | |
| :host-interface "nothing"}] | |
| :storage [{:name "IDE Controller" | |
| :bus :ide |
| (defn get-group-settings [session group] | |
| (let [nodes (session/nodes-in-group session group)] | |
| (zipmap (map #(compute/primary-ip %) nodes) | |
| (map (fn [node] | |
| (parameter/get-node-settings session node group nil)) | |
| nodes)))) | |
| (defn get-all-settings [session] | |
| (let [groups (map :group-name (:groups session))] | |
| (zipmap |
| # | |
| # Recommended minimum configuration: | |
| # | |
| acl manager proto cache_object | |
| acl localhost src 127.0.0.1/32 ::1 | |
| acl to_localhost dst 127.0.0.0/8 0.0.0.0/32 ::1 | |
| # Example rule allowing access from your local networks. | |
| # Adapt to list your (internal) IP networks from where browsing | |
| # should be allowed |