OpenPKG: Cross-Platform Unix Software Packaging

head 1.2; access; symbols; locks; strict; comment @# @; 1.2 date 2004.04.15.17.56.28; author rse; state dead; branches; next 1.1; 1.1 date 2001.08.28.12.48.23; author rse; state Exp; branches; next ; desc @@ 1.2 log @remove old generation scripts (will be replaced with new ppt2www stuff) @ text @#!wml -o/dev/null #use wml::std::page #use wml::des::space #use wml::des::rollover OpenPKG: Cross-Platform Unix Software Packaging <: # determine available slides #@@S = map { s/\.jpg\n$//; $_ } `ls slide-*-l.jpg`; @@S = map { s/\.png\n$//; $_ } `ls slide-*-l.png`; :> "; #print ""; #print ""; print ":SLIDE_$n]"; } :>

<: # generate tags and putput # directives for Slice (pass 9) foreach $s (@@S) { my ($name, $n, $size) = ($s =~ m|^(.+?)-(\d+)-(.+?)$|); $n = sprintf("%03d", $n); #print "[SLIDE_${n}_L:

:SLIDE_${n}_L]"; #print "[SLIDE_${n}_N:

:SLIDE_${n}_N]"; #print "[SLIDE_${n}_S:

:SLIDE_${n}_S]"; print "[SLIDE_${n}_L:

:SLIDE_${n}_L]"; print "[SLIDE_${n}_N:

:SLIDE_${n}_N]"; print "[SLIDE_${n}_S:

:SLIDE_${n}_S]"; } :>\

<: foreach $s (@@S) { my ($name, $n, $size) = ($s =~ m|^(.+?)-(\d+)-(.+?)$|); $n = sprintf("%03d", $n); print "[SLIDE_$n:"; #print "

"; if ($n > 1) { $url = "$name-".sprintf("%03d", $n-1); print "". "prev | "; } #print "

" . print "". "index | "; "

"; if ($n < $#S+1) { $url = "$name-".sprintf("%03d", $n+1); print "". "next "; } #print "

<: foreach $s (@@S) { my ($name, $n, $size) = ($s =~ m|^(.+?)-(\d+)-(.+?)$|); $n = sprintf("%03d", $n); print "[SLIDE_$n:"; print "[SLIDE_${n}_S::]small[SLIDE_${n}_S::] | "; print "[SLIDE_${n}_N::]normal[SLIDE_${n}_N::] | "; print "[SLIDE_${n}_L::]large[SLIDE_${n}_L::]"; print ":SLIDE_$n]"; } :>

<: foreach $s (@@S) { my ($name, $n, $size) = ($s =~ m|^(.+?)-(\d+)-(.+?)$|); $n = sprintf("%03d", $n); print "%!slice -o(ALL-SLIDE_*)u(SLIDE_${n}-SLIDE_${n}_*)uSLIDE_${n}_L:$name-${n}-l.html\n"; print "%!slice -o(ALL-SLIDE_*)u(SLIDE_${n}-SLIDE_${n}_*)uSLIDE_${n}_N:$name-${n}-n.html\n"; print "%!slice -o(ALL-SLIDE_*)u(SLIDE_${n}-SLIDE_${n}_*)uSLIDE_${n}_S:$name-${n}-s.html\n"; } :> @ 1.1 log @add slideset @ text @@