Voila je vien de l´installer ( pour un logiciel) et voila il faut que je le program ( mettre la bonne base de donnez ! ) quelqun peut m´aider voici le script :

1. 1. ###############################################
   2. #########
2. XtraStats Commish Util for FHL
3. v0.99.2.0

#

1. ( c) 1999, Wynn Fenwick, All rights reserved.
2. ( c) 2001, Frederic Hurtubise, All rights reserved.

#

1. Email: frederic@hurtubise.net
2. Website: TBD

#

1. Rights of licence:
2. - Re-distribution of this software is prohibited.
3. - Requestors of the software should be forwarded to me directly.
4. - Modification of this software without notification to Frederic Hurtubise
5. ( frederic@hurtubise) is prohibited.
6. - Use of this software without credit to author on program output
7. is prohibited.

#

1. This doesn´t mean you won´t be able to modify the program. I just want
2. to be notified. Maybe your ideas are good enough to be included in the
3. next version!

1. 1. ###############################################
   2. ##########

package XtraStats::LeechFiles;

use LWP::UserAgent;
use HTTP::Request;
use strict;

$|++;

sub Go
{
my $ua = new LWP::UserAgent;

my $url_part =
"$XtraStats::Config::LeagueURL$XtraStats::Config::
LeaguePrefix";

my $req = new HTTP::Request(´GET´, "${url_part}Schedule.html") || die ( "$! ${url_part}Schedule.html");
my $res = $ua->request($req);
my $content = $res->content();

open ( FILE,
">$XtraStats::Config::InDirectory${XtraStats::Conf
ig::LeaguePrefix}Schedule.html") || die ( "$!
${XtraStats::Config::LeaguePrefix}Schedule.html");

print FILE $content;
close FILE;

my $lastday;
while ( $content =~ s/<A
HREF=$XtraStats::Config::LeaguePrefix(\d+)\.html>/
/g)
{
$lastday = $1;
}

print "\n-=> Leeching boxscores\n";

for ( my $i = 1; $i <= $lastday; $i++)
{
if ( !-e
"$XtraStats::Config::InDirectory$XtraStats::Config
::LeaguePrefix$i.html")
{
print "." if $XtraStats::Config::Verbose;

my $req = new HTTP::Request(´GET´, "${url_part}$i.html") || die ( "$! ${url_part}$i.html");;
my $res = $ua->request($req);
my $content = $res->content();
open ( FILE,
">$XtraStats::Config::InDirectory$XtraStats::Confi
g::LeaguePrefix$i.html") || die ( "$! $XtraStats::Config::LeaguePrefix$i.html");
print FILE $content;
close FILE;
}
}

print "\n<=- Leeching boxscores\n";
print "\n-=> Leeching player files\n";

foreach my $file ( qw(TeamScoring PlayerVitals Rosters Standings))
{
print "." if $XtraStats::Config::Verbose;

my $req = new HTTP::Request(´GET´, "${url_part}$file.html");
my $res = $ua->request($req);
my $content = $res->content();
open ( FILE,
">$XtraStats::Config::InDirectory$XtraStats::Confi
g::LeaguePrefix$file.html") || die ( "$! $XtraStats::Config::LeaguePrefix$file.html");
print FILE $content;
close FILE;
}

print "\n<=- Leeching player files\n";
}

666;

voila ! Pouvez m´aider car la je ne comprend vraiment rien !