cyberweb 0.12.35

data/lib/cyberweb/web_scraper/README.md

@@ -0,0 +1,8 @@
+The code in this directory relates to web-scraping, that is,
+to obtain data from a remote website - including content 
+that may be dynamically rendered through JavaScript.
+
+Presently (August 2018) only one .rb file deals with that,
+which is a simple class that can be used to download e. g.
+pages from a university (made available in yet another
+project, called "studium").

data/lib/cyberweb/web_scraper/scrape_this_url.rb

@@ -0,0 +1,181 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === Cyberweb::ScrapeThisUrl
+#
+# This class can scrape remote websites, by making use of kimurai.
+#
+# Usage example:
+#
+#   Cyberweb::ScrapeThisUrl.new(ARGV)
+#
+# =========================================================================== #
+# require 'cyberweb/web_scraper/scrape_this_url.rb'
+# Cyberweb::ScrapeThisUrl.new(ARGV)
+# =========================================================================== #
+require 'cyberweb/base/base.rb'
+
+module Cyberweb
+
+require 'cyberweb/requires/require_kimurai.rb'
+
+class ScrapeThisUrl < ::Kimurai::Base # === Cyberweb::ScrapeThisUrl
+
+  # ========================================================================= #
+  # === BASE_URL
+  # ========================================================================= #
+  BASE_URL =
+    # 'https://ufind.univie.ac.at/de/course.html?lv=270048&semester=2018W'
+    'https://www.ncbi.nlm.nih.gov/protein/NP_417539.1?report=fasta'
+
+  # ========================================================================= #
+  # === @into
+  # ========================================================================= #
+  @into = '/Depot/j/foobar.html' # Default
+
+  # ========================================================================= #
+  # === Cyberweb::ScrapeThisUrl.set_store_into
+  # ========================================================================= #
+  def self.set_store_into(i)
+    @into = i
+  end; self.instance_eval { alias set_store_into_this_local_file set_store_into } # === Cyberweb::ScrapeThisUrl.set_store_into_this_local_file
+
+  # ========================================================================= #
+  # === Cyberweb::ScrapeThisUrl.into?
+  # ========================================================================= #
+  def self.into?
+    @into
+  end
+
+  # ========================================================================= #
+  # === @name
+  # ========================================================================= #
+  @name = 'scrape_this_url'
+
+  # ========================================================================= #
+  # === @driver
+  # ========================================================================= #
+  @driver = :selenium_chrome
+
+  # ========================================================================= #
+  # === Cyberweb::ScrapeThisUrl.set_start_urls
+  # ========================================================================= #
+  def self.set_start_urls(i = ARGV)
+    i = [i].flatten.compact
+    @start_urls = i
+  end
+
+  # ========================================================================= #
+  # === Cyberweb::ScrapeThisUrl.add_this_url
+  # ========================================================================= #
+  def self.add_this_url(i)
+    @start_urls = [i]
+  end
+
+  set_start_urls(ARGV) unless ARGV.empty?
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      optional_arguments = ARGV
+    )
+    super()
+    reset
+  end
+
+  # ========================================================================= #
+  # === reset
+  # ========================================================================= #
+  def reset
+    infer_the_namespace
+    # ======================================================================= #
+    # === @result
+    # ======================================================================= #
+    @result     = nil # Will be set when it is running.
+    # ======================================================================= #
+    # === @remote_url
+    # ======================================================================= #
+    @remote_url = nil
+  end
+
+  # ========================================================================= #
+  # === parse
+  #
+  # The variable url will point to the remote URL.
+  # ========================================================================= #
+  def parse(
+      response, url: , data: {}
+    )
+    @remote_url = url
+    @result = response
+    store_result_into_a_webpage
+  end
+ 
+  # ========================================================================= #
+  # === result?
+  # ========================================================================= #
+  def result?
+    @result
+  end
+
+  # ========================================================================= #
+  # === show_result
+  # ========================================================================= #
+  def show_result
+    e @result
+  end
+
+  # ========================================================================= #
+  # === e
+  # ========================================================================= #
+  def e(i = '')
+    puts i
+  end
+
+  begin
+    require 'opn'
+  rescue LoadError; end
+  # ========================================================================= #
+  # === opnn
+  # ========================================================================= #
+  def opnn
+    Opn.opn(NAMESPACE)
+  end
+
+  # ========================================================================= #
+  # === remote_url?
+  # ========================================================================= #
+  def remote_url?
+    ::Cyberweb::ScrapeThisUrl.into?
+  end
+
+  # ========================================================================= #
+  # === store_result_into_a_webpage
+  #
+  # This method can be used to store the result into a .html file. The
+  # only argument that should be supplied is the location to that .html
+  # file, which can be given through the variable `into`.
+  #
+  # The dataset has already been stored in the variable @result.
+  # ========================================================================= #
+  def store_result_into_a_webpage(
+      into = ScrapeThisUrl.into?
+    )
+    what = @result
+    opnn; e 'Now storing the resulting dataset into the local file `'+into+'`.'
+    ::Cyberweb.write_what_into(what, into)
+  end
+
+end; end
+
+if __FILE__ == $PROGRAM_NAME
+  # Cyberweb::ScrapeThisUrl.set_start_urls()
+  Cyberweb::ScrapeThisUrl.crawl!
+end # scrape "https://ufind.univie.ac.at/de/course.html?lv=270048&semester=2017W"
+    # scrape "http://www.ulisses-spiele.de/produkte/834"
+    # scrape "https://www.timeanddate.com/worldclock/"
+    # scrape "https://tiss.tuwien.ac.at/course/courseDetails.xhtml?dswid=4632&dsrid=177&courseNr=133293&semester=2020S"
+    # scrape "https://www.ncbi.nlm.nih.gov/protein/NP_417539.1?report=fasta"
+    # scrape "https://www.youtube.com/watch?v=DUza_jDpP7o"

data/lib/cyberweb/webmin/biology_server.cgi

@@ -0,0 +1,254 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/cyberweb/lib/cyberweb/webmin/biology_server.cgi
+# rf bioserver
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+require 'bioroebe'
+
+# =========================================================================== #
+# Todos for BioServer:
+# =========================================================================== #
+#
+# - Implement graph that draws relation between organisms.
+#   Dynamically. :D
+#   We will do a first draft of this via graphviz.
+# - Add biobrick functionality - look at the official webpage
+#   server ... synthetic biology... blablabla http://bbf.openwetware.org/
+# - implement "games" with animals... so that even kids can
+#   use it (and maybe learn it) via the www ...
+#
+# =========================================================================== #
+german('BiologyServer') {
+default_template 'pre {color:green;}
+body   { padding-left:6px; padding-right:12px; }
+a:visited    {color:slateblue;}
+a:hover      {color:slateblue;text-decoration:underline}
+a:active     {color:slateblue;}
+a            {color:slateblue;}
+option:hover {border:1px solid slateblue}
+option       {border:1px solid gainsboro}
+i {
+  font-size: larger;
+  font-weight:600;
+}'
+favicon :bioruby_favicon
+body_css_class 'wid98 BG_Black FS1em pad0_1em mar2px'
+body_id 'BiologyServer'
+body_css_style '
+border-top: 2px solid orange;
+border-left:2px solid orange;
+color:#ceffce'
+use_jquery
+
+RUBY_SRC     = '/home/x/programming/ruby/src/'
+STD_BIO_FILE = RUBY_SRC+'bioroebe/lib/bioroebe/std_biology.rb'
+SCI          = SCIENCE_DIR = '/home/x/data/science/'
+
+doc('s0_5em','','margin:1px; min-height:20em'){
+h1 sg(:leaf,'marr5px')+'<a href="'+$PROGRAM_NAME.split('/').last+'">Biology</a>',
+   's0_5em mart2px slateblue'
+
+# ===================================================================== #
+# === STD_BIO_FILE
+# ===================================================================== #
+if File.exist? STD_BIO_FILE
+  array_all_biology_classes = File.readlines(STD_BIO_FILE)
+  # also change our array :P
+  array_all_biology_classes.map! {|element|
+    if element.include? '</#'
+      Cyberweb.escape_html(element)
+    else # else make no changes
+      element
+    end
+  }
+end
+
+# ===================================================================== #
+# submit_main_form();
+# ===================================================================== #
+javascript 'function submit_main_form() {
+  document.forms["biology_form"].submit();
+}'
+
+div('','','padding:1em') {
+  e 'Modus Operandi Auswählen','','','color:green'
+  form 'biology_server.cgi','get','bblack1','biology_form'
+  p('mars1em pad0px') {
+    ee '<select size="8" name="selected_bio_modus" 
+    style="background-color:gainsboro;font-weight:bold" class="pad0px mar0px">'
+    ee '  <option value="view_available_classes" ondblclick="submit_main_form();">View AvailableClasses</option>'
+    ee '  <option value="view_human_chromosomes" ondblclick="submit_main_form();">View HumanChromosome</option>'
+    ee '  <option value="fasta" ondblclick="submit_main_form();">Enter Fasta Options</option>'
+    ee '  <option value="enzymes_restriction" ondblclick="submit_main_form();">RestrictionEnzymes</option>'
+    ee '  <option value="get_complementary_data" ondblclick="submit_main_form();">GetComplementaryData</option>'
+    cselect
+  }
+  br
+  input :submit, 'SubmitThisInfo','BG_Black pad4px','','border:1px dotted gold;color:green;font-weight:bold'
+  cform
+}
+
+PARAMS = CGI.new 'html4'
+div('pad5em'){ # Test the params.
+  h2 'PARAMS','red'
+  pre PARAMS
+}
+
+# =========================================================================== #
+# CHECK PARAMS
+# =========================================================================== #
+div '','padding:1em'
+  var = w.get_param 'selected_bio_modus'
+  case var.to_s
+  # ========================================================================= #
+  # === view_human_chromosomes
+  #
+  # View human chromosomes
+  # ========================================================================= #
+  when 'view_human_chromosomes'
+    div('','','margin:1em'){
+      dimg 'science/BIOLOGY/HUMAN/HOMO_SAPIENS_KARYOTYPE.png',
+           '','','margin-left:10em',
+      0,'HomoSapiensKaryotype_Image','def',
+      'karyotypes'
+      ee '<map id="karyotypes" name="karyotypes"> 
+      <area shape="rect" coords="170,330,182,335" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=MT" alt="chromosome MT" title="chromosome MT" /> 
+      <area shape="rect" coords="144,300,156,335" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=Y"  alt="chromosome Y"  title="chromosome Y"  /> 
+      <area shape="rect" coords="118,255,130,335" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=X"  alt="chromosome X"  title="chromosome X"  /> 
+      <area shape="rect" coords="92,310,104,335"  href="http://www.ensembl.org/Homo_sapiens/mapview?chr=22" alt="chromosome 22" title="chromosome 22" /> 
+      <area shape="rect" coords="66,310,78,335"   href="http://www.ensembl.org/Homo_sapiens/mapview?chr=21" alt="chromosome 21" title="chromosome 21" /> 
+      <area shape="rect" coords="40,300,56,335"   href="http://www.ensembl.org/Homo_sapiens/mapview?chr=20" alt="chromosome 20" title="chromosome 20" /> 
+      <area shape="rect" coords="14,300,26,335"   href="http://www.ensembl.org/Homo_sapiens/mapview?chr=19" alt="chromosome 19" title="chromosome 19" /> 
+      <area shape="rect" coords="222,191,236,240" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=18" alt="chromosome 18" title="chromosome 18" /> 
+      <area shape="rect" coords="196,188,208,235" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=17" alt="chromosome 17" title="chromosome 17" /> 
+      <area shape="rect" coords="170,185,182,235" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=16" alt="chromosome 16" title="chromosome 16" /> 
+      <area shape="rect" coords="144,180,156,235" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=15" alt="chromosome 15" title="chromosome 15" /> 
+      <area shape="rect" coords="118,180,130,235" href="http://www.ensembl.org/Homo_sapiens/mapview?chr=14" alt="chromosome 14" title="chromosome 14" /> 
+      <area shape="rect" coords="92,170,104,235"  href="http://www.ensembl.org/Homo_sapiens/mapview?chr=13" alt="chromosome 13" title="chromosome 13" /> 
+      <area shape="rect" coords="66,160,78,235"   href="http://www.ensembl.org/Homo_sapiens/mapview?chr=12" alt="chromosome 12" title="chromosome 12" /> 
+      <area shape="rect" coords="40,160,52,235"   href="http://www.ensembl.org/Homo_sapiens/mapview?chr=11" alt="chromosome 11" title="chromosome 11" /> 
+      <area shape="rect" coords="14,160,26,235"   href="http://www.ensembl.org/Homo_sapiens/mapview?chr=10" alt="chromosome 10" title="chromosome 10" /> 
+      <area shape="rect" coords="222,70,236,140"  href="http://www.ensembl.org/Homo_sapiens/mapview?chr=9"  alt="chromosome 9"  title="chromosome 9" /> 
+      <area shape="rect" coords="196,67,208,140"  href="http://www.ensembl.org/Homo_sapiens/mapview?chr=8"  alt="chromosome 8"  title="chromosome 8" /> 
+      <area shape="rect" coords="170,63,182,140"  href="http://www.ensembl.org/Homo_sapiens/mapview?chr=7"  alt="chromosome 7"  title="chromosome 7" /> 
+      <area shape="rect" coords="144,51,156,140"  href="http://www.ensembl.org/Homo_sapiens/mapview?chr=6"  alt="chromosome 6"  title="chromosome 6" /> 
+      <area shape="rect" coords="118,43,130,140"  href="http://www.ensembl.org/Homo_sapiens/mapview?chr=5"  alt="chromosome 5"  title="chromosome 5" /> 
+      <area shape="rect" coords="92,39,104,140"   href="http://www.ensembl.org/Homo_sapiens/mapview?chr=4"  alt="chromosome 4"  title="chromosome 4" /> 
+      <area shape="rect" coords="66,35,78,140"    href="http://www.ensembl.org/Homo_sapiens/mapview?chr=3"  alt="chromosome 3"  title="chromosome 3" /> 
+      <area shape="rect" coords="40,8,52,140"     href="http://www.ensembl.org/Homo_sapiens/mapview?chr=2"  alt="chromosome 2"  title="chromosome 2" /> 
+      <area shape="rect" coords="14,8,26,140"     href="http://www.ensembl.org/Homo_sapiens/mapview?chr=1"  alt="chromosome 1"  title="chromosome 1" />'
+      c 'map'
+      # bl $SCI/YAML/human.yml
+      chromosomes = YAML.load_file(SCIENCE_DIR+'/YAML/human.yml')['chromosomes']
+      1.upto(22).each {|i|
+        e '<b>Chromsome</b>: '+i.to_s+' -> '+chromosomes[i].to_s+' bp','mars1em'
+      }
+      e 'Chromsome X  -> '+chromosomes["X"].to_s+' bp','mars1em'
+      e 'Chromsome Y  -> '+chromosomes["Y"].to_s+' bp','mars1em'
+    }
+    # p # bl $RUBY_STD/*biolog*
+    #   link 'Ensembl HumanBioMap', StdBiology::Homo_sapiens.new.links?
+    # cp
+  # ========================================================================= #
+  # === fasta
+  # 
+  # fasta stuff.
+  # ========================================================================= #
+  when 'fasta'
+    div(style: 'margin:1em') { h2 'Fasta Searcher' }
+  # ========================================================================= #
+  # === view_available_classes
+  #
+  # This views which classes are available. This lists the available
+  # organisms. all classes.
+  # ========================================================================= #
+  when 'view_available_classes'
+    array_all_biology_classes.reject! { |fil| fil =~ /# class|^#/ }
+    array_all_biology_classes.reject! { |fil| ! fil.include?('class ')}
+    # also kill unwanted classes
+    array_all_biology_classes.delete("class PickOrganism")
+    array_all_biology_classes.delete("class Bioroebe")
+    # pre array_all_biology_classes.join "\n"
+    h2 'Listing all classes from '+STD_BIO_FILE,'slateblue'
+    h3 'Currently available: '+array_all_biology_classes.size.to_s,'lightblue mars2em'
+    array_all_biology_classes.sort.each_with_index do |line, my_index|
+      line = line.split('<')[0] if line.include?('<')
+      line = line.split('#')[0] if line.include?('#')
+      line = line.strip
+      line = line.gsub(/class /, '')
+      ee '<span class="yel marr8px">'
+      _= (my_index+1).to_s
+      ee _
+      cspan
+      ee line.to_s, "<br>\n"
+      tmp_class = StdBiology.const_get(line)
+      tmp_class = tmp_class.new
+      # Die klasse hat url_info?
+      if tmp_class.respond_to? :url_info?
+       div('mars2em s1_5em green') {
+         h4 'URL(s) found for '+tmp_class.class.to_s.gsub(/StdBiology::/,'').gsub(/_/,' ')+'',
+         'martb1px mars1em FI green'
+         tmp_class.url_info?.each { |url| link url,url,'mars2em',1,'url' }
+       }
+      end
+    end
+  # ========================================================================= #
+  # === enzymes_restriction                                        (rest tag)
+  # All restriction enzymes
+  #   bl $SCIENCE/YAML/restriction_enzymes.yml
+  # ========================================================================= #
+  when 'enzymes_restriction'
+    div {
+      h1 'Restriction Enzymes',
+         'cyan'
+      restriction_enzymes = SCI+'/YAML/restriction_enzymes.yml'
+      YAML.load_file(restriction_enzymes).each { |data|
+        tag 'h5','martb1px'
+          s2 data[0],'bigger lightblue marl2em'
+          s2 ' -> ','FI'
+          s2 data[1],'lightgreen'
+        c 'h5'
+      }
+    }
+  # ========================================================================= #
+  # === get_complementary_data
+  # ========================================================================= #
+  when 'get_complementary_data'
+    div {
+      h2 'Input your Data:'
+      form 'action.cgi','get','form_name'
+        ee string_textarea(
+          'mars1_5em','dna_input_textarea','border:1px groove lightgreen',
+          40,20,'InputYourTextHere',
+          'onClick="this.select()" 
+           onKeyDown="upcase(this.id)"
+           onKeyPress="return included_in_genetic_code(event)"'
+        ) 
+        input :submit, 'Submit','','',
+        'border:1px solid black; color:green; font-weight:bold'
+      cform
+    }
+  else
+    e 'NOT FOUND'
+    pp var
+  end
+cdiv
+
+div {
+  # link collection
+  p('mars1em pad1em','','border:2px dashed slateblue'){
+    abr :bioserver,'BioServer'
+    abr :fragen,   'PrüfungsFragen'
+    abr :webmin,   'Webmin'
+    abr :science,  'Science'
+    abr :bioruby,  'BioRuby'
+  }
+  p('mars1em pad1em','','border:2px dashed RANDOM_COLOUR'){
+    abr 'https://bbf.openwetware.org/',
+        content: sg(:external,'marr5px')+'BioBrick'
+  }
+}
+}}

data/lib/cyberweb/webmin/calculator.cgi

@@ -0,0 +1,52 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This page is essentially just an online-calculator.
+#
+# Literal examples:
+#
+#   http://localhost/programming/RUBY/src/web_object/lib/web_object/webmin/calculator.cgi?user_input=5%2B3
+#   http://localhost/programming/RUBY/src/web_object/lib/web_object/webmin/calculator.cgi?user_input=5%2A3
+#
+# =========================================================================== #
+# lhttp://localhost/programming/ruby/src/web_object/lib/web_object/webmin/calculator.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+require 'cyberweb/standalone_classes/calculator.rb'
+
+english('Calculator') {
+default_template
+ruby_favicon
+body_css_class 's12px padt4px marpad2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'larger'
+
+doc {
+  # ========================================================================= #
+  # Obtain the parameters first.
+  # ========================================================================= #
+  PARAMS = Cyberweb.web_params?
+  h1 'Calculator'
+  s2 'Input the calculation: ','BOLD'
+  open_form type: 'get'
+  input_field(
+    css_class: 'bblack1 mars6px pad6px',
+    name:      'user_input'
+  )
+  br
+  add_submit_button
+  close_form
+  if PARAMS.has_key? 'user_input'
+    user_input = PARAMS['user_input']
+    result = Cyberweb::Calculator.new(user_input).result?
+    p('mart1em') {
+      e 'The calculatated result is: <b>'+result.to_s+'</b>'
+    }
+  else
+    p {
+      e 'Please input a calculation into the above, such as 5+5.'
+    }
+  end
+}
+}

data/lib/cyberweb/webmin/colour_chart.cgi

@@ -0,0 +1,32 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/cyberweb/lib/cyberweb/webmin/colour_chart.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english('Displaying the colour chart') {
+default_css_template
+ruby_favicon
+body_css_class 's2px padt2px marpad2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+default_font_size_and_hyperlinks
+
+doc {
+  h1 sg(:cat)+
+     'Displaying the <b>colour chart</b> next',
+     'mart4px'
+  Cyberweb.show_html_colour_chart
+  spacer
+  # Cyberweb.colour_table show: 20
+  # ^^^ This method would show e. g. ivory, papayawhip and so forth.
+  if Cyberweb.is_on_roebe?
+    p {
+      e 'Roebe has won.'
+     }
+  end
+pre Cyberweb.params?
+pp Cyberweb.params?
+}
+}

data/lib/cyberweb/webmin/comments.cgi

@@ -0,0 +1,138 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/cyberweb/lib/cyberweb/webmin/comments.cgi
+# =========================================================================== #
+# It seems as if I have started with ruby around 1.81 roughly, that
+# was ~ End of 2004.
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+begin
+  require 'save_file'
+rescue LoadError; end
+
+german('Comments') {
+default_template '
+a:link         { color:slateblue}
+a:visited      { color: slateblue;}
+a:hover        { color: slateblue; text-decoration:underline}
+a:active       { color: #98FB98;}
+table.small    { width: 65%; margin-left: 20% }
+td.padding     { padding-left:1cm; padding-right:0cm; padding-bottom: 0cm; padding-top:0cm; }
+tr.trred       { background: rgb(255,204,204) }
+tr.trgreen     { background: rgb(204,255,204) }
+tr.trblue      { background: rgb(214,214,255) }
+td             { vertical-align: top;         }
+td.tdheader    { background: rgb(200,200,250) }
+td.tdgreen     { background: rgb(204,255,204) }
+td.tdred       { background: rgb(255,214,214) }
+span.comment1  { margin-left:1em; color:lightblue;}
+span.comment2  { margin-left:2em; color:lightblue;}
+span.comment3  { margin-left:3em; color:lightblue;}
+span.s1        { padding-left:1em;color:palegreen; font-weight:bold;}
+span.s1comment { padding-left:1.5em;font-style:italic; background-color:black;color:grey; font-weight:bold;}
+span.s2        { padding-left:2em;color:palegreen; font-weight:bold;}
+span.s3        { padding-left:3em;color:palegreen; font-weight:bold;}
+span.s4        { padding-left:4em;color:palegreen; font-weight:bold;}
+span.s5        { padding-left:5em;color:palegreen; font-weight:bold;}
+span.ruby_yaml_span {
+  font-weight:bold; color: white; background-color:#996666;
+  margin-top:2px; border:1px solid black; padding:2px; padding-right:6px;
+}
+span.yaml_span {
+  font-weight:bold; color: white; background-color:#669999; margin-top:2px;
+  border:1px solid black; padding:2px; padding-right:4px
+}
+div.yaml_div {
+  margin:3px; margin-left:12px; width:84%; background-color: #ccffff; 
+  border:2px solid #669999; padding-top:4px; padding:6px; color: black;
+}
+div.ruby_yaml_div {
+  width:84%; border:2px solid #996666; margin:3px; margin-left:12px;
+  background-color: #ffcccc; padding:8px; padding-top:4px; color: black;
+}
+pre         { font-size:1.45em;}
+div.header  { padding:1.25em;  }
+div.default { 
+  background-color: black; color:white;
+  padding:1.2em; margin-bottom:1em; 
+  padding-left:1.5em; padding-right:2.5em; 
+}
+div {padding:1em; }
+h2 {margin-bottom:2px; }
+h5 {margin-bottom:3px; }
+.important { color: red;}
+img {border:none; }
+body {text-align:left;}'
+fav 'PC/RUBY/RUBY_FAVICON.png'
+body_css_class 'wid97 BG_Black pad0_7em'
+body_css_style 'border-top:1px solid orange;border-left:1px solid orange;color:#ceffce;'
+default_font_size
+
+PARAMS = params?
+# =========================================================================== #
+# === date_today
+# =========================================================================== #
+def date_today
+  w.date_today # w() is a call to a web object.
+end
+
+doc_preferred_width('s0_5em','min-height:50em') {
+  fancy3 'Comments',
+         's2em limegreen'
+  # ========================================================================= #
+  # CHECK PARAMS
+  # ========================================================================= #
+  # div '','padding:1em'
+  #   var = x.params['which_action']
+  #   case var.to_s
+  # cdiv
+  div('','','padding:1em') {
+    h2 dot(102,'marr0_5em')+'Hier kommen Kommentare rein'  
+    div {
+      # nix abgesant
+      if PARAMS.empty?
+        form 'comments.cgi','get','mars1em','form_textarea_comment'
+          print stextarea(
+            '',
+            'mars1em s5px BO bblack2', # css_class
+            'textarea_comment',        # the id
+            '',
+            65,35,'Kommentar hier eintragen',
+            'on_click_select'
+          ) # Select all on click.
+          nbr
+          input :submit,'Submit',
+                 'center mar1em BG_Black larger FI gold',
+                 'input_submit',
+                 'border:2px ridge gold','y'
+        cform
+      else
+        case PARAMS['form_textarea_comment']
+        when ''
+        else # Default.
+          comment_data = PARAMS['form_textarea_comment']
+          if comment_data.is_a? Array
+            comment_data = comment_data.join(' ')
+          end
+          h2 'Kommentar eingetragen.'
+          e 'Folgenden Link klicken, um die Kommentare wieder anzusehen.'
+          a 'comments.cgi',
+             content: 'Comments'
+          SaveFile.append_what_into(
+            'Comment posted at '+date_today+' - '+
+            date_today+N+comment_data+
+            N+('=' * 70)+N,'comments_data','a+')
+        end
+      end
+      div('mart5px FS1em mar1em posab',
+          'drag_kommentare',
+          'right:1em; top:1em; border: 2px dotted brown;') {
+        h2 'Kommentare','BOLD sienna'
+        read_and_display 'comments_data'
+      }    
+    }
+    a 'webmin.cgi', content: 'Webmin'
+  }
+}