This file is indexed.

/usr/share/doc/libsvg-perl/examples/starpath.cgi is in libsvg-perl 2.64-1.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl -w

BEGIN {
  push @INC , '../';  
  push @INC , '../SVG';
}

use strict;
use SVG;


my $svg  = SVG->new();

my $def  = $svg->defs( id => 'myStar' );

my $r_star_path = $svg->get_path(type=>'path',x=>[-0.951,0.951,-0.588,0.000,0.588],y=>[-0.309,-0.309,-0.809,-1.000,0.809],-closed=>1);

my $star = $def->path('transform' => "scale(100, 100)",%$r_star_path,);

$svg->use(-href => "#myStar", stroke=>"red",fill => "yellow", transform => "translate(200, 200)" );

print "Content-Type: image/svg+xml\n\n";

print $svg->xmlify;