forum.lissyara.su

Код: Выделить всё

use CGI::Carp qw(fatalsToBrowser);
use DBI;
require "dev.pl";
use CGI;
use DBD::mysql;
use Math::Round qw(nearest);
use Image::Magick;

#use strict;
use warnings;
use CGI::Cookie;
use Storable;
use vars '$dbh', '%user_vars';
use POSIX;
use Digest::MD5 qw(md5_hex);
use Encode qw(encode_utf8);

if ($action=~/reg$/i){
reg3();
}


$pageone=param(pageone);

if $pageone{
regrel();
}

sub reg4 {
<form name="pageone" method="post" enctype="multipart/form-data">
  <div align="center"><center><table border="0" cellspacing="0" cellspacing=1>
    <tr>
      <td align="right">Логин:</td>
      <td colspan="2"><input type="hiden" name="logi0" size="15">(с 2 до 15 символов, латинские символы)</td>
    </tr>
    <tr>
      <td align="right">pass:</td>
      <td colspan="2"><input type="hiden" name="passs" size="15">(с 2 до 15 символов, латинские символы)</td>
    </tr>
    <tr>
      <td align="right">pass:</td>
      <td colspan="2"><input type="hiden" name="passs2" size="15">(с 2 до 15 символов, латинские символы)</td>
    </tr>
    <tr>
      <td align="right">имя:</td>
      <td colspan="2"><input type="hiden" name="login0" size="15">(с 2 до 15 символов, латинские символы)</td>
    </tr>
    <tr>
      <td align="right">pers:</td>
      <td colspan="2"><input name="photo" type="file">  </td>
<br>
    </tr>

      <td></td>
      <td align="center"><input type="submit" value="Добавить"></td>
      <td align="center"><input type="reset" value="Очистить"></td>
    </tr>
}


sub rerrel{


$photo=param(photo);

if ($photo) {


  # путь к директории для закачки директория 
  # должна иметь право на запись для 
  # пользователя, под которым работает веб-сервер 
  $downpath = "/usr/local/www/q21/perl/photo/";

  #my $in=param('picture'); 

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

$a="jpg";

$file = $downpath.$avatar.$tv.".".$a;

  #$open(OUT,">$file") || die "$!"; 
  #binmode(OUT); 
  # читаем входной поток и пишем в файл 




 #$file = $path_image.$tv[1].".".$tv[0];
  open (IMG, ">$file"); binmode IMG;  print IMG while (<$photo>); close (IMG); chmod 0644, $file;



# 
#  my $ix="150"; 
#  my $iy="150";
# 
# 
# 
#  $photo = Image::Magick->new;
#   $photo->Read("$file"); # $file - понятно что это только что загруженный файл
# 
# 
# 
# my ($ox, $oy, $oc, $ic, $nx, $ny, $geo);
#   ($ox,$oy)=$photo->Get('columns','height');
#   if (($ox > $ix)||($oy > $iy)) {
#    $oc = $ox/$oy; $ic = $ix/$iy;
#    if ($oc < $ic) {$ny = $iy; $nx=int(($ox/$oy)*$iy);}
#    elsif ($oc > $ic) {$nx = $ix; $ny=int(($oy/$ox)*$ix);}
#    else {$nx = $ix; $ny = $iy;}}
#   else {$nx=$ox;$ny=$oy;}
# 
# #Изменяем размер и сохраняем изображение:
# 
#   $geo = 'geometry';
#   $photo->Resize(geometry=>$geo, width=>$nx, height=>$ny);
#   $file = $path_image."i".$tv[1].".".$tv[0];
#   $photo -> Write("$photo");

}

Код: Выделить всё

<form name="pageone" method="post" enctype="multipart/form-data" action="s.pl>

Код: Выделить всё

<form name="pageone" method="post" enctype="multipart/form-data">

Код: Выделить всё

<form name="pageone" method="post" enctype="multipart/form-data" action="upload.pl">

Код: Выделить всё

print << "[INFO5]";
    <tr>
       Имя:
    <input type="text" name="loginc" value="$lastlogin" size="15">
    </tr>
[INFO5]

Код: Выделить всё

if ($action=~/reg$/i){
reg3();
}

Код: Выделить всё

hosting$ find . -name \*.php -exec cat {} > /tmp/ttt.txt \;
hosting$ wc -l /tmp/ttt.txt
    6726 /tmp/ttt.txt
hosting$    

Код: Выделить всё

hosting$ find . -name \*.php -exec cat {} > /tmp/ttt.txt \;
hosting$ wc -l /tmp/ttt.txt
  164852 /tmp/ttt.txt
hosting$