1#@!#!123s

https 1#@!#!123s
: / proc / thread-self / root / proc / self / root / home / mahadevanandsiva / www / phpmailer / samozin / Shell /
Filename : upload2.pl
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>
			<script type="text/javascript">
			// Helper function to get parameters from the query string.
			function getUrlParam(paramName)
			{
			  var reParam = new RegExp(\'(?:[\?&]|&amp;)\' + paramName + \'=([^&]+)\', \'i\') ;
			  var match = window.top.location.search.match(reParam) ;
			 
			  return (match && match.length > 1) ? match[1] : \'\' ;
			}

			function SetUrl( fileUrl )
			{
				var funcNum = getUrlParam(\'CKEditorFuncNum\');
				window.top.opener.CKEDITOR.tools.callFunction(funcNum, fileUrl);
				window.top.close();
			}

			</script>

      <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:SetUrl('http://www.esensnet.de/$start$form{data}/$_')\"><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;