sakuric 2.0.1

data/lib/facter/google_compute_engine.rb

@@ -0,0 +1,10 @@
+
+# Riccardo Carlesso
+# So far, iot checks this one: /usr/share/google/safe_format_and_mount
+
+Facter.add("is_google_vm") do
+  setcode do
+    File.exists? '/usr/share/google/safe_format_and_mount'
+  end
+end
+

data/lib/recipes/20120411-puppet-rump-palladius.recipe

@@ -0,0 +1,2 @@
+# TODO
+TODO: bar

data/lib/recipes/20120726-skype.ubuntu.recipe

@@ -0,0 +1,16 @@
+prechecks:
+prerequisites:
+  facter: # needs that facter by KEY equals VALUE
+    lsbdistid: Ubuntuzzz
+description: This try to install skype on Ubuntu!
+name: skype
+install:
+  here: |
+    sudo apt-add-repository "deb http://archive.canonical.com/ $(lsb_release -sc) partner"
+    sudo apt-get update && sudo apt-get install skype
+  test:
+    here:
+      installed on ubuntu: dpkg -l | egrep '^ii  skype'
+uninstall:
+  here:
+    sudo apt-get remove skype

data/lib/recipes/20130206-puppet3.ubuntu.recipe

@@ -0,0 +1,32 @@
+date: 20130206
+description: |
+  installs Puppet3 on Ubuntu Lucid
+  and tries to autodetect distro. It is tested on Lucid and Precise
+  Puppet 3 is a super cool version of Puppet with nifty new features.
+  It can also deploy modules automagically.
+name: puppet-v3
+url: http://projects.puppetlabs.com/projects/1/wiki/Puppet_Ubuntu
+prerequisites:
+    facter:
+      lsbdistid: Ubuntu
+    here: 
+      distro is Ubuntu: 'facter lsbdistid | egrep ^Ubuntu$'
+    modules:
+    - vanilla
+install: 
+  here: |
+    echo -e "deb http://apt.puppetlabs.com/ {{facter|lsbdistcodename}} main\ndeb-src http://apt.puppetlabs.com/ {{facter|lsbdistcodename}} main" >> /etc/apt/sources.list.d/minicook-puppet.list
+    apt-key adv --keyserver keyserver.ubuntu.com --recv 4BD6EC30
+    apt-get update
+    apt-get install puppet # For the puppet client
+  test:
+    here:
+      puppet version 3: -  puppet --version | egrep ^3\.
+uninstall:
+  here: |
+    rm /etc/apt/sources.list.d/minicook-puppet.list
+    apt-get update
+    apt-get remove puppet # For the puppet client
+  test:
+    here:
+      either no puppet or puppet with version 2: which puppet || puppet --version | egrep ^2\.

data/lib/recipes/20130206-redis.linux.recipe

@@ -0,0 +1,17 @@
+##########################################################
+# this recipe installs redis on a generic linux machine
+##########################################################
+date: 20130208
+description: installs Redix on any Linux Machine
+name: redis-from-sources
+url: "http://redis.io/download"
+prerequisites:
+  facter: 
+    lsbdistid: Ubuntu
+    kernel: Linux
+code: 
+  file: sh scripts/redis.sh
+tests:
+  here:
+    process working: 'ps aux | grep redis'
+    file exists:     '[ -f redis-*/src/redis-server ]'

data/lib/recipes/20130208-vanilla.linux.recipe

@@ -0,0 +1,37 @@
+#############
+# Created with 'minicook generate'
+#############
+date: 20130206
+description: |
+  installs Vanilla Riccardo package
+name: ric-vanilla
+version: 0.9
+#url: not yet
+prerequisites:
+    #facter:
+    #  lsbdistid: Ubuntu
+    #here: 
+    #  distro is Ubuntu: 'facter lsbdistid | egrep ^Ubuntu$'
+    #modules:
+    #- vanilla
+  packages: 
+    - rubygems
+    - git
+  file: 
+    - /usr/bin/gem
+    - /usr/bin/git
+install: 
+  here: |
+    touch /root/vanilla-minicook-installed.touch
+    gem install ric
+  gems:
+    - ric
+  test:
+    here:
+      vanilla touch file: test -f  /root/vanilla-minicook-installed.touch
+uninstall:
+  here: |
+    rm /root/vanilla-minicook-installed.touch
+  test:
+    here:
+      vanilla touch file: 'test ! -f  /root/vanilla-minicook-installed.touch'

data/lib/recipes/Makefile

@@ -0,0 +1,4 @@
+
+test:
+	ymltest *.recipe
+

data/lib/recipes/README.md

@@ -0,0 +1,29 @@
+
+Welcome to MiniCook
+-------------------
+
+Welcoem to MiniCook, a small/agile version of Chef/Puppet-like Config Management systems.
+
+
+Ideas
+=====
+
+A recipe should give you a way to install code, and test the code.
+As simple as that. It should have prerequisites, and post-requisites (test for correct installation).
+It should also have a means to uninstall it CLEANLY. swho better than the installer knows how to uninstall?
+
+Install
+=======
+
+This requires facter
+
+ $ sudo gem install facter
+ $ git clone https://github.com/palladius/sakura/
+ $ sakura/bin/minicook list
+ $ sakura/bin/minicook apply puppet3
+
+TODO
+----
+
+Implement the system which USES these recipes :)
+

data/lib/recipes/scripts/redis.sh

@@ -0,0 +1,14 @@
+#!/bin/bash
+
+#URL: http://redis.io/download
+
+wget http://redis.googlecode.com/files/redis-2.6.9.tar.gz
+tar xzf redis-2.6.9.tar.gz
+cd redis-2.6.9
+make
+
+# start server
+src/redis-server &
+
+echo 'set foo riccardobar' | rc/redis-cli
+echo  get foo| rc/redis-cli > /root/redis-get-foo.out

data/lib/ric.rb

@@ -0,0 +1,156 @@
+#!/usr/bin/env ruby -W0
+
+=begin
+
+  Welcome to Riccardo Carlesso first (private) library..
+
+=end
+
+# was: 'SVNRIC'
+$SAKURADIR = File.expand_path(ENV['SAKURADIR'] || '~/git/sakura/') 
+
+$git_conf = {
+  #:svn_id => "$Id$",
+  :ver    => '0.10.02',
+  :use_ric_gem => false
+}
+#$git_conf[:svn_last_rev] = $git_conf[:svn_id].split(' ')[2]
+$RICLIB_VERSION = $git_conf[:ver] # now dry { }"0.9.009"
+
+#NON VA in alcune macchine! Nescio cur! require 'rubygems'     # necessary for other gems
+require 'digest/md5'
+require 'digest/sha1'
+require 'net/smtp'
+require "socket"
+require 'yaml'
+
+if $git_conf[:use_ric_gem] # slow but cool
+  require 'rubygems'
+  require 'ric' 
+else
+  require "#{$SAKURADIR}/lib/ric_colors.rb"
+end
+
+	################################################################################
+	# Riccardo Ruby LIBRARY
+	# 
+	# TO INCLUDE THIS FILE, just paste this:
+	#
+	#      require "$SAKURADIR/lib/ric.rb"
+	#
+	################################################################################
+  
+#module Carlesso
+ ################################################################################
+ # Configuratione... see _init
+ # @tags: obsolete, ric, r, lib, gem, init, loader
+ # @description: try instead
+ ################################################################################
+
+    # conf files into auto/ dir (mi son rotto di aggiungerli qui uno a uno!)
+  def _get_auto_files(subdir)
+    absolute_dir = "#{$SAKURADIR}/lib/#{subdir}"
+    Dir.new(absolute_dir).select{|f| f.match( /\.rb$/ )}.map{|x| subdir + File.basename(x,'.rb') }
+  end
+
+def reload_doesnt_work_properly!(first_time=false,enable_debug=false)
+  puts "[#{$$}] reload_doesnt_work_properly!(#{$0},#{first_time},#{enable_debug},#{$RELOADED_ONCE}) being called" if $RELOAD_DEBUG
+  $RELOADED_ONCE += 1
+  npass = $RICLIB['nreloaded']
+	if npass > 3
+		puts "[ERR] More than first pass: quitting checcacchio!"
+		#return 
+	end
+  debug_on("reload_doesnt_work_properly called with debug enabled!") if enable_debug
+  str = "Reloaded Riclibs v#{$RICLIB_VERSION} -- per la #{$RICLIB['nreloaded']} a volta"
+  first_time = false if $RICLIB['nreloaded'] > 1 
+  modules_to_be_included = $RIC_LIB_MODULES + _get_auto_files("classes/") 
+  modules_to_be_included.each{ |cls| 
+    was_necessary = require "#{$SAKURADIR}/lib/#{cls}.rb"
+    deb "Pass[#{npass}] Loading: #{cls} (necessary: #{was_necessary})" rescue puts("nil #{$!}")
+  }
+end
+
+
+=begin
+  Sto qui inizializza TUTTO cazzo, ho detto TUTTO, non voglio codice qui fuori!
+  # puo' esser chiamato piu' volte...
+  
+  $RELOAD_DEBUG serve a debuggare il tutto.
+=end
+def _init(explaination='no explaination given')
+  #debug_off
+ $RELOAD_DEBUG = false # 
+ deb "pre init '#{explaination}'" if $RELOAD_DEBUG
+ $SCRIPT_BEGUN = Time.now
+ $SVN_ID = "$Id$".split[3] # .quote non ancora def azz!
+ $USER   = 'riccardo'
+ $INIT_DEBUG = false   # dice se debuggare la mia intera infrastruttura o no...
+ $RELOADED_ONCE = 0    # aiuta a capuire quante volte includo sta cazo di lib! Sempre 2!!!
+ $RIC_LIB_MODULES = %w{ classes/debug_ric } # to be explicitly included in this order.
+ $HOME  = File.expand_path('~')
+ $DEBUG ||= false 
+ $PROG  = File.basename($0)
+
+  ################################################################################	
+  # Path to riccardo's Library... Library stuff
+$LOAD_PATH << './lib' 
+$LOAD_PATH << "#{$SAKURADIR}/lib/"
+  # BEWARE: ORDER *IS* RELEVANT!
+  $RICLIB = Hash.new unless defined?($RICLIB)
+  $RICLIB['VERSION'] = $RICLIB_VERSION
+  $RICLIB['libs'] ||= []
+  $RICLIB['nreloaded'] ||= 0
+  $RICLIB['nreloaded'] += 1  
+  $RICLIB['help'] =<<-BURIDONE
+    Questa libreria contiene tutto il mio sapere enciclopedico, ovvero nozionistico. :P
+    ho finalmente risolto il baco della doppia inclusion (cribsio, files includeva questo!)
+  BURIDONE
+  reload_doesnt_work_properly!(true) 
+  $CONF = RicConf.new
+  $SVN_ID="$Id$".split[3].quote rescue "No SVN Id causa migrazione!"
+  pyellow( riclib_info ) if debug?
+  
+  puts "post init delle #{Time.now}" if $RELOAD_DEBUG
+end
+
+=begin
+  This wants to be a magic configuration loader who looks for configuration automatically in many places, like:
+  
+  - ./.CONFNAME.yml
+  - ~/.CONFNAME.yml
+  - .CONFNAME/conf.yml
+  
+  Loads a YAML file looked upon in common places and returns a hash with appropriate values, or an exception 
+  and maybe a nice explaination..
+=end
+def load_auto_conf_migrated_to_ric_gem(confname, opts={})
+  dirs             = opts.fetch :dirs,          ['.', '~', '/etc/']
+  file_patterns    = opts.fetch :file_patterns, [".#{confname}.yml", "#{confname}/conf.yml"]
+  sample_hash      = opts.fetch :sample_hash,   { 'load_auto_conf' => "please add an :sample_hash to me" , :anyway => "I'm in #{__FILE__}"}
+  verbose          = opts.fetch :verbose,       true
+  puts "load_auto_conf('#{confname}') start.." if verbose
+  dirs.each{|d|
+    dir = File.expand_path(d)
+    deb "DIR: #{dir}"
+    file_patterns.each{|fp|
+          # if YML exists return the load..
+      file = "#{dir}/#{fp}"
+      deb " - FILE: #{file}"
+      if File.exists?(file)
+        puts "Found! #{green file}"
+        yaml =  YAML.load( File.read(file) )
+        deb "load_auto_conf('#{confname}') found: #{green yaml}"  
+        return yaml
+      end
+    }
+  }
+  puts "Conf not found. Try this:\n---------------------------\n$ cat > ~/#{file_patterns.first}\n#{yellow "#Creatd by ric.rb:load_auto_conf()\n" +sample_hash.to_yaml}\n---------------------------\n"
+  raise "LoadAutoConf: configuration not found for '#{confname}'!"
+  return sample_hash
+end
+
+## CALL THE INIT! YAY!
+_init("inizializzo alle #{Time.now}") 
+
+#end /module Carlesso

data/lib/ric_colors.rb

@@ -0,0 +1,313 @@
+#!/usr/bin/env ruby
+
+  # PLease forgive me this is going to be obsoleted soon
+  
+module RicColorsObsolete
+  
+$debug_pad_colors = nil # try: [ '(',')']
+$colors_active = false
+
+$color_db = [
+  %w{ normal  black2 black   dkblack  red     green brown   blue midngihtblue purple  cyan  lgray   gray     lred    lgreen  yellow lblue violet azure   white  orange   orange2  orangey  magenta lyellow  pink     dkpink   gold     dkgreen carminio vermiglio bordeaux kawasaki azure2   indigo } , # english word
+  %w{ normale nero2  nero    nerone   rosso   verde marrone blu  bluenotte    porpora ciano grigino grigione rossino verdino giallo lblu  viola  azzurro bianco arancio  arancio2 arancino magenta giallino rosa     rosino   oro      verdone carminio vermiglio bordo    kawasaki azzurro2 indaco } , # italian word
+  %w{ 0;37    0;30  38;5;233 38;5;236 0;31    1;32  38;5;94 0;34 38;5;17      1;35    0;36  0;37    1;30     1;31    1;32    1;33   1;34  1;35   1;36    1;37   38;5;208 38;5;166 38;5;222 0;35    38;5;229 38;5;204 38;5;203 38;5;214 38;5;28 38;5;196 38;5;125  38;5;89  38;5;119 38;5;45  38;5;57 } ,
+  %w{ 000     000    111     222      f00     0f0           00f  191970       ff0     0ff   aaa     888      f00     afa     ff0                                                                    eebb00 } # HEX RGB
+  ]
+
+def colors_on
+  set_color :on #(true)
+end
+def colors_off
+  set_color(false)
+end
+  
+  # TODO support a block (solo dentro l blocco fai il nocolor)
+def set_color(bool)
+  b = bool ? true : false
+  deb "Setting color mode to: #{yellow bool} --> #{white b.to_s}"
+  b = false if bool.to_s.match( /(off|false)/ )
+  deb "Setting color mode to: #{yellow bool} --> #{white b.to_s}"
+  if block_given?
+    puts "TODO!!! scolara qui"
+    yield
+    puts "TODO ricolora qui"
+  end
+  $colors_active = bool
+end
+alias :set_colors :set_color
+
+def bash_color(n, str  )
+  "\033[#{n}m#{str}\033[0m"
+end
+
+def pcolor(color_name='red',str='COLOR: please define a string')
+  if $colors_active
+    puts colora(color_name,str)
+  else
+    puts str
+  end
+end
+
+def visible_color(s)
+  !( s.match(/nero|black/) )
+end
+
+
+def colora(color_name='greenpurpureo',str='colora_test_str2', opts={})
+  color_name = color_name.to_s
+  str = $debug_pad_colors ? $debug_pad_colors.join(str) : str                    # Adding '(2πi)'
+  return str unless $colors_active
+  return str if opts[:nocolor]
+  if ix = $color_db[0].index(color_name) 
+    bash_color($color_db[2][ix],str)
+  elsif ix = $color_db[1].index(color_name)
+    bash_color($color_db[2][ix],str)
+  else
+    debug "Sorry, unknown color '#{color_name}'. Available ones are: #{$color_db[0].join(',') }"
+  end
+end
+
+alias :p :puts
+
+def color_test(with_italian = false)
+  i=0
+  palette = $color_db[0].map { |c|
+    inglese  = c
+    italiano = $color_db[1][i]
+    i = i+1
+    colora( c, with_italian ? [c,italiano].join(','): c )
+  }
+  puts( (1..257).map{|c| bash_color( "38;5;#{c}", c) }.join(', ') )
+  puts( palette.sort{|a,b| a.to_s.gsub(/[^a-z]/,'') <=> b.to_s.gsub(/[^a-z]/,'') }.join(' ')) # sort on a-z chars only (no color)
+  _flag_nations.sort.each{|nation|
+    puts "- Flag sample for #{nation}:\t" + flag("ThisIsAFlaggedPhraseBasedOnNation:#{nation}",nation)
+  }
+end
+alias :colortest :color_test
+
+# carattere per carattere...
+def rainbow(str)
+  i=0
+  ret = '' 
+  str=str.to_s
+  while(i < str.length)
+    ch = str[i]
+    palette = $color_db[0][i % $color_db[0].length ]
+    ret << (colora(palette,str[i,1]))
+    i += 1
+  end
+  ret
+end
+alias  :arcobaleno :rainbow
+
+
+#########################################
+# Dynamic functions
+#########################################
+#assert(color_db[0].length == color_db[1].length,"English and italian colors must be the same cardinality!!!")
+# TODO ripeti con , $color_db[1] 
+( $color_db[0] + $color_db[1] ).each { |colorname|
+   dyn_func = "
+   
+  def get_#{colorname} (str='colors.rb: get_COLOR dynamically generated ENGLISH COLOR ')
+    return colora('#{colorname}',str)
+  end
+  
+  def #{colorname} (str='colors.rb: COLOR dynamically generated ENGLISH COLOR TO BE COPIED TO GET')
+    return colora('#{colorname}',str) rescue 
+       \"Errore #{colorname} con stringa '#"+"{str}' e classe #"+"{str.class} \"
+  end
+  
+  def p#{colorname} (str='colors.rb: pCOLOR dynamically generated ENGLISH COLOR TO BE DESTROYED')
+    puts colora('#{colorname}',str)
+  end 
+"
+    eval dyn_func unless method_defined?( "get_#{colorname}".to_sym )
+}
+
+def okno(bool,str=nil)
+  str ||= bool
+  bool = (bool == 0 ) if (bool.class == Fixnum) # so 0 is green, others are red :)
+  return bool ? green(str) : red(str)
+end
+
+def colors_flag(nation = 'it')
+  %w{ red white green }
+end
+
+  # "\e[0;31m42\e[0m" --> "42"
+  # \e[38;5;28mXXXX    -> "XXX"
+def scolora(str)
+  str.to_s.
+    gsub(/\e\[1;33m/,''). # colori 16
+    gsub(/\e\[0m/,''). # colori 64k
+    gsub(/\e\[38;\d+;\d+m/,'') # end color
+end
+alias :uncolor :scolora
+
+  # italia:  green white red
+  # ireland: green white orange
+  # france:  green white orange
+  # UK:      blue white red white blue
+  # google:
+def _flag_nations
+  %w{ar cc it de ie fr es en goo br po pt }.sort
+end
+def flag(str, flag = '')
+  case flag.to_s
+    when 'ar'
+    	    return flag3(str, 'azure2', 'white', 'cyan') 
+    when 'br','pt'
+        return flag3(str, 'dkgreen', 'gold', 'dkgreen') 
+    when 'cc'
+             return flag3(str, 'red', 'white', 'red')  # switzerland
+    when 'de'
+             return flag3(str, 'dkblack', 'red',   'gold')
+    when 'ie','gd','ga'
+   return flag3(str, 'dkgreen', 'white', 'orange')# non so la differenza, sembrano entrambi gaelici! 
+    when 'en'
+             return flag3(str, 'red', 'blue', 'red') # red white blue white red white blue white ... and again
+    when 'es'
+             return flag3(str, 'yellow', 'red', 'yellow') 
+    when 'fr'
+             return flag3(str, 'blue', 'white', 'red') 
+    when 'goo','google'
+   return flag_n(str, %w{ blue red yellow blue green red } ) 
+    when 'it'
+           return flag3(str, 'dkgreen', 'white', 'red')
+    when 'po'
+           return flag2(str, 'white', 'red')
+    when ''
+             return flag3(str + " (missing flag1, try 'it')")
+  end
+   return flag3(str + " (missing flag2, try 'it')")
+end
+
+  # for simmetry padding
+  # m = length / 3
+  # 6: 2 2 2        m   m   m    REST 0
+  # 5: 2 1 2       m+1  m  m+1        2
+  # 4: 1 2 1        m  m+1  m         1
+def flag3(str,left_color='brown',middle_color='pink',right_color='red')
+  m = str.length / 3
+  remainder = str.length % 3
+  central_length = remainder == 1 ? m+1 : m 
+  lateral_length = remainder == 2 ? m+1 : m 
+  colora( left_color,   str[ 0 .. lateral_length-1] ) + 
+  colora( middle_color, str[ lateral_length .. lateral_length+central_length-1] ) + 
+  colora( right_color,  str[ lateral_length+central_length .. str.length ] )  
+end
+def flag2(str,left_color='brown',right_color='pink')
+  flag_n(str, [left_color, right_color] )
+end
+
+def flag_n(str,colors)
+  size = colors.size
+  #debug_on :flag6
+  ret = ""
+  m = str.length / size # chunk size
+  deb m
+  (0 .. size-1).each{|i|
+    #deb "Passo #{i}"
+    chunk = str[m*(i),m*(i+1)]
+    #deb chunk
+    ret += colora(colors[i], chunk )
+  }
+  #deb str.split(/....../)
+  #remainder = str.length % 6
+  #return ret + " (bacatino)"
+  # central_length = remainder == 1 ? m+1 : m 
+  # lateral_length = remainder == 2 ? m+1 : m 
+  # colora(  left_color,    str[ 0 .. lateral_length-1] ) + 
+  #   colora( middle_color, str[ lateral_length .. lateral_length+central_length-1] ) + 
+  #   colora( right_color, str[ lateral_length+central_length .. str.length ] )  
+  return ret
+end
+
+
+###################################################################################################################
+# COLORS LIBRARY
+=begin
+  nero)   shift; echo -en "\033[0;30m$*\033[0m\n" ;;
+  rossone)  shift; echo -en "\033[0;31m$*\033[0m\n" ;;
+  verdone)  shift; echo -en "\033[0;32m$*\033[0m\n" ;;
+  marrone)  shift; echo -en "\033[0;33m$*\033[0m\n" ;;
+  bluino)     shift; echo -en "\033[0;34m$*\033[0m\n" ;;
+  porpora)  shift; echo -en "\033[0;35m$*\033[0m\n" ;;
+  ciano)    shift; echo -en "\033[0;36m$*\033[0m\n" ;;
+  grigino)    shift; echo -en "\033[0;37m$*\033[0m\n" ;;
+
+  grigione) shift; echo -en "\033[1;30m$*\033[0m\n" ;;
+  rosso)    shift; echo -en "\033[1;31m$*\033[0m\n" ;;
+  verde)    shift; echo -en "\033[1;32m$*\033[0m\n" ;;
+  giallo)   shift; echo -en "\033[1;33m$*\033[0m\n" ;;
+  blu)      shift; echo -en "\033[1;34m$*\033[0m\n" ;;
+  viola)    shift; echo -en "\033[1;35m$*\033[0m\n" ;;
+  azzurro)    shift; echo -en "\033[1;36m$*\033[0m\n" ;;
+  bianco)   shift; echo -en "\033[1;37m$*\033[0m\n" ;;
+
+  arancio)  shift; echo -en "\033[5;31m$*\033[0m\n" ;;
+  
+  colour_codes = {
+          'black':        '\033[0;30m',
+          'red':          '\033[0;31m',
+          'green':        '\033[0;32m',
+          'yellow':       '\033[0;33m',
+          'blue':         '\033[0;34m',
+          'magenta':      '\033[0;35m',
+          'cyan':         '\033[0;36m',
+          'white':        '\033[0;37m',
+          'darkgray':     '\033[1;30m',
+          'br-red':       '\033[1;31m',
+          'br-green':     '\033[1;32m',
+          'br-yellow':    '\033[1;33m',
+          'br-blue':      '\033[1;34m',
+          'br-magenta':   '\033[1;35m',
+          'br-cyan':      '\033[1;36m',
+          'br-white':     '\033[1;37m',
+          'ul-black':     '\033[4;30m',
+          'ul-red':       '\033[4;31m',
+          'ul-green':     '\033[4;32m',
+          'ul-yellow':    '\033[4;33m',
+          'ul-blue':      '\033[4;34m',
+          'ul-magenta':   '\033[4;35m',
+          'ul-cyan':      '\033[4;36m',
+          'ul-white':     '\033[4;37m',
+          'default':      '\033[0m'
+  }
+=end
+
+  class RicColor < String
+    attr :color
+  
+    def initialize(mycol)
+      super
+      @color = mycol
+    end
+  
+    def to_s
+      'RicColor: ' + self.send(@color)
+    end
+  
+    def to_html
+      "<font color=\"#{@color}\" >#{self}</font>"
+    end
+  end #/Class RicColor
+
+  def terminal
+    ENV['TERM_PROGRAM'] || 'suppongo_ssh'
+  end
+
+  def daltonic_terminal?()
+    #deb( "Terminal is: " + terminal )
+    return !! terminal.to_s.match( /Apple_Terminal/ )
+  end
+
+
+end # /module
+
+#require 'ric'
+
+
+include RicColorsObsolete
+$colors_active = ! RicColor.daltonic_terminal? # DEFAULT: active