Muromets
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LioWD, присоединяюсь к мнению Nikku, что нужно тебе самому распаковать. Я тоже сам распаковал Rar'ом.
Шлю тебе строчки 64 и 270, а токже то, что вокруг них.
$where =~ s#\s{1,}(eq|ne|==|!=|=~)\s{1,}# $ops{$1} #ig;
$where =~ s#\s{1,}(and|or|&&)\s{1,}# $bln{$1} #ig;
# Convert perl / into single quotes...
$where =~ s#/#'#g;
return $where;
}
--------------------------------------------------------------------
#+--------------------------------------------------------
#| LOAD_CFG: Load and set up the configuration file.
#+--------------------------------------------------------
sub load_cfg {
my ($obj, $cfg) = @_;
die "Invalid Number of ARGVS" unless @_ == 2;
$obj->{'cur_p_key'} = undef;
do $obj->{'base_dir'}.'config/'.$cfg.'.cfg' or die "Cannot open file : $cfg.cfg ($!)";
$obj->{'cur_table'} = $IMPORT::STRING->{'TABLE'};
$obj->{'cur_p_key'} = $IMPORT::STRING->{'P_KEY'};
$obj->{'cur_method'} = $IMPORT::STRING->{'MTD'};
$obj->{'cur_update'} = $IMPORT::STRING->{'UPDATE'} || 'bottom';
$obj->{'cur_ID'} = $IMPORT::STRING->{'ID'};
$obj->{'cur_DBID'} = $IMPORT::STRING->{'DBID'};
$obj->{'cur_INDEX'} = $IMPORT::STRING->{'INDEX'};
$obj->{'all_cols'} = $IMPORT::COLS;
$obj->{'total_cols'} = 0;
$obj->{'col_name'} = [];
foreach (sort { $obj->{'all_cols'}->{$a}[0] <=> $obj->{'all_cols'}->{$b}[0] } keys %{$obj->{'all_cols'}} ) {
push @{$obj->{'col_name'}}, $_;
++$obj->{'total_cols'};
}
$obj->{'total_cols'}--;
undef $IMPORT::STRING;
}
Может быть, тебе прислать уже установленную Sources (500 Kb в архиве)? |
возми там же, найдёшь по ссылке
, хотя до шага Database set up 