Perl, skrypt do przenoszenia daty do sql

[modlix]

Witam.
Mam problem ze skryptem, który przedstawiłem w załączniku, polega on na tym, że dodaję do sql fałszywe dane odnośnie daty godziny. Chciałbym skorzystać z tego skryptu bo dużo się namęczyłem żeby go zainstalować.

Chodzi mniej więcej o to aby z tej nazwy:

Kod: Zaznacz cały

[url=http://91.204.161.152/dema/auto-20120108-0627-de_dust2.dem]auto-20120108-0627-de_dust2.dem[/URL]

wyciągnąć datę i wysłać do sql.

Kod: Zaznacz cały

 #!/usr/bin/perl -w
use lib "./lib";
use DBI;use Date::Parse;use Archive::Zip qw( :ERROR_CODES :CONSTANTS );use Net::FTP;use File::Copy;   my $COMP_LEVEL = 6; #poziom kompresji; 0-brak, 9-maxmy $max_demo = 60*60*24*30; #ile sekund trzymac dema, standardowo 30dni (2592000)
#USTAWIENIA FOLDEROWmy $from =1; #pliki pobierane z: 0 - FTP, 1 - lokalnymy $to = 1; #pliki wysyłane na: 0 - FTP, 1 - lokalnymy $compress = 0; #kompresja pobieranych plików: 0 - pliki juz sa skompresowane, 1 - kompresuj plikimy $cext = ".dem"; #rozszerzenie plików;
#USTAWIENIA BAZY DANYCHmy $DB_host = "localhost"; #adresmy $DB_port = "3306"; #portmy $DB_user = "root"; #uzytkownikmy $DB_pass = "psychocss"; #haslo uzytkownikamy $DB_name = "test"; #nazwa bazymy $DB_table = "sourcetv_dema"; #nazwa tabelimy $DB_type = "mysql";
#FTP ZRODLOWY (zdalny HLDS) [[jesli $from==0]my $ftp_host_from = "91.204.161.152"; #adres serweramy $ftp_user_from = "gameadmin"; #loginmy $ftp_pass_from = "psycho2012"; #haslo
#FTP DOCELOWY (zdalny WWW) [jesli $to==0]my $ftp_host_to = "second.ftp.com"; #nazwa serweramy $ftp_user_to = "login"; #loginmy $ftp_pass_to = "password"; #haslo
#FOLDER ZRODLOWY (zdalny HLDS) [jesli $from==0]my @FTPdir_from = ("", "/Serwery-CSS/FFA-test/css/cstrike/");
#FTP DOCELOWY (zdalny WWW) [jesli $to==0]my @FTPdir_to = ("", "/cstrike/dema/");
#FOLDER ZRODLOWY (lokalny HLDS) [jesli $from==1]my @loc_dir_from = ("", "/home/gameadmin/Serwery-CSS/FFA-test/css/cstrike/");
#FOLDER DOCELOWY (lokalny WWW) [jesli $to==1]my @loc_dir_to = ("", "/var/www/dema/");
#KONIEC EDYCJI
my @dir_from = (\@FTPdir_from, \@loc_dir_from);my @dir_to = (\@FTPdir_to, \@loc_dir_to);
if ($from != 0 && $from != 1){  print "error #00 :: Zly folder zrodlowy\n";  exit;}if ($from != 0 && $from != 1){  print "error #01 :: Zly folder docelowy\n";  exit;}
my $num_from = $#{$dir_from[$from]};my $num_to = $#{$dir_to[$to]};
if ($num_from != $num_to){  print "error #02 :: Nie zgadzaja sie liczby katalogow zrodlowych i docelowych\n";  exit;}
my $num = $num_from+1;my $pl_add = 0;my $pl_rem = 0;my $arg = 0;
if ($ARGV[0]) {$arg = $ARGV[0]}
if ($arg==0 || $arg>=$num) {  print "error #03 :: Zle ID => ".$arg."\n";  exit;}
my $DBh = DBI->connect("DBI:$DB_type:$DB_name:$DB_host:$DB_port", $DB_user, $DB_pass) or  die "error #04 :: NIE MOZNA PODLACZYC DO BAZY";
my $ftp_from;my $ftp_to;

if ($from==0){    $ftp_from = Net::FTP->new($ftp_host_from, Debug => 0)        or die "error #05 :: NIE MOZNA PODLACZYC DO FTP";
    $ftp_from->login($ftp_user_from,$ftp_pass_from)        or die "error #06 :: NIE MOZNA ZALOGOWAC DO FTP ", $ftp_from->message;    $ftp_from->binary();}
if ($to==0){    $ftp_to = Net::FTP->new($ftp_host_to, Debug => 0)        or die "error #07 :: NIE MOZNA PODLACZYC DO FTP";
    $ftp_to->login($ftp_user_to,$ftp_pass_to)        or die "error #08 :: NIE MOZNA ZALOGOWAC DO FTP ", $ftp_to->message;    $ftp_to->binary();}
my $demos_dir = "./tmp/"; #tymczasowy katalog z demami
my $direxist = 0;if (-d $demos_dir){  $direxist = 1;}else {  mkdir $demos_dir or die "error #09 :: NIE MOZNA UTOWRZYC KATALOGU";}
if (!(-r $demos_dir) || !(-w $demos_dir)){  print "error #10 :: NIE MOZNA ODCZYTAC LUB ZAPISAC KATALOGU TYMCZASOWEGO\n";  exit;}
if ($arg>0){  demos($arg)}else{  for (my $a=1; $a<$num; $a++)  {     demos($a)  }}
sub demos{  my($harg) = @_;
  my @files = {};  my $count = 0;
  my $newest = 0;  my $newnum = -1;
    if ($from == 0)    {        my @filelist = grep { !/^\.{1,2}$/ }$ftp_from->ls($dir_from[$from][$harg]);        my $num = scalar @filelist;                $ftp_from->cwd($dir_from[$from][$harg]) or die "error #24 :: NIE MOZNA ZMIENIC FOLDERU ", $ftp_from->message;                for (my $i=0; $i < $num; $i++)        {            my $filename = $filelist[$i];
            $filename = (split(/\//,$filename))[-1];            $filename =~ s/\///g;
            if ($filename =~ m/$cext$/)            {                $files[$count]{"file_name"} = $filename;                if ($ftp_from->supported("STAT"))

[ATTACH]4276[/ATTACH]

[fnmirk]

Chciałbym skorzystać z tego skryptu bo dużo się namęczyłem żeby go zainstalować.

Widocznie go źle zainstalowałeś?