/[useradm]/otvori_nove+db
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /otvori_nove+db

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Tue Apr 18 12:09:03 2000 UTC revision 1.4 by dpavlin, Tue Apr 18 12:19:24 2000 UTC
# Line 137  while (my ($osoba_id,$ime,$prezime,$sifr Line 137  while (my ($osoba_id,$ime,$prezime,$sifr
137          $ime=nuke_chars($ime);          $ime=nuke_chars($ime);
138          $prezime=nuke_chars($prezime);          $prezime=nuke_chars($prezime);
139    
140          my $prezime_za_login;          my $prezime_za_login,$ime_za_login;
141    
142          if ($prezime =~ /-/) {          # dva prezimena prezime1-prezime2          if ($prezime =~ /[- ]/) {          # dva prezimena prezime1-prezime2
143                  ($prezime_za_login,undef) = split(/-/,$prezime,2);                  ($prezime_za_login,undef) = split(/[- ]/,$prezime,2);
144          } else {          } else {
145                  $prezime_za_login = $prezime;                  $prezime_za_login = $prezime;
146          }          }
147    
148            if ($ime =~ /[- ]/) {          # dva imena ime1-ime2
149                    ($ime_za_login,undef) = split(/[- ]/,$ime,2);
150            } else {
151                    $ime_za_login = $ime;
152            }
153    
154          my $add="";          my $add="";
155          my $login;          my $login;
156    
157          do {          do {
158                  $login=substr($ime,0,1).substr($prezime_za_login,0,7-length($add)).$add;                  $login=substr($ime_za_login,0,1).substr($prezime_za_login,0,7-length($add)).$add;
159                  $login =~ tr [A-Z] [a-z];                  $login =~ tr [A-Z] [a-z];
160                  xdebug "$ime, $prezime   login: $login\n";                  xdebug "$ime, $prezime   login: $login\n";
161                  $add++;                  $add++;
# Line 160  while (my ($osoba_id,$ime,$prezime,$sifr Line 166  while (my ($osoba_id,$ime,$prezime,$sifr
166          $add="";          $add="";
167          do {          do {
168                  $email_alias="$ime.$prezime$add";                  $email_alias="$ime.$prezime$add";
169                    $email_alias =~ s/ /./g;        # space -> dot
170                  $email_alias =~ tr [A-Z] [a-z];                  $email_alias =~ tr [A-Z] [a-z];
171                  xdebug "\t$email_alias\n";                  xdebug "\t$email_alias\n";
172                  $add++;                  $add++;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.26