Gecko [ georgetownmover.com ]

Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto

Name	Size	Permission	Date
Makefile	2.31 KB	-rw-r--r--	2013-06-26 12:19
error.pl	179 B	-rw-r--r--	2013-06-26 12:19
logo.gif	2.61 KB	-rw-r--r--	2013-06-22 21:40
logo.png	2.86 KB	-rw-r--r--	2013-06-20 21:01
make_index.pl	1.39 KB	-rw-r--r--	2021-12-22 15:41
rgb.txt	16.72 KB	-rw-r--r--	2013-06-20 21:01
sample11.pl	930 B	-rw-r--r--	2015-12-27 16:43
sample12.pl	895 B	-rw-r--r--	2015-12-27 16:43
sample13.pl	805 B	-rw-r--r--	2015-12-27 16:43
sample14.pl	2.45 KB	-rw-r--r--	2015-12-27 16:43
sample15.pl	999 B	-rw-r--r--	2015-12-27 16:43
sample16.pl	1.22 KB	-rw-r--r--	2015-12-27 16:43
sample17.pl	1.04 KB	-rw-r--r--	2015-12-27 16:43
sample18.pl	3.01 KB	-rw-r--r--	2015-12-27 16:43
sample19.pl	2.82 KB	-rw-r--r--	2015-12-27 16:43
sample1A.pl	1.08 KB	-rw-r--r--	2021-12-22 15:41
sample1B.pl	958 B	-rw-r--r--	2015-12-27 16:43
sample21.pl	705 B	-rw-r--r--	2015-12-27 16:43
sample22.pl	563 B	-rw-r--r--	2015-12-27 16:43
sample23.pl	2.69 KB	-rw-r--r--	2015-12-27 16:43
sample29.pl	732 B	-rw-r--r--	2015-12-27 16:43
sample31.pl	706 B	-rw-r--r--	2015-12-27 16:43
sample41.pl	807 B	-rw-r--r--	2015-12-27 16:43
sample42.dat	103 B	-rw-r--r--	2013-06-20 21:01
sample42.pl	974 B	-rw-r--r--	2015-12-27 16:43
sample51.pl	665 B	-rw-r--r--	2015-12-27 16:43
sample52.pl	873 B	-rw-r--r--	2015-12-27 16:43
sample53.pl	1.25 KB	-rw-r--r--	2015-12-27 16:43
sample54.dat	30.73 KB	-rw-r--r--	2013-06-20 21:01
sample54.pl	1.01 KB	-rw-r--r--	2015-12-27 16:43
sample55.pl	665 B	-rw-r--r--	2015-12-27 16:43
sample56.pl	1.16 KB	-rw-r--r--	2015-12-27 16:43
sample57.pl	579 B	-rw-r--r--	2015-12-27 16:43
sample58.pl	715 B	-rw-r--r--	2015-12-27 16:43
sample61.pl	1.33 KB	-rw-r--r--	2015-12-27 16:43
sample62.pl	838 B	-rw-r--r--	2015-12-27 16:43
sample63.pl	1.03 KB	-rw-r--r--	2015-12-27 16:43
sample64.pl	1.42 KB	-rw-r--r--	2021-12-22 15:41
sample71.pl	2.56 KB	-rw-r--r--	2015-12-27 16:43
sample72.pl	1.04 KB	-rw-r--r--	2015-12-27 16:43
sample91.pl	512 B	-rw-r--r--	2015-12-27 16:43
sample92.pl	616 B	-rw-r--r--	2015-12-27 16:43
sample93.pl	491 B	-rw-r--r--	2015-12-27 16:43
sample94.pl	685 B	-rw-r--r--	2015-12-27 16:43
sample95.pl	2.62 KB	-rw-r--r--	2015-12-27 16:43
save.pl	288 B	-rw-r--r--	2015-12-27 16:43

Rename

#!/usr/bin/perl -w
use strict;
use CGI qw/:standard *table/;

# Create an index file for all the samples.

my $EXT = shift || "png";

my %titles = (
    sample1 => 'Bar charts',
    sample2 => 'Area charts',
    sample3 => 'Points charts',
    sample4 => 'Lines and Points charts',
    sample5 => 'Lines charts',
    sample6 => 'Mixed charts',
    sample7 => 'Miscellaneous things',
    sample9 => 'Pie charts',
);

my %links;

foreach my $sgroup (sort keys %titles)
{
    open HTML, ">$sgroup.html" or die $!;

print HTML start_html($titles{$sgroup}),
		h1($titles{$sgroup}), start_table();

my @samples = map  { $_->[0] }
		  sort { $a->[1] <=> $b->[1] } 
		  map  { s/\.pl$//; [$_, /${sgroup}(\d+)/] } glob "${sgroup}[1-9].pl";

foreach my $sample (@samples)
    {
	my @images = reverse sort  glob "${sample}*.$EXT";
	warn ("No $EXT sample images found for $sample.pl") unless @images;
	foreach my $img (@images)
	{
	    if (-f $img)
	    {
		print HTML Tr(
		    td(a({href => "$sample.pl"},"$sample.pl")),
		    td(img({src => "$img", border => 0}))
		    );
	    } else {
		    warn("$img error: $!");
	    }
	}
    }

print HTML end_table(), end_html();
}

open(HTML, ">index.html") or die $!;
print HTML start_html('GD::Graph examples'),
    h1('GD::Graph examples');
foreach my $sgroup (sort keys %titles)
{
    print HTML p(a({href => "$sgroup.html"}, $titles{$sgroup}) );
}
print HTML end_html();