multimedia_paradise 1.1.314

data/lib/multimedia_paradise/www/lilypond.cgi

@@ -0,0 +1,96 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/lilypond.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+german {
+title 'Lilypond'
+css_style 'div         { font-weight:normal;}
+A:visited    {color:slateblue}
+A:hover      {color:slateblue;text-decoration:underline;}
+A:active     {color:red}
+li {
+  padding-top:   2px;
+  margin-top:    0px;
+  margin-bottom: 0px;
+  margin-left:   0px;
+}
+h2  {color: #4682B4}
+h3  {color: #4682B4}
+img {border:0px solid black}'
+fav 'AUDIO/LILYPOND/LILYPOND_FAVICON.png'
+body_css_class 's0_5em pad4px BG_Black White FS1em'
+
+CMD = 's1em BO'
+
+doc('pad2px mar0px') {
+  h2 'FAQ zu Lilypond','marb1em'
+  e 'Was ist Lilypond?'
+  br
+  e '<b>GNU LilyPond</b> ist ein freies Notensatz-Programm.'
+  br
+  e 'Zur Eingabe von Musik wird der 7-Bit-ASCII-Zeichenvorrat verwendet, 
+  der dann in Noten im Format PDF (über PostScript) oder SVG übersetzt 
+  wird. Für Textinformationen, wie z. B. Überschriften, die über 
+  den Noten erscheinen sollen, sind inzwischen auch Zeichen des 
+  Unicode-Zeichensatzes UTF-8 möglich. Bei Bedarf können gleichzeitig 
+  auch MIDI-Dateien der notierten Musik erzeugt werden.'
+  br
+  e 'Die LilyPond-Programmierer kritisieren, dass selbst in seriösen 
+  Musikverlagen erscheinende Noten seit der Einführung des
+  Computernotensatzes nicht mehr die Qualitätsstandards handwerklich 
+  gesetzter Noten erfüllten und unästhetisch wirkten. Sie haben 
+  es sich deshalb zum Ziel gesetzt, mit LilyPond dem traditionellen
+  Notenbild näher zu kommen als dies mit anderer Software möglich 
+  ist.'
+  br
+  e 'Das Format für die Lilypond Dateien ist?'
+  br
+  cmd '.ly'
+  br
+  e '<b>Kommentare</b> in Lilypond?'
+  br
+  cmd '%'
+  br
+  e 'Wie verwenden wir Noten in lilypond?'
+  br
+  e 'ganz einfach mittels <b class="yel">c d e f g a b</b>'
+  br
+  e 'Wie legen wir fest, wie lange diese Noten zu spielen hat?'
+  br
+  e 'Nach der Note, zum Beispiel a, kommt eine Nummer.'
+  br
+  e 'Die Bedeutung dieser Nummer ist wie folgt:'
+  br
+  lembre '1 für die ganze Note'
+  lembre '2 für eine halbe Note'
+  lembre '4 für eine Viertel-Note und so weiter, wie zum
+  Beispiel <b class="yel">a1 a2 a4 a16 a32</b>'
+  br
+  # ========================================================================= #
+  # === Interessante Links zu Lilypond
+  # ========================================================================= #
+  h2 sg(:right_arrow, 'marr8px')+
+     'Interessante Links zu Lilypond'
+  p {
+    abr 'http://www.mutopiaproject.org/',
+         content: 'Mutopia Projekt',
+         css_class: 'slateblue mars1em s1em'
+    abr 'http://lilycomp.sourceforge.net/',
+         content: 'LilyComp',
+         css_class: 'slateblue mars1em s1em'
+  }
+  # ========================================================================= #
+  # === Lokale Links zu Lilypond
+  # ========================================================================= #
+  h2 sg(:right_arrow, 'marr8px')+
+     'Lokale Links zu Lilypond'
+  p {
+    abr :local_audio,
+         content: :self,
+         css_class: 'slateblue mars1em s1em'
+  }
+}}

data/lib/multimedia_paradise/www/lyrics/lyrics.cgi

@@ -0,0 +1,49 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/lyrics.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+
+require 'multimedia_paradise'
+
+english {
+title 'Lyrics'
+css_style :template1
+favicon 'AUDIO/LYRICS.png'
+body_css_class 'BG_Black Whi s1em wid95'
+body_css_style 'background-color:#00001b'
+font_size 'def'
+
+# =========================================================================== #
+# === add_song
+# =========================================================================== #
+def add_song(title, content, optional_id = '')
+  content = content.dup if content.frozen?
+  if optional_id.empty?
+    optional_id = title.to_s.tr(' ','_').downcase
+  end
+  # h2 '"'+title.to_s+'"', 'slateblue', optional_id
+  # h2 '"'+title.to_s+'"', 'slateblue', optional_id
+  h2 title.to_s, 'slateblue', optional_id
+  pre content,'s12px yel'
+end
+
+doc('mar0px pad4px') {
+
+  YAML_LYRICS = YAML.load_file(MultimediaParadise.file_lyrics)
+  h3 'Available songs:','gold pad0_5em'
+  YAML_LYRICS.keys.each {|entry|
+    abr 'lyrics.cgi#'+
+        entry.to_s.tr(' ','_'),
+        content:   entry,
+        href:      'lyrics.cgi#'+
+                   entry.to_s.tr(' ','_').downcase,
+        css_class: 'mars1em'
+  }
+  YAML_LYRICS.each_pair {|name_of_the_song, content|
+    add_song(name_of_the_song, content)
+  }
+
+}}

data/lib/multimedia_paradise/www/play_songs.cgi

@@ -0,0 +1,102 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# The purpose of this .cgi file is to play all files from /Depot/Audio
+# or another target location, as specified by the constant called
+# AUDIO_DIR.
+#
+# The HTML5 <audio> element specifies a standard way to embed audio in 
+# a web page.
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/play_songs.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+require 'multimedia_paradise/constants/web_constants.rb'
+
+include MultimediaParadise::WebConstants
+
+english('Play Audio Songs') {
+css_file 'audio.css' # bl $MY_AUDIO/audio.css
+favicon AUDIO_FAVICON
+body_css_class 's0_1em mar1px FW4 White bg_black'
+body_css_style 'background-color:#00001b'
+font_size 'default'
+
+GUITAR = sg :guitar, 'marr8px'
+# =========================================================================== #
+# === AUDIO_DIR
+# =========================================================================== #
+params = params?
+if params.empty?
+  AUDIO_DIR = '/home/x/songs/'
+else
+  if params.is_a?(Hash) and params.has_key?('audio_dir')
+    _ = params['audio_dir']
+    _ = _.first.to_s if _.is_a? Array
+    AUDIO_DIR = _
+  else
+    AUDIO_DIR = '/home/x/songs/'
+  end
+end
+
+doc {
+  h2 sg(:yellow_square, 'bblack1 marr8px')+
+     'Play a local song',
+     'lightblue'
+  # ========================================================================= #
+  # Determine all available audio-files next:
+  # ========================================================================= #
+  all_audio_files = Dir[AUDIO_DIR+'*']
+  # ========================================================================= #
+  # === Show how many songs are available locally
+  # ========================================================================= #
+  p {
+    e all_audio_files.size.to_s+' songs are available in the '\
+      'directory <b>'+AUDIO_DIR+'</b>.'
+  }
+  p {
+    e 'Note that not all songs can be shown, so this website
+    will only show 80 random entries; both firefox and
+    palemoon otherwise have a problem and may <i>crash</i>.'
+  }
+  normal_selection = all_audio_files.select {|entry|
+    entry.include? '.'
+  }
+  one_hundred_songs = []
+  100.times {
+    normal_selection.shuffle!
+    one_hundred_songs << normal_selection.pop
+  }
+  one_hundred_songs.each_with_index {|audio_file, index| index += 1
+    div {
+      h5 GUITAR+
+         string_span(
+          '('+index.to_s+') ',
+          'yellow larger'
+         )+
+         File.basename(audio_file.to_s),'marb2em'
+      br
+      # Delegate onto audio() next.
+      audio(
+        ('../' * 8)+
+        'songs/'+
+        File.basename(audio_file.to_s)
+      )
+      br
+    }
+  }
+  # ========================================================================= #
+  # === Local Links
+  # ========================================================================= #
+  div {
+    h3 sg(:dot101, 'marr8px')+
+       'Local Links'
+    p('s1em mars1em') {
+      abr :local_audio,
+          content: :self
+      abr :local_sitemap,
+          content: :self
+    }
+  }
+}}

data/lib/multimedia_paradise/www/play_this_video_file.cgi

@@ -0,0 +1,100 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# The purpose of this class is to play a local video file.
+#
+# You can use a simple URL scheme for this:
+#
+#   http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/play_this_video_file.cgi?016_Gladiator
+#   http://localhost/DATA/video/play/016_Gladiator
+#
+# =========================================================================== #
+# http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/play_this_video_file.cgi
+# =========================================================================== #
+require 'cyberweb/autoinclude'
+require 'multimedia_paradise/constants/directory_constants.rb'
+require 'multimedia_paradise/toplevel_methods/return_all_video_files.rb'
+
+english('Play this video file') {
+autoextend
+favicon :ruby_favicon
+css_template1
+body_css_class 's12px padt4px marpad2px VERDANAs'
+body_css_style 'background-color: #d3d2d1;'
+font_size 'def'
+
+doc('mar0px pad0px s0_5em') {
+  h1 'Play this video file','martb1px'
+  # ========================================================================= #
+  # Next, we must check whether the user has provided an "argument"
+  # to this page, via the URL. If so then this page will attempt
+  # to locate a corresponding video file.
+  #
+  # URL examples:
+  #
+  #   http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/play_this_video_file.cgi?016_Gladiator
+  #
+  # ========================================================================= #
+  _ = query_string?
+  if _ and !_.empty?
+    this_file = _
+  end
+  this_file = this_file.dup if this_file.frozen?
+  if this_file
+    unless this_file.include? '.mp4'
+      this_file << '.mp4' unless this_file.include? '.'
+    end
+    unless this_file.start_with? 'Realvids'
+      this_file.prepend('Realvids/') # A bit hackish for now (12.01.2020)
+      this_file.prepend(
+        ('../'*8)+'video/'
+      )
+    end
+  end
+  # ======================================================================= #
+  # http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/play_this_video_file.cgi?Realvids/271_LA_Confidential.mp4
+  # http://localhost/DATA/PROGRAMMING_LANGUAGES/RUBY/src/multimedia_paradise/lib/multimedia_paradise/www/play_this_video_file.cgi?016_Gladiator
+  # ======================================================================= #
+  if this_file and File.exist?(this_file)
+    # ======================================================================= #
+    # Show the name of the file.
+    # ======================================================================= #
+    h2 File.basename(this_file),'s0_5em'
+    div('mars1em bblack1 pad4px center mart2em s1em') {
+      addnl ' <video controls>'
+      addnl '  <source src="'+this_file.to_s+'">'
+      addnl 'Your browser does not support the video tag.'
+      addnl '</video>'
+    }
+  else
+    _ = query_string?.to_s
+    br
+    if _.empty?
+      ebr 'The query string was empty.'
+    else
+      e 'The query string was:'
+      br
+      e '<b>'+query_string?+'</b>'
+      br
+      e 'The variable this_file was '+this_file.to_s
+    end
+  end
+  # ======================================================================= #
+  # The next part should be inside of MultimediaParadise.
+  # ======================================================================= #
+  h3 'Available local videos (from <b>Realvids/</b>):'
+  MultimediaParadise.array_available_realvids_videos.each_with_index {|entry, index| index += 1
+    padded_index = index.to_s.rjust(3)
+    local_url = MultimediaParadise.directory_to_realvids+File.basename(entry.to_s)
+    p('martb2px',"p#{index}") {
+      s2(
+        '<b><button onclick="copy_to_clipboard(\'p'+index.to_s+'\')">Copy'+
+        padded_index+'</button></b>) '+
+        entry.sub(/^Realvids\//,'')+
+        ' <b>[<a href="'+local_url+'">Link</a>]</b>',
+        'larger mars2em'
+      )
+    }
+  }
+}}

data/lib/multimedia_paradise/www/pulseaudio/pulseaudio.cgi

@@ -0,0 +1,7 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/multimedia_paradise/lib/multimedia_paradise/www/pulseaudio/pulseaudio.cgi
+# =========================================================================== #
+require 'cyberweb/evaluate_from_the_same_named_file_then_serve'

data/lib/multimedia_paradise/www/pulseaudio/pulseaudio.rb

@@ -0,0 +1,168 @@
+# =========================================================================== #
+# rf aud
+# =========================================================================== #
+require 'multimedia_paradise/constants/web_constants.rb'
+
+make_available MultimediaParadise::WebConstants
+
+english {
+title 'Pulseaudio'
+css_file 'audio.css'
+css_classes '
+
+a {
+  color: steelblue;
+  text-decoration: none;
+}
+
+p.default {
+  font-family: Verdana, serif;
+  margin-top: 2px;
+  margin-bottom: 2px;
+  padding: 0.70em;
+} 
+'
+favicon AUDIO_FAVICON
+body_css_class 's0_1em mar1px White bg_black'
+body_css_style 'background-color:#00001b'
+font_size '1.1em'
+
+doc('mart0_3em padl0_4em marl0_1em marb2px',
+    'Pulseaudio',
+    'border: 2px groove dodgerblue;') {
+  # ========================================================================= #
+  # PULSEAUDIO TAG.
+  # ========================================================================= #
+  h1 'Pulseaudio',
+     'FL140 wid95 s0_3em skyblue FI mart1px',
+     'pulseaudio',
+     'border-bottom:1px solid cyan;
+      border-top:1px solid cyan;
+      margin-left:0.25em;'
+  img('AUDIO/PulseAudioLogo.png','BG_White pad8px bblack1',
+     'drag_pulseaudio_logo','margin-right: 0.1em;')
+  p('default'){
+    lembre '<b>PulseAudio</b> is a Linux sound server, created in the
+    year <b>2004</b>. It acts as a <b>proxy</b> and <b>router</b>
+    between hardware device drivers and applications on single
+    or multiple hosts.'
+    br
+    lembre 'Through <i>abstraction layers</i>, it offers plenty of 
+    audio features such as combining multiple sound cards into a 
+    single, multi-channel device or changing output devices on 
+    the fly for running applications.'
+    br
+    lembre 'Pulseaudio promises to <b>ease audio configuration</b>.'
+    br
+    lembre 'It is a replacement for the old soundserver <b>ESD</b>.'
+    br
+    lembre 'By default, PulseAudio is configured to automatically 
+    detect all sound cards and manage them.'
+    br
+    lembre 'It does not do this on its own but sits on top of 
+    ALSA itself. ALSA is still necessary for sound-related 
+    output by <b>PulseAudio</b>.' 
+    br
+    lembre 'The file <b>/etc/asound.conf</b> may have to be 
+    configured for PulseAudio to <b>work properly</b>.'
+    br
+    lembre 'In order to <b>start pulseaudio as a Daemon</b>, the 
+    following commandline should work fine:'
+    br
+    lem '  pulseaudio -D'
+  }
+  # ========================================================================= #
+  # === Sinks in pulseaudio
+  # ========================================================================= #
+  h4 'Sinks in Pulseaudio'
+  p('default') {
+    e 'A sink is an output device. It is an active unit that consumes
+    samples.'
+    br
+    e 'A sink usually runs a thread with its own event loop, peeks
+    sample chunks from connected sink inputs, and mixes them. It
+    also implements clocking and maintains latency. The rest
+    of the world usually communicates with a sink using
+    messages.'
+    br
+    e 'The typical sink represents an output sound device, such as
+    <b>eadphones</b> connected to a sound card line output or on
+    a Bluetooth headset. PulseAudio automatically creates a
+    sink for every detected output device.'
+  }
+  # ========================================================================= #
+  # === Sinks in pulseaudio
+  # ========================================================================= #
+  h4 'Mplayer and pulseaudio'
+  p('default') {
+    e 'MPlayer natively supports PulseAudio output with the <b>-ao pulse</b>
+    option.'
+    br
+    e 'It can also be configured to default to PulseAudio output, in'
+    cmd '  ~/.mplayer/config'
+    e 'for per-user, or '
+    br
+    cmd '/etc/mplayer/mplayer.conf'
+    br
+    e 'for system-wide support.'
+    br
+    e 'So you can create the file <b>/etc/mplayer/mplayer.conf</b>
+    and add this content to it:'
+    br
+    cmd '  ao=pulse'
+    br
+  }
+  # ========================================================================= #
+  # === Starting pulseaudio
+  # ========================================================================= #
+  h4 'Starting pulseaudio'
+  p('default') {
+    e 'How to start pulseaudio?'
+    br
+    cmd '  pulseaudio --start'
+  }
+  # ========================================================================= #
+  # === Main configuration file for pulseaudio
+  # ========================================================================= #
+  h4 'Main configuration file for pulseaudio'
+  p('default') {
+    e 'The main configuration file for pulseaudio is at:'
+    br
+    cmd '  /etc/pulse/client.conf'
+    br
+  }
+  # ========================================================================= #
+  # Next, some links to Pulseaudio-related sites.
+  # ========================================================================= #
+  div('VERD') {
+    h3 sg(:square_yellow, 'marr8px')+
+       'Pulse-audio related links',
+       'lightblue'
+    # ======================================================================= #
+    # === https://wiki.archlinux.org/index.php/PulseAudio/Configuration
+    # ======================================================================= #
+    p('s1em') {
+      abr 'https://wiki.archlinux.org/index.php/PulseAudio/Configuration',
+           content: :self
+    }
+    # ======================================================================= #
+    # === https://gavv.github.io/articles/pulseaudio-under-the-hood/
+    # ======================================================================= #
+    p('s1em') {
+      abr 'https://gavv.github.io/articles/pulseaudio-under-the-hood/',
+           content: 'An excellent and detailled overview over pulseaudio'
+    }
+    # ======================================================================= #
+    # === https://en.wikipedia.org/wiki/PulseAudio
+    # ======================================================================= #
+    p('s1em') {
+      abr 'https://en.wikipedia.org/wiki/PulseAudio',
+           content: 'Wikipedia entry of pulseaudio'
+    }
+  }
+  p {
+    roebe_sitemap
+    abr :local_rhythmbox,
+        content: :self
+  }
+}}

data/lib/multimedia_paradise/www/pulseaudio/pulseaudio.sinatra

@@ -0,0 +1,56 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# http://localhost/programming/ruby/src/multimedia_paradise/lib/multimedia_paradise/www/pulseaudio/pulseaudio.cgi
+# =========================================================================== #
+require 'cyberweb/and_sinatra_base.rb'
+
+module MultimediaParadise
+
+class SinatraPulseaudio < ::Sinatra::Base # === Roebe::SinatraPulseaudio
+
+  # ========================================================================= #
+  # === USE_THIS_PORT
+  # ========================================================================= #
+  if ENV['SINATRA_PORT']
+    USE_THIS_PORT = ENV['SINATRA_PORT'].to_s.dup
+  else
+    USE_THIS_PORT = '4567'
+  end
+
+  set :port, USE_THIS_PORT
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize
+    super()
+    target = "http://localhost:#{USE_THIS_PORT}/"
+    Cyberweb.try_to_open_this_URL_via_the_browser(target, USE_THIS_PORT)
+  end
+ 
+  # ========================================================================= #
+  # === /
+  #
+  # Usage Example:
+  #
+  #   http://localhost:4567/
+  #
+  # ========================================================================= #
+  get('/'){
+    return Cyberweb::WebObject.evaluate_from_the_same_named_file_then_serve(:do_not_display_anything)
+  }
+
+  # ========================================================================= #
+  # === MultimediaParadise::English.start_sinatra_interface
+  # ========================================================================= #
+  def self.start_sinatra_interface
+    ::MultimediaParadise::SinatraPulseaudio.run!
+  end
+
+end; end
+
+if __FILE__ == $PROGRAM_NAME
+  MultimediaParadise::SinatraPulseaudio.start_sinatra_interface
+end