1#@!#!123s

https 1#@!#!123s
: / home / mahadevanandsiva / public_html / phpmailer / samozin / Shell /
Filename : upload.pl.pptx
back
#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);

# Formulardaten einlesen
use CGI;
my $cgi = CGI->new();
my %form = $cgi->Vars();
my $root=$ENV{'DOCUMENT_ROOT'};
my $start="clipart";
   $start = $form{start} if exists $form{start};

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
      <HTML><HEAD><title>Verzeichnisbrowser --&gt;'.$start.$form{data}.'</title>
      <META http-equiv=Content-Type content="text/html; charset=windows-1252">
      <link rel="stylesheet" href="http://test.esensnet.de/css/layout.css" type="text/css">
      </HEAD>
      <body>
      <table width=95% align=center><td>
';
    opendir(DIR, "$root$form{data}") || die "$root: $!";
    my @Eintraege = readdir(DIR);
    closedir(DIR);

foreach (@Eintraege) {
     if (/\.htm/i)
         {print "<a href=\"/$start$form{data}/$_\"><b>$_</b><br>" ;}
}

@Eintraege = reverse(@Eintraege);
foreach (@Eintraege) {
#     if ((index($_,"jpg") >= 0) || (index($_,"gif") >= 0) || (index($_,"png") >= 0))
     if ((/\.jpg/i) || (/\.gif/i) || (/\.png/i) || (/\.bmp/i))
         {
          my $alt=substr($_,0,index($_,"."));
          $alt=ucfirst($alt);
          print "<a href=\"javascript:opener.document.getElementById('$form{rtn}').value=\'http://www.esensnet.de/$start$form{data}/$_\';self.close()\"><img src=/$start$form{data}/$_ alt=$alt></a>\n" ;
         }
}
if (@Eintraege <= 2){
   print '<center><h2>Keine Bilder gespeichert</h2>
          <p>Bitte benutzen Sie im Einrichtugnsmen&uuml; den Link Eigene Bilder
             um Ihre Eigenen Bilder nutzen zu k&ouml;nnen.</p>
          <p>Um eigene Bilder nutzen zu k&ouml;nnen, m&uuml;ssen Sie diese erst hochladen.</p>
          <a href="javascript:self.close()">Fenster schlie&szlig;en</a>';
   }
print "</td></table></body></html>";


exit;