Помощ - проблем при запазване на файл Perl

[euro_33]

Здравейте.
При опит да съхраня файл на сървъра, чието име се формира от perl скрипт се появява следната грешка : Insecure dependency in open while running setuid at /home/dobri711/cgi-bin/news2.pl line 23.

Ето и част от скрипта:

#!/usr/bin/perl
use CGI::Carp qw( fatalsToBrowser );

open (ID,"../news11/page.txt");
$new_id = <ID>;
close (ID);

$new_id = $new_id + 1;

open (ID,">../news11/page.txt");
print ID $new_id;
close (ID);
$filename = '../news11/'."$new_id".'.html';

line 23 open FILE, ">$filename";
print FILE "text text text text";
close(FILE);

Идеята е да запазвам в отделни файлове въведени съобщения от потребителите, като всеки път името нараства с единица - примерно 23.html.
Помогнете ако имате някаква идея !!

 

[Admin]

Здравейте.
При опит да съхраня файл на сървъра, чието име се формира от perl скрипт се появява следната грешка : Insecure dependency in open while running setuid at /home/dobri711/cgi-bin/news2.pl line 23.

Ето и част от скрипта:

#!/usr/bin/perl
use CGI::Carp qw( fatalsToBrowser );

open (ID,"../news11/page.txt");
$new_id = <ID>;
close (ID);



$new_id = $new_id + 1;

open (ID,">../news11/page.txt");
print ID $new_id;
close (ID);
$filename = '../news11/'."$new_id".'.html';

line 23 open FILE, ">$filename";
print FILE "text text text text";
close(FILE);

Идеята е да запазвам в отделни файлове въведени съобщения от потребителите, като всеки път името нараства с единица - примерно 23.html.
Помогнете ако имате някаква идея !!

Не съм пипал PERL от доста време но...

  open (ID,"../news11/page.txt");		
  $new_id = <ID>;
  close (ID);

трябва да е

open (ID,"<../news11/page.txt");
$new_id = <ID>;
close (ID);


Ориентирай се към ПХП.
Ще получиш по качествен support във форума и не само тук.
Просто е по разпространен и 90% от приложенията за web
се пишат на PHP.

 

[Admin]

И този ред

 line 23 open FILE, ">$filename";

какво прави?
Не трябва да е така.

Мога да погледна стари мой файлове на PERL и да ти напиша скрипта но
на PHP просто е много по-лесно за всеки от нас.