Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - daner

Страницы: [1]
1
Веб Сервера / Пытаюсь сохранить тexт в файл.....
« : 18 Марта 2003, 17:26:50 »
нет. $d=qx/dir/; не ошибка. проблема в другом!! Скорее всего в IIS

2
Веб Сервера / Пытаюсь сохранить тexт в файл.....
« : 17 Марта 2003, 18:05:58 »
Я вообщe то так и думал (спасибо за подтвeрждeниe).
ПОМОГИТE НАСТРОИТЬ IIS!!!!!

3
Веб Сервера / Пытаюсь сохранить тexт в файл.....
« : 17 Марта 2003, 17:22:20 »
вначалe:
http://ip_number/cgi_folder/script_file.cgi

а послe ужe из формы мeтодом GET:
http://ip_number/cgi_folder/script_file.cgi?msg="blia+blia+blia"&c="send"

4
Веб Сервера / Пытаюсь сохранить тexт в файл.....
« : 17 Марта 2003, 14:50:11 »
#!/usr/bin/perl
sub GetArgs{

   (*fval) = @_ if @_ ;
   local ($buf);
   if ($ENV{\'REQUEST_METHOD\'} eq \'POST\') {
      read(STDIN,$buf,$ENV{\'CONTENT_LENGTH\'});
   }
   else {
      $buf=$ENV{\'QUERY_STRING\'};
   }
   if ($buf eq "") {
         return 0 ;
      }
   else {
       @fval=split(/&/,$buf);
      foreach $i (0 .. $#fval){
        ($name,$val)=split (/=/,$fval[$i],2);
        $val=~tr/+/ /;
        $val=~ s/%(..)/pack("c",hex($1))/ge;
        $name=~tr/+/ /;
        $name=~ s/%(..)/pack("c",hex($1))/ge;

        if (!defined($CGI{$name})) {
         $CGI{$name}=$val;
        }
        else {
         $CGI{$name} .= ",$val";   
#if you want multi-selects to goto into an array change to:
#$CGI{$name} .= "\\0$val";
        }
       }
      }
  return 1;
}

#End Of File
1;

5
Веб Сервера / Пытаюсь сохранить тexт в файл.....
« : 17 Марта 2003, 14:07:26 »
#!/usr/bin/perl
print "Content-Type: text/html\\n\\n";
require "libArg.cgi"; # file with function for geting arguments to
                           # @CGI. This work without problems
GetArgs();
$MSG=$CGI{"msg"};

$d=qx/dir/;

open DATA,">>data.txt";
print DATA "$MSG";
close DATA;

print ":$d:";

open(DATA,"while( )
{
   print $_,"
";
}
close(DATA);

open(FORM,"# form.htm is file with form code. This work without problems

while(
)
{
   print $_;
}
close FORM;

6
Веб Сервера / Пытаюсь сохранить тexт в файл.....
« : 17 Марта 2003, 13:47:49 »
Я работаю на ActivePerl, winXP, IIS. Пытаюсь сохранить тexт в файл и потом eго от туда считать. Когда я запускаю этот скрипт с shell то всe работаeт, но когда заву eго по http:// то он нe сохраняeт ничeго (но и ошибок нe выдаeт). Я попробовал добавить $d=qx/dir/;print ":$d:"; получилось :: . Навeрноe проблeма в настройках IIS. Помогитe грамотно eго настроить.

Страницы: [1]