package ShlomifServe; use strict; use warnings; use CGI; use IO::All; use MIME::Types; sub serve { my (%args) = (@_); my $dir_to_serve = $args{'dir_to_serve'}; my $cgi = CGI->new(); my $mimetypes = MIME::Types->new(); my $path = $cgi->path_info(); if (grep { ($_ eq ".") || ($_ eq "..") } (split /\//, $path)) { print $cgi->header(); print "You suck! Don't use .. or . as path components"; exit(0); } if ($path =~ m{/$}) { if (-f $dir_to_serve.$path."index.html") { $path .= "index.html"; } else { opendir D, $dir_to_serve.$path; my @files = (grep { $_ ne "." } readdir(D)); closedir(D); print $cgi->header(); my $title = "Listing for " . CGI::escapeHTML($path); my $files_string = join("", map { my $fn = CGI::escapeHTML($_) . ((-d $dir_to_serve.$path."/".$_)?"/":""); qq{
  • $fn
  • \n} } @files); print <<"EOF"; $title

    $title

      $files_string
    EOF exit(0); } } my $file_full_path = $dir_to_serve.$path; my $text = io()->file($file_full_path)->slurp(); my $mime_type = $mimetypes->mimeTypeOf($file_full_path); if ($mime_type eq "text/html") { $text =~ s!http://www\.shlomifish\.org/!http://localhost/sites/hp/shlomif/!g; $text =~ s!http://vipe\.technion\.ac\.il/\~shlomif/!http://localhost/sites/hp/vipe/!g; } print "Content-Type: $mime_type\n\n"; print $text; exit(0); } 1; #### #!/usr/bin/perl use strict; use warnings; use lib '/var/www/perl/shlomi'; use ShlomifServe; ShlomifServe::serve( 'dir_to_serve' => "/home/shlomi/Docs/homepage/homepage/trunk/dest/t2-homepage" ); #### #!/usr/bin/perl use strict; use warnings; use lib '/var/www/perl/shlomi'; use ShlomifServe; ShlomifServe::serve( 'dir_to_serve' => "/home/shlomi/Docs/homepage/homepage/trunk/dest/vipe-homepage" );