[PERL] не хочет записываться файл из формы хоть убей

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
ProFTP
проходил мимо

[PERL] не хочет записываться файл из формы хоть убей

Непрочитанное сообщение ProFTP » 2008-04-05 1:00:29

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

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");

}
вверху примерный дивжок...

как записать картинку?? я уже запарился с этой фигнюшкой

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/



zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: не хочет записываться файл из формы хоть убей(perl)

Непрочитанное сообщение zg » 2008-04-25 10:41:27

у меня такое ощущение, что тут что-то не то....
if ($action=~/reg$/i){
reg3();
}
...
$pageone=param(pageone);
if $pageone{
regrel();
}
откуда к тебе пришёл $action?
sub reg4 {
<form name="pageone" method="post" enctype="multipart/form-data">
а перл точно умеет сам различать где перл, а где html-форма?

ProFTPD
проходил мимо

Re: не хочет записываться файл из формы хоть убей(perl)

Непрочитанное сообщение ProFTPD » 2008-04-25 11:10:57

я уже сделал, очень долго не мог найти проблему...

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

<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]
откуда к тебе пришёл $action?
из движка пришел, я пишу по модулях, потмоу что очень много код занял более 10000 строк

это для:
index.pl?action=фукнция
....


zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: не хочет записываться файл из формы хоть убей(perl)

Непрочитанное сообщение zg » 2008-04-25 11:29:37

ProFTPD писал(а):из движка пришел, я пишу по модулях, потмоу что очень много код занял более 10000 строк
многова-то для перла... сам писал?

ProFTPD
проходил мимо

Re: не хочет записываться файл из формы хоть убей(perl)

Непрочитанное сообщение ProFTPD » 2008-04-27 12:08:14

ну там приходиться повторять несколько раз одно и тоже, разделил функциями, но все равно, приходится проверки делать, и повторять одно и тоже, сам код пофига как самое главное чтобы выглядело и двигалось, проверки на ввод делать, передавать... писам сам, только сессии использовал из примера...

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: не хочет записываться файл из формы хоть убей(perl)

Непрочитанное сообщение Alex Keda » 2008-04-27 23:32:04

однако надо осваивать функции...
Убей их всех! Бог потом рассортирует...

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: не хочет записываться файл из формы хоть убей(perl)

Непрочитанное сообщение Alex Keda » 2008-04-27 23:35:36

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

hosting$ find . -name \*.php -exec cat {} > /tmp/ttt.txt \;
hosting$ wc -l /tmp/ttt.txt
    6726 /tmp/ttt.txt
hosting$    
это - auto.lissyara.su - довольно немаленький проект...

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

hosting$ find . -name \*.php -exec cat {} > /tmp/ttt.txt \;
hosting$ wc -l /tmp/ttt.txt
  164852 /tmp/ttt.txt
hosting$   
а это вот этот форум...
Убей их всех! Бог потом рассортирует...