ANTICHAT — форум по информационной безопасности, OSINT и технологиям

system ('start D:\tmp\ffmpeg.exe -i D:\tmp\$name -an -ss 00:00:10 -r 1 -vframes 1 -s 200?200 -y -f mjpeg $name.jpg');

#!"D:\perl\bin\perl.exe"   

use CGI qw/:standard/; 

# Код для HTML-формы 
print "Content-Type: text/html\n\n"; 
print "<form method=\"post\" enctype=\"multipart/form-data\" action=\"upload.pl\">";
print "<input type=\"file\" name=\"picture\">";
print "<input type=\"submit\" name=\"Submit\" value=\"Submit\">";
print "</form>";

#end of print form

insert_image() if (param()); 

sub insert_image { 
  # путь к директории для закачки директория 
  # должна иметь право на запись для 
  # пользователя, под которым работает веб-сервер 
  my $downpath = "d:/tmp/"; 

  my $in=param('picture'); 

  # выделяем имя файла из параметра 
  my ($name) = $in =~ m#([^\\/:]+)$#; 

  open(OUT,">$downpath$name"); 
  binmode(OUT); 
  # читаем входной поток и пишем в файл 
  while (<$in>) { 
    print OUT $_; 
  } 
  close(OUT); 
  
  # выводим надпись о закачке файла <$name> 
  print "Upload file: $name";