Commits

Anonymous committed 9c9b6ea

Fixed the back to my homepage link to point to
http://t2.technion.ac.il/~shlomif/ everywhere.

  • Participants
  • Parent commits fbfa34c

Comments (0)

Files changed (5)

File gen_helpers.sh

 for host in t2 vipe ; do
     upper_host=`echo -n $host | tr a-z A-Z`
     
-    echo -n "${upper_host}_DOCS = " ; ./find-wmls-$host.sh ; echo
+    echo -n "${upper_host}_DOCS = " ; ./find-wmls.sh "$host" ; echo
     newline
     echo "${upper_host}_DIRS = " $(find $host -type d | grep -v '/\.svn' | grep -v '^\.svn' | tail +2)
     newline

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

 
 <define-tag backtomyhp>
 <div>
-<a href="$(ROOT)"><img src="$(ROOT)/images/bk2hp.png" class="highlight" style="border : 0" /></a>
+<a href="<rellink url="" host="t2" />"><img src="$(ROOT)/images/bk2hp.png" class="highlight" style="border : 0" alt="Back to my Homepage" /></a>
 </div>
 </define-tag>
 <p>

File vipe/philosophy/index.html.wml

 <h2>Articles</h2>
 
 <div class="indent">
+
+<h3>
+<a href="http://fc-solve.berlios.de/oss-fs/docbook/">Open Source, Free Software
+and Other Beasts</a>
+</h3>
+
+<p>
+An essay I wrote about the various terms involved in the open source words,
+their meaning and origin.
+</p>
+
+<h3><a href="http://fc-solve.berlios.de/perl-att-newbies/perl-newbies/book1.html">"Usability of the Perl Online World for Newcomers</a></h3>
+
+<p>
+An essay about how suitable is the Perl online world for newcomers to the 
+langauge and how can everyone individually change the situation. You can also
+check <a href="http://fc-solve.berlios.de/perl-att-newbies/">a PDF version,
+the DocBook/XML sources and an executive summary.</a>
+</p>
 <h3>
 <a href="./open-letter/">Open Letter to the Israeli Prime Minister
 (deprecated but still pertinent</a>

File vipe/software-tools/index.html.wml

 </p>
 
 <p>
-<a href="http://www.fifthvision.net/open/bin/view/Arch/">Arch</a> - a
+<a href="http://arch.fifthvision.net/">Arch</a> - a
 distributed source control system with renames, networking over FTP and
 other features.
 </p>