Ciao,

Ho approntato uno script per aggiungere automaticamente delle pagine web ad un sito;in pratica lo script dovrebbe prelevare un numero di titoli a random da un file di testo chiamato key_list.txt e sottoporli all'apposito form di un pannello di controllo, sempre cgi, che provvede a trasformarli in pagine web vere e proprie.Lo script in questione dovrebbe funzionare con un cron job così da aggiungerne un tot al giorno e restituirmi il relativo output: In realtà ciò che accade è che tutto funziona, l'output conferma il numero e il titolo delle pagine create, ma quando entro nel pannello di controllo,delle pagine nessuna traccia...
Ho ripassato lo script un milione di volte ma non riesco a capire l'errore...

C'è qualcuno che può darmi gentilmente una mano?

Questo è lo script, testato in localhost (ma l'ho già testato su un vero server):

#!perl


# Configurazione

# password cpanel

$password = 'blabla';

# url del cpanel

$admin_url_base = 'http://localhost/cgi-bin/sector/test/control.cgi';

# cartella file del cpanel

$data_dir = 'data';


# numero minimo di pagine

$minpages = 1;

# numero massimo di pagine

$maxpages = 5;

# path allo script

$fullpath = '/indigoperl/apache/cgi-bin/sector/test/';


##### script #####

use CGI::Carp qw (fatalsToBrowser);
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

$keywords = 'key_list.txt';
$klist = '';
$admin_url = $admin_url_base . '?createpages';
open (KEYS, "<$fullpath$keywords");
@kd = <KEYS>;
close (KEYS);

srand();
$range = $maxpages - $minpages;
$random_number = int(rand($range)) + $minpages;

for ($a=1;$a<=$random_number;$a++){
$klist .= shift(@kd);
}
chomp($klist);

@completed = split(/\n/,$klist);

open (KEYS, ">$fullpath$keywords");
print KEYS @kd;
close (KEYS);

$req = (POST $admin_url,
[
'pass' => $password,
'dataflag' => '1',
'pagenames' => $klist
]);

$response = $ua->request($req);

print "Content-type: text/html\n\n";
print "Number of pages created: $random_number
\n";
foreach(@completed){
print $_."
\n";
Grazie per l'aiuto

Ciao!