Commits

(no ...@cec68495-dca5-4e2b-845c-11fdaaa4f967  committed 1925be2

Added stuff to favourite.

  • Participants
  • Parent commits b124e8d

Comments (0)

Files changed (5)

File std/logo.wml

+##
+##  wml::std::logo - Logo Insertion
+##  Copyright (c) 1997-2001 Ralf S. Engelschall, All Rights Reserved. 
+##
+
+#  The <preserve>/<restore> tags with multiple arguments require WML 2.0.3
+#use wml::mod::version
+<require 2.0.3 />
+
+#use wml::std::tags
+
+#
+#  Insert a Logo image
+#
+<define-tag logo>
+<preserve name base file format target notag />
+<set-var notag=* />
+<set-var %attributes />
+<defvar name wml />
+<defvar base <or <get-var LOGO_BASE /> <get-var IMAGE_BASE /> /> />
+<defvar format <or <get-var IMAGE_FORMAT /> png /> />
+<perl>
+    my $name   = '<get-var name />';
+    my $ext    = '<get-var format />';
+    my $base   = '<get-var base />';
+    my $file   = '<get-var file />';
+    my $target = '<get-var target />';
+    my $notag  = (qq|<get-var notag />| eq '' ? 1 : 0);
+
+    my $imgfile  = "$(WML_LOC_LIBDIR)/data/logos/logo-$name.$ext";
+    my $infofile = "$(WML_LOC_LIBDIR)/data/logos/logo-$name.info";
+
+    #   make sure the logo exists
+    if (! -f $imgfile or ! -f $infofile) {
+        print STDERR "Error: No such logo named '$name'.\n";
+        exit(1);
+    }
+
+    #   create the output filename
+    if ($file eq '') {
+        if ($base ne '' && $base !~ m|/$|) {
+            if (-d $base) {
+                $base .= '/';
+            }
+            else {
+                $base .= '.';
+            }
+        }
+        $file = sprintf("%slogo-%s.%s", $base, $name, $ext);
+    }
+
+    open(FH_LOGO, "<$infofile");
+    my $alt  = <*FH_LOGO>; $alt  =~ s|^\s+||; $alt  =~ s|\n$||; $alt  =~ s|\s+$||;
+    my $hint = <*FH_LOGO>; $hint =~ s|^\s+||; $hint =~ s|\n$||; $hint =~ s|\s+$||;
+    my $url  = <*FH_LOGO>; $url  =~ s|^\s+||; $url  =~ s|\n$||; $url  =~ s|\s+$||;
+    close(FH_LOGO);
+
+    #   create the logo image copy
+    my $error = `cp $imgfile $file`;
+    if ($? >> 8) {
+        print STDERR "** wml::std::logo:\n$error";
+        exit(1);
+    }
+
+    #   insert the markup code
+    if (not $notag) {
+        <perl:print>\
+           <*a href="$url" title="$hint" \
+        </perl:print>
+        if ($target ne '') {
+          <perl:print> target="$target"</perl:print>
+        }
+        <perl:print>\
+           ><img src="$file" alt="$alt" style="border:0" /><*/a>\
+        </perl:print>
+    }
+</perl>
+<restore  name base file format target notag />
+</define-tag>
+
+##EOF##

File t2/open-source/favourite/index.html.wml

 stable, powerful and very cool. 
 </p>
 
+<h2>Desktop Applications</h2>
+
+<h3><a href="http://www.kde.org/">KDE - The K Desktop Environment</a></h3>
+
+<p>
+KDE is an attractive and powerful desktop environment for UNIXes.
+</p>
+
+<h3><a href="http://www.mozilla.org/">Mozilla</a></h3>
+
+<p>
+Mozilla is a cross-platform web-browser which is standards-compliant and
+has many powerful features.
+</p>
+
+<h3><a href="http://www.konqueror.org/">Konqueror</a></h3>
+
+<p>
+Konqueror is a nice web-browser and file manager for the KDE environment.
+</p>
+
+<h3><a href="http://www.xchat.org/">XChat</a></h3>
+
+<p>
+A nice IRC client for X-Windows.
+</p>
+
+<h3><a href="http://www.icewm.org/">IceWM</a></h3>
+
+<p>
+IceWM is a lightweight but functional Windows Manager for X-Windows.
+</p>
+
 <h2>Development</h2>
 
 <h3><a href="http://www.perl.org/">Perl</a></h3>
 for any programmer on a UNIX system. 
 </p>
 
+<h3><a href="http://www.vim.org/">Vim - VI Improved</a></h3>
+
+<p>
+A powerful, portable editor which is very lightweight and nice.
+</p>
+
+<h3>Web Development</h3>
+
+<h4><a href="http://httpd.apache.org/">The Apache Web-server</a></h4>
+
+<p>
+A powerful, secure and reliable web-server for many platforms including UNIX
+and Win32. 
+</p>
+
+<h4><a href="http://perl.apache.org/">mod_perl</a></h4>
+
+<p>
+A Perl subsystem for Apache, that greatly accelerates it and provides other
+capabilities.
+</p>
+
+<h4><a href="http://thewml.org/">Website Meta Language</a></h4>
+
+<p>
+WML is a powerful generator for offline HTML content. I now use it for most
+of my sites, including this one.
+</p>
+
+<h2>Multimedia</h2>
+
+<h3><a href="http://www.gimp.org/">The GIMP - The GNU Image Manipulation Program</a></h3>
+
+<p>
+A powerful image-processing application.
+</p>
+
+<h3><a href="http://www.xmms.org/">XMMS - The X Multimedia System</a></h3>
+
+<p>
+A WinAmp clone for X-Windows, that is better than the original.
+</p>
+
+<h3><a href="http://www.mplayerhq.hu/homepage/">MPlayer</a></h3>
+
+<p>
+A capable multimedia player that can play any video format under the sun.
+</p>
+
+<h2>Office</h2>
+
+<h3><a href="http://www.latex-project.org/">LaTeX</a></h3>
+
+<p>
+A high-quality type-setting system.
+</p>
+
+<h3><a href="http://www.docbook.org/">DocBook</a></h3>
+
+<p>
+A document preparation system that can create HTML, PDF, Word RTF - all
+from the same source.
+</p>
+
+<h3><a href="http://www.openoffice.org/">OpenOffice</a></h3>
+
+<p>
+A feature-rich cross-platform office suite.
+</p>
+

File t2/std/logo.wml

-##
-##  wml::std::logo - Logo Insertion
-##  Copyright (c) 1997-2001 Ralf S. Engelschall, All Rights Reserved. 
-##
-
-#  The <preserve>/<restore> tags with multiple arguments require WML 2.0.3
-#use wml::mod::version
-<require 2.0.3 />
-
-#use wml::std::tags
-
-#
-#  Insert a Logo image
-#
-<define-tag logo>
-<preserve name base file format target notag />
-<set-var notag=* />
-<set-var %attributes />
-<defvar name wml />
-<defvar base <or <get-var LOGO_BASE /> <get-var IMAGE_BASE /> /> />
-<defvar format <or <get-var IMAGE_FORMAT /> png /> />
-<perl>
-    my $name   = '<get-var name />';
-    my $ext    = '<get-var format />';
-    my $base   = '<get-var base />';
-    my $file   = '<get-var file />';
-    my $target = '<get-var target />';
-    my $notag  = (qq|<get-var notag />| eq '' ? 1 : 0);
-
-    my $imgfile  = "$(WML_LOC_LIBDIR)/data/logos/logo-$name.$ext";
-    my $infofile = "$(WML_LOC_LIBDIR)/data/logos/logo-$name.info";
-
-    #   make sure the logo exists
-    if (! -f $imgfile or ! -f $infofile) {
-        print STDERR "Error: No such logo named '$name'.\n";
-        exit(1);
-    }
-
-    #   create the output filename
-    if ($file eq '') {
-        if ($base ne '' && $base !~ m|/$|) {
-            if (-d $base) {
-                $base .= '/';
-            }
-            else {
-                $base .= '.';
-            }
-        }
-        $file = sprintf("%slogo-%s.%s", $base, $name, $ext);
-    }
-
-    open(FH_LOGO, "<$infofile");
-    my $alt  = <*FH_LOGO>; $alt  =~ s|^\s+||; $alt  =~ s|\n$||; $alt  =~ s|\s+$||;
-    my $hint = <*FH_LOGO>; $hint =~ s|^\s+||; $hint =~ s|\n$||; $hint =~ s|\s+$||;
-    my $url  = <*FH_LOGO>; $url  =~ s|^\s+||; $url  =~ s|\n$||; $url  =~ s|\s+$||;
-    close(FH_LOGO);
-
-    #   create the logo image copy
-    my $error = `cp $imgfile $file`;
-    if ($? >> 8) {
-        print STDERR "** wml::std::logo:\n$error";
-        exit(1);
-    }
-
-    #   insert the markup code
-    if (not $notag) {
-        <perl:print>\
-           <*a href="$url" \
-              onmouseover="self.status='$hint';return true" \
-              onmouseout="self.status='';return true" \
-              onfocus="self.status='$hint';return true" \
-              onblur="self.status='';return true"\
-        </perl:print>
-        if ($target ne '') {
-          <perl:print> target="$target"</perl:print>
-        }
-        <perl:print>\
-           ><img src="$file" alt="$alt" style="border:0" /><*/a>\
-        </perl:print>
-    }
-</perl>
-<restore  name base file format target notag />
-</define-tag>
-
-##EOF##

File template.wml

 # #use wml::des::navbar
+#include '../std/logo.wml'
 
 # The Definition of the page itself
 <?xml version="1.0" encoding="iso-8859-1"?>
  </a>
 </p>
 <p>
+<logo />
 </p>
 </define-tag>
 

File vipe/std/logo.wml

+##
+##  wml::std::logo - Logo Insertion
+##  Copyright (c) 1997-2001 Ralf S. Engelschall, All Rights Reserved. 
+##
+
+#  The <preserve>/<restore> tags with multiple arguments require WML 2.0.3
+#use wml::mod::version
+<require 2.0.3 />
+
+#use wml::std::tags
+
+#
+#  Insert a Logo image
+#
+<define-tag logo>
+<preserve name base file format target notag />
+<set-var notag=* />
+<set-var %attributes />
+<defvar name wml />
+<defvar base <or <get-var LOGO_BASE /> <get-var IMAGE_BASE /> /> />
+<defvar format <or <get-var IMAGE_FORMAT /> png /> />
+<perl>
+    my $name   = '<get-var name />';
+    my $ext    = '<get-var format />';
+    my $base   = '<get-var base />';
+    my $file   = '<get-var file />';
+    my $target = '<get-var target />';
+    my $notag  = (qq|<get-var notag />| eq '' ? 1 : 0);
+
+    my $imgfile  = "$(WML_LOC_LIBDIR)/data/logos/logo-$name.$ext";
+    my $infofile = "$(WML_LOC_LIBDIR)/data/logos/logo-$name.info";
+
+    #   make sure the logo exists
+    if (! -f $imgfile or ! -f $infofile) {
+        print STDERR "Error: No such logo named '$name'.\n";
+        exit(1);
+    }
+
+    #   create the output filename
+    if ($file eq '') {
+        if ($base ne '' && $base !~ m|/$|) {
+            if (-d $base) {
+                $base .= '/';
+            }
+            else {
+                $base .= '.';
+            }
+        }
+        $file = sprintf("%slogo-%s.%s", $base, $name, $ext);
+    }
+
+    open(FH_LOGO, "<$infofile");
+    my $alt  = <*FH_LOGO>; $alt  =~ s|^\s+||; $alt  =~ s|\n$||; $alt  =~ s|\s+$||;
+    my $hint = <*FH_LOGO>; $hint =~ s|^\s+||; $hint =~ s|\n$||; $hint =~ s|\s+$||;
+    my $url  = <*FH_LOGO>; $url  =~ s|^\s+||; $url  =~ s|\n$||; $url  =~ s|\s+$||;
+    close(FH_LOGO);
+
+    #   create the logo image copy
+    my $error = `cp $imgfile $file`;
+    if ($? >> 8) {
+        print STDERR "** wml::std::logo:\n$error";
+        exit(1);
+    }
+
+    #   insert the markup code
+    if (not $notag) {
+        <perl:print>\
+           <*a href="$url" \
+              onmouseover="self.status='$hint';return true" \
+              onmouseout="self.status='';return true" \
+              onfocus="self.status='$hint';return true" \
+              onblur="self.status='';return true"\
+        </perl:print>
+        if ($target ne '') {
+          <perl:print> target="$target"</perl:print>
+        }
+        <perl:print>\
+           ><img src="$file" alt="$alt" style="border:0" /><*/a>\
+        </perl:print>
+    }
+</perl>
+<restore  name base file format target notag />
+</define-tag>
+
+##EOF##