[BACK]Return to makeeditors.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/makeeditors.pl between versions 1.1 and 1.4

version 1.1, 2010/04/24 17:21:53 version 1.4, 2010/05/15 15:46:15
Line 51  while (<NICKS>) Line 51  while (<NICKS>)
    ($number,$nick)=split;        ($number,$nick)=split;   
    next unless $number;        next unless $number;   
    next unless $number=~/^\d+$/;     next unless $number=~/^\d+$/;
    ($name,$surname)=split ' ',<NICKS>;     @parts = split ' ',<NICKS>;
    $name{$nick}= ucfirst lc $name;     $_ = ucfirst lc $_ foreach  @parts;
    $surname=ucfirst lc $surname;     $surname = pop @parts;
      $name{$nick}= join ' ', @parts;
    $surname=~s/\-(.)/"-". uc $1/ge;     $surname=~s/\-(.)/"-". uc $1/ge;
    $surname=~s/\'(.)/"'". uc $1/ge;     $surname=~s/\'(.)/"'". uc $1/ge;
    $surname{$nick}= $surname;     $surname{$nick}= $surname;
Line 65  $surname{'error'}='Глюков'; Line 66  $surname{'error'}='Глюков';
 $name{'error'}='Очепят';  $name{'error'}='Очепят';
 $surname{'unknown'}='Неизвестный';  $surname{'unknown'}='Неизвестный';
 $name{'unknown'}='Псевдоним';  $name{'unknown'}='Псевдоним';
 $surname{'team'}='Капитанова';  $surname{'team'}='Авторов';
 $name{'team'}='Команда_';  $name{'team'}='Коллектив';
   
   
 while (<SSNICKS>)  while (<SSNICKS>)
Line 130  while (($TournamentId, $editor, $parent, Line 131  while (($TournamentId, $editor, $parent,
   
 foreach $t(keys %Tours) {  foreach $t(keys %Tours) {
   %tour = %{$Tours{$t}};    %tour = %{$Tours{$t}};
   print Dumper(\%tour);  
   if (    if (
       
     (exists $tour{'children'}) &&       (exists $tour{'children'}) && 
Line 138  foreach $t(keys %Tours) { Line 138  foreach $t(keys %Tours) {
   ) {    ) {
   $childrenSameAuthor = 1;    $childrenSameAuthor = 1;
     foreach (@{$tour{children}}) {      foreach (@{$tour{children}}) {
 print $Tours{$_} -> {editor}." ne ".$tour{editor}."\n";  
       if ($Tours{$_} -> {editor} ne $tour{editor}) {        if ($Tours{$_} -> {editor} ne $tour{editor}) {
         $childrenSameAuthor = 0;          $childrenSameAuthor = 0;
       } else {        } else {
       print "!";  
         $Tours{$_} -> {editor} = '';          $Tours{$_} -> {editor} = '';
       }        }
     }      }
Removed from v.1.1  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>