cyberweb 0.4.174

data/test/css/README.md

@@ -0,0 +1,5 @@
+This directory may include some tests that relate to CSS, in
+particular when the cyberweb gem makes use of this functionality.
+
+Furthermore this directory may include a few pure .html pages,
+as examples to demonstrate certain aspects of CSS+HTML.

data/test/css/return_the_content_of_these_css_classes.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'cyberweb'
+
+pp Cyberweb.return_the_content_of_these_css_classes('BG_BLACK pad0_4em')

data/test/css/testing_css_effects.cgi

@@ -0,0 +1,159 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/css/testing_css_effects.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english {
+autoextend
+title 'Testing CSS effects'
+favicon 'PC/RUBY/RUBY_FAVICON.png'
+css_style '
+
+.rounded_corner1 {
+  background-color:lightgreen;
+  border-radius: 12px;
+  border-color: darkblue;
+  border-style: solid;
+  -webkit-border-radius: 12px;
+  -moz-border-radius: 12px;
+}
+
+div {
+  margin: 6px;
+}
+
+div.gradient1 {
+  background: linear-gradient(to right,#000,#0575e6);
+  text-align: center;
+}
+
+div.gradient2 {
+  background: linear-gradient(to left,#000,#0575e6);
+  text-align: center;
+}
+
+div.gradient3 {
+  background: linear-gradient(to right, steelblue,lightgreen);
+  text-align: center;
+}
+
+div.gradient4 {
+  background: linear-gradient(to right, '+Cyberweb.random_colour?+','+Cyberweb.random_colour?+');
+  text-align: center;
+}
+
+div.gradient5 {
+  background: linear-gradient(to right, '+Cyberweb.random_colour?+','+Cyberweb.random_colour?+');
+  text-align: center;
+}
+
+div.gradient6 {
+  background: linear-gradient(to right, '+Cyberweb.random_colour?+','+Cyberweb.random_colour?+');
+  text-align: center;
+}
+
+div.gradient7 {
+  background: linear-gradient(to right, '+Cyberweb.random_colour?+','+Cyberweb.random_colour?+');
+  text-align: center;
+}
+
+div.gradient8 {
+  background: linear-gradient(to right, '+Cyberweb.random_colour?+','+Cyberweb.random_colour?+');
+  text-align: center;
+}
+
+div.gradient9 {
+  background: linear-gradient(to right, '+Cyberweb.random_colour?+','+Cyberweb.random_colour?+');
+  text-align: center;
+}
+
+div.gradient10 {
+  background: linear-gradient(to right, '+Cyberweb.random_colour?+','+Cyberweb.random_colour?+');
+  text-align: center;
+}
+
+'+TEMPLATE1
+body_css_class 'mar0px s2px padt2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'def'
+
+doc('mar0px') {
+  h1 'Testing css effects:','mart1px'
+  spacer
+  e '(1) A div-element that is vertically aligned:'
+  br
+  div('bblack1 align_vertically') {
+    h3 'This element is vertically centered.'
+  }
+  e 'For comparison, the next div-element is simply centered.'
+  div('bblack1','margin: auto;') {
+    h3 'This element is horizontally centered.'
+  }
+  div('bblack1') {
+    h3 'This element is not centered at all.'
+  }
+  # ========================================================================= #
+  # === Testing link transition variants
+  # ========================================================================= #
+  h1 'Testing link transition variants:'
+  div {
+    abr 'Link1',
+        content: :self,
+        css_class: 'transition1 BOLD'
+  }
+  # ========================================================================= #
+  # === Testing a colour gradient
+  # ========================================================================= #
+  h1 'Testing a colour gradient:'
+  div('gradient1') {
+    e 'Gradient from left to right'
+  }
+  div('gradient2') {
+    e 'Gradient from right to left'
+  }
+  div('gradient3') {
+    e 'Gradient from left to right'
+  }
+  div('gradient4') {
+    e 'Gradient from left to right with random colours'
+  }
+  div('gradient5 wid50') {
+    e 'Gradient from left to right with random colours'
+  }
+  div('gradient6 wid50') {
+    e 'Gradient from left to right with random colours'
+  }
+  div('gradient7 wid25') {
+    e 'Gradient from left to right with random colours'
+  }
+  div('gradient8 wid25') {
+    e 'Gradient from left to right with random colours'
+  }
+  div('gradient9 wid25 bblack1') {
+    e 'Gradient from left to right with random colours'
+  }
+  div('gradient10 wid25 bblack1') {
+    e 'Gradient from left to right with random colours'
+  }
+  # ========================================================================= #
+  # === CSS background tag
+  #
+  # To have the background keep up with scrolling.
+  # ========================================================================= #
+  div {
+    header 'How do we use CSS in defining that the background shall
+    scroll when a page is scrolled down?'
+    br
+    e Cyberweb.remove_html('      background-attachment: scroll // 
+    and to disable it, use: fixed'),'lightgreen BG_Black pad1em'
+    br
+    anm 'This effect may be noticeable only when the window has been
+    minimized.','marl1em'
+  }
+  div('rounded_corner1') {
+    e 'A rounded-corner div element (radius 5px).'
+  }
+}}

data/test/css/testing_css_masking.cgi

@@ -0,0 +1,36 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/css/testing_css_masking.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english {
+title 'Testing css masking'
+favicon 'PC/RUBY/RUBY_FAVICON.png'
+css_style '
+
+.masked {
+  mask-image: linear-gradient(to bottom, transparent 5%, black 35%); 
+}
+
+'
+body_css_class 'mar0px s2px padt2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'def'
+
+doc {
+  h1 'Testing CSS masking'
+  p {
+    e 'These are the same images, so you can see the difference
+    when <b>mask-image</b> is applied.'
+    br
+    imgbr 'SMALL_PLANE.png',
+          'mars3em bblack1',
+          'drag_pic1'
+    imgbr 'SMALL_PLANE.png',
+          'mars3em bblack1 masked',
+          'drag_pic2'
+  }
+}}

data/test/hello_world/hello_world.cgi

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/hello_world/hello_world.cgi
+# =========================================================================== #
+# This file just demonstrates a "Hello World!" example through a .cgi
+# file, via the WebObject project.
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english {
+title 'Hello World!'
+
+doc('mart1px pad2px') {
+  h2 'Hello World!','mart4px'
+  p {
+    espan 'This file here just demonstrates a simple Hello World '\
+          'oldschool <b>.cgi</b> program. The next line should '\
+          'show this, in dark blue colour, and a bold text.'
+  }
+  p {
+    e 'Hello world!','larger mars3em darkblue BOLD'
+  }
+}}

data/test/javascript/README.md

@@ -0,0 +1,2 @@
+This directory may specifically test individual javascript
+functionality of the cyberweb project.

data/test/javascript/testing_drag_and_drop_support.cgi

@@ -0,0 +1,33 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/cyberweb/test/javascript/testing_drag_and_drop_support.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english('Testing jquery drag and drop support') {
+ruby_favicon
+css_style :template1
+body_css_class 'mar0px s2px padt2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'def'
+
+doc('mar0px pad0px s0_5em') {
+
+ee '<script src="https://code.jquery.com/ui/1.12.1/jquery-ui.js"></script>'
+
+  h1 'Testing jquery drag and drop support',
+     'martb1px'
+  p {
+    dimg 'STD/USB_CONNECTION_DEVICE.png',
+         'mar1em bblack1 mars3em'
+  }
+
+  make_this_id_draggable 'drag_this_cat'
+  div('','drag_this_cat','width: 250px') {
+    ee '<p>Drag me around<br>
+    <img src="https://i.imgur.com/EBKibb1.png">
+    </p>'
+  }
+}}

data/test/javascript/testing_on_click_change_opacity.cgi

@@ -0,0 +1,26 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/javascript/testing_on_click_change_opacity.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english {
+title 'Testing on-click-change-opacity'
+favicon :ruby_favicon
+css_style :template1
+body_css_class 'mar0px s0px padt0px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'def'
+
+doc('mar0px pad0px s0_1em') {
+
+div('BG_Black White mart2em pad1em center wid40 mars2em') {
+  h2 'Hello world! Click on me once.',
+     'lightblue',
+     'pic1'
+}
+on_click_change_opacity '#pic1','0.80'
+
+}}

data/test/javascript/testing_snowflakes.cgi

@@ -0,0 +1,20 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/cyberweb/test/javascript/testing_snowflakes.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english('Testing snowflakes') {
+favicon :ruby_favicon
+css_style :template1
+body_css_class 'mar0px s0px padt0px VERDANAs'
+body_css_style 'background-color: black;'
+font_size 'def'
+
+doc('mar0px pad0px s0px BG_Black') {
+  div('BG_Black White mart2em pad1em center larger') {
+    snowflakes
+  }
+}}

data/test/simple_tests/README.md

@@ -0,0 +1,3 @@
+This directory should contain tests that are small and simple.
+
+Anything that is long and complicated should NOT be put here.

data/test/simple_tests/ad-hoc-test.cgi

@@ -0,0 +1,55 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/cyberweb/test/simple_tests/ad-hoc-test.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english {
+css_style :template1
+ruby_favicon
+body_css_class 's12px padt4px marpad2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'def'
+
+# =========================================================================== #
+# Generate some drop-shadow effect.
+# =========================================================================== #
+generate_drop_shadow
+
+doc('mar0px pad0px') {
+  p('mart1px pad0px') {
+    e 'The purpose of this file is to simply - and quickly - test some
+    ad-hoc functionality.'
+    br
+    e 'We will use it to test various tidbits.'
+  }
+  p('mart1px pad0px') {
+    e 'And now <b>test for images from a file</b>:'
+    br
+    return_the_registered_base64_images.each {|this_base64_image|
+      add_this_base64_image(this_base64_image, '',
+                            'drag_'+File.basename(this_base64_image).to_s[0 .. 8]
+                           )
+    }
+  }
+  div('pad0_5em drop_shadow') {
+    h3 'This part should show a drop-shadow effect'
+    p {
+      e 'The header above ^^^ should show this.'
+      br
+      e 'To compare it with bold text here: <b>This is a bold test</b>.'
+    }
+  }
+  generate_drop_shadow :red, :default, 'drop_shadow_red'
+  div('pad0_5em drop_shadow_red') {
+    h3 'This part should show a drop-shadow effect - but in red'
+    p {
+      e 'The header above ^^^ should show this.'
+      br
+      e 'To compare it with bold text here: <b>This is a bold test</b>.'
+    }
+  }
+
+}}

data/test/simple_tests/commandline_tests.rb

@@ -0,0 +1,70 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This file will contain only code that is testable on the commandline.
+# =========================================================================== #
+require 'colours/autoinclude'
+require 'cyberweb'
+require 'verbose_truth/autoinclude'
+
+# =========================================================================== #
+# === yel
+# =========================================================================== #
+def yel(i); Colours.yellow(i); end
+
+# =========================================================================== #
+# === rev
+# =========================================================================== #
+def rev; Colours.rev; end
+
+e rev+'Some tests will be run from the commandline next.'
+e
+e 'First, what is the '+yel('project base directory')+' of this project?'
+e
+e '  '+sfancy(Cyberweb.project_base_dir?)
+e
+e 'Second, what is the path to the image directory?'
+e
+e '  '+sfancy(Cyberweb.path_to_images?)
+e
+e 'This path will be tested next. We will assign it, via Cyberweb.set_path_to_images() next.'
+e
+Cyberweb.set_path_to_images(Dir.pwd)
+e
+e 'The path is now:'
+e
+e '  '+sfancy(Cyberweb.path_to_images?)
+e
+e 'Third, the '+yel('config directory')+' of the Cyberweb project can be found at?'
+e
+e '  '+sfancy(Cyberweb.config_directory?)
+e
+e 'Fourth, the config file can be found here:'
+e
+e '  '+sfancy(Cyberweb.config_file?) # config file tag.
+e
+e 'Fifth, the '+yel('server base directory')+' can be found here:'
+e
+e '  '+sfancy(Cyberweb.server_base_directory?)
+e
+e 'Sixth, will we debug?:'
+e
+e '  '+sfancy(vt(Cyberweb.debug?).delete('.'))+'.'
+e
+e 'Next, we will see whether the relative-pathing works.'
+e
+e 'The current directory is '+sfancy(Dir.pwd)+'.'
+n = Cyberweb.n_slashes_towards_the_server_base_directory
+e 'It has '+n.to_s+' "/" towards the server base directory, '+
+  'which can be found'
+e 'at '+yel(Cyberweb.server_base_directory?)+'.'
+e
+where_at = Dir.pwd+'/'+Cyberweb.path?
+location = File.absolute_path( where_at )
+e 'The '+yel('relative directory')+' will thus have an expanded path '+
+  'of: '
+e
+e '  '+Cyberweb.path?+' (will then be at '+
+  sfancy(location+'/').squeeze('/')+')'
+e

data/test/simple_tests/display_this_file.cgi

@@ -0,0 +1,11 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/simple_tests/display_this_file.cgi
+# =========================================================================== #
+require 'cyberweb/toplevel_methods/show_and_display.rb'
+
+this_file = '/home/x/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/simple_tests/display_this_file.cgi'
+
+Cyberweb.display_this_file(this_file)

data/test/simple_tests/simple_html_example.cgi

@@ -0,0 +1,29 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/simple_tests/simple_html_example.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+html {
+# =========================================================================== #
+# === ad_hoc_modify_the_title
+#
+# This method just demonstrates how a custom method can be defined, then
+# called, and it will correctly modify the title of the web-object, as-is.
+# =========================================================================== #
+def ad_hoc_modify_the_title
+  set_title 'This is another title, to demonstrate how we can modify '\
+end
+ad_hoc_modify_the_title
+
+doc {
+  h2 'What is the title of this webpage?'
+  p {
+    e 'The filename is:'
+    e
+    boldbr filename?.to_s
+    e
+  }
+}}

data/test/simple_tests/simple_status_page.cgi

@@ -0,0 +1,52 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# The idea for this page is to really show how to create a simple .cgi
+# file.
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/simple_tests/simple_status_page.cgi
+# =========================================================================== #
+require 'cyberweb'
+
+Cyberweb.set_log_dir(:depot_temp_dir_cyberweb)
+
+Object.send(:remove_const, :CGI) if Object.const_defined?(:CGI)
+
+require 'cgi'
+
+cgi = CGI.new('html5')  # add HTML generation methods
+cgi.out {
+  cgi.html {
+    cgi.head {
+      cgi.title { 'simple status page tester' }
+    }+
+    cgi.body {
+      cgi.h1 {
+        'Displaying some status information'
+      }+
+      cgi.p {
+        '<span style="font-weight: bold; margin-left: 1em;">Encoding in use: </span>'+Cyberweb.main_encoding?+'<br>'+
+        '<span style="font-weight: bold; margin-left: 1em;">Server base directory: </span>'+Cyberweb.server_base_directory?.to_s+'<br>'+
+        '<span style="font-weight: bold; margin-left: 1em;">Path to images: </span>'+Cyberweb.path_to_images?.to_s+'<br>'+
+        '<span style="font-weight: bold; margin-left: 1em;">name of the image directory: </span>'+Cyberweb.name_of_img_dir?.to_s+'<br>'+
+        '<span style="font-weight: bold; margin-left: 1em;">path to the CSS directory: </span>'+Cyberweb::PROJECT_CSS_DIRECTORY.to_s+'<br>'+
+        '<span style="font-weight: bold; margin-left: 1em;">Log directory: </span>'+Cyberweb.log_directory?.to_s+'<br>'
+      }+
+      cgi.h3 {
+        'The default CSS files, found in the directory '+
+        Cyberweb::CSS_DIRECTORY+
+        ', to be used are:'
+      }+
+      cgi.pre {
+        Cyberweb::ARRAY_DEFAULT_CSS_FILES_TO_INCLUDE.join("\n")
+      }+
+      cgi.h3 {
+        'The environment is:'
+      }+
+      cgi.pre {
+        Cyberweb.return_env_as_string
+      }
+    }
+  }
+}

data/test/simple_tests/string_s2_test.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+alias e puts
+
+_ = Cyberweb::WebObject.new
+_.addnl(_.string_s2('Hi there!'))
+print _.result?

data/test/simple_tests/test_simple_string_as_input.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'cyberweb'
+
+_ = Cyberweb::WebObject.new(
+  '<html><head></head><body><h1>Hello world!</body></html>'
+)
+_.set_title('This is a test')
+_.ensure_that_a_title_entry_exists
+puts _.result?

data/test/simple_tests/testing_base64_images.cgi

@@ -0,0 +1,26 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/simple_tests/testing_base64_images.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english {
+css_style :template1
+fav 'PC/RUBY/RUBY_FAVICON.png'
+body_css_class 's12px padt4px marpad2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'def'
+
+doc('mad0px pad0px') {
+  div('mars0_1em'){
+    p {
+      e 'The following images are available encoded in base64:'
+      br
+    }
+    p('mars2em') {
+      display_the_registered_base64_images
+    }
+  }
+}}

data/test/simple_tests/testing_dragging_an_image.cgi

@@ -0,0 +1,23 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/simple_tests/testing_dragging_an_image.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+german {
+title 'Testing dragging an image'
+
+doc {
+  div('pad0_5em BG_WHITE black') {
+    e 'Here is the image that can be dragged if you click on
+    it and then move across the screen via the mouse:'
+    br
+    img :big_star,
+        'mars2em',
+        'drag_this_image'
+  }
+  report_whether_this_webobject_makes_use_of_jquery
+  report_the_jquery_version_in_use
+}}

data/test/simple_tests/testing_editable_text.cgi

@@ -0,0 +1,16 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/cyberweb/test/simple_tests/testing_editable_text.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+english {
+title 'Testing editable text'
+
+doc('mar0px pad0px') {
+  div('pad1em BG_WHITE black') {
+    e('Type something here.') { :editable }
+  }
+}}