diff options
Diffstat (limited to 'testsuite/systemtap.examples')
| -rw-r--r-- | testsuite/systemtap.examples/ChangeLog | 7 | ||||
| -rw-r--r-- | testsuite/systemtap.examples/examples-index-gen.pl | 15 |
2 files changed, 18 insertions, 4 deletions
diff --git a/testsuite/systemtap.examples/ChangeLog b/testsuite/systemtap.examples/ChangeLog index d5840f96..31a981aa 100644 --- a/testsuite/systemtap.examples/ChangeLog +++ b/testsuite/systemtap.examples/ChangeLog @@ -1,3 +1,10 @@ +2008-08-08 Mark Wielaard <mwielaard@redhat.com> + + * examples-index-gen.pl (inputdir): Make absolute. + (outputdir): Likewise. + (supportfiles): Copy from new html dir. Add README. Make sure + new html subdir is created in outputdir. + 2008-08-07 Frank Ch. Eigler <fche@elastic.org> * *index.txt, *index.html: New generated files. diff --git a/testsuite/systemtap.examples/examples-index-gen.pl b/testsuite/systemtap.examples/examples-index-gen.pl index 8e968159..726df973 100644 --- a/testsuite/systemtap.examples/examples-index-gen.pl +++ b/testsuite/systemtap.examples/examples-index-gen.pl @@ -10,6 +10,7 @@ use strict; use warnings; +use Cwd 'abs_path'; use File::Copy; use File::Find; use File::Path; @@ -21,6 +22,7 @@ if ($#ARGV >= 0) { } else { $inputdir = "."; } +$inputdir = abs_path($inputdir); my $outputdir; if ($#ARGV >= 1) { @@ -28,6 +30,7 @@ if ($#ARGV >= 1) { } else { $outputdir = $inputdir; } +$outputdir = abs_path($outputdir); my %scripts = (); print "Parsing .meta files in $inputdir...\n"; @@ -198,17 +201,21 @@ close (KEYINDEX); close (KEYHTML); my @supportfiles - = ("systemtapcorner.gif", - "systemtap.css", - "systemtaplogo.png"); + = ("html/systemtapcorner.gif", + "html/systemtap.css", + "html/systemtaplogo.png", + "README"); if ($inputdir ne $outputdir) { my $file; print "Copying support files...\n"; + if (! -d "$outputdir/html") { + mkpath("$outputdir/html", 1, 0711); + } foreach $file (@supportfiles) { my $orig = "$inputdir/$file"; my $dest = "$outputdir/$file"; print "Copying $file to $dest...\n"; - copy("$orig", $dest) or die "$file cannot be copied to $dest, $!"; + copy($orig, $dest) or die "$file cannot be copied to $dest, $!"; } } |