Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.53
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libgd-graph-perl /
examples /
samples /
[ HOME SHELL ]
Name
Size
Permission
Action
Makefile
2.31
KB
-rw-r--r--
error.pl
179
B
-rw-r--r--
logo.png
2.76
KB
-rw-r--r--
make_index.pl
1.39
KB
-rw-r--r--
rgb.txt
16.72
KB
-rw-r--r--
sample11.pl
930
B
-rw-r--r--
sample12.pl
895
B
-rw-r--r--
sample13.pl
805
B
-rw-r--r--
sample14.pl
2.45
KB
-rw-r--r--
sample15.pl
999
B
-rw-r--r--
sample16.pl
1.22
KB
-rw-r--r--
sample17.pl
1.04
KB
-rw-r--r--
sample18.pl
3.01
KB
-rw-r--r--
sample19.pl
2.82
KB
-rw-r--r--
sample1A.pl
1.08
KB
-rw-r--r--
sample1B.pl
958
B
-rw-r--r--
sample21.pl
705
B
-rw-r--r--
sample22.pl
563
B
-rw-r--r--
sample23.pl
2.69
KB
-rw-r--r--
sample29.pl
732
B
-rw-r--r--
sample31.pl
706
B
-rw-r--r--
sample41.pl
807
B
-rw-r--r--
sample42.dat
103
B
-rw-r--r--
sample42.pl
974
B
-rw-r--r--
sample51.pl
665
B
-rw-r--r--
sample52.pl
873
B
-rw-r--r--
sample53.pl
1.25
KB
-rw-r--r--
sample54.dat
30.73
KB
-rw-r--r--
sample54.pl
1.01
KB
-rw-r--r--
sample55.pl
665
B
-rw-r--r--
sample56.pl
1.16
KB
-rw-r--r--
sample57.pl
579
B
-rw-r--r--
sample58.pl
715
B
-rw-r--r--
sample61.pl
1.33
KB
-rw-r--r--
sample62.pl
838
B
-rw-r--r--
sample63.pl
1.03
KB
-rw-r--r--
sample64.pl
1.48
KB
-rw-r--r--
sample71.pl
2.56
KB
-rw-r--r--
sample72.pl
1.04
KB
-rw-r--r--
sample91.pl
512
B
-rw-r--r--
sample92.pl
616
B
-rw-r--r--
sample93.pl
491
B
-rw-r--r--
sample94.pl
685
B
-rw-r--r--
sample95.pl
2.62
KB
-rw-r--r--
save.pl
288
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : make_index.pl
#!/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();
Close
