RE: Re: migrating

От: Serjio Lapchinsky <sl_at_mx_ru>
Дата: Tue 22 Apr 2003 - 10:19:59 MSD

> > Я так понял что перенести пароли и логины в РХ7.3 из shadow
> > в CGP не получиться? Или я гоню или доку плохо прочитал?
> > проконсультируйте плиз. а то я и паролей не знаю своих юзеров, и
> > ручками вводить 1000 аккаунтов как то ломово.
>
> Используйте on-the-fly migration:
> <http://www.stalker.com/CommuniGatePro/Migration.html#ExtAuth>

Написал за 3 минуты вот это без особой функциональности с год тому назад, все смигрировало без проблем...

Пароли с юникса
#!/usr/bin/perl

    open AAA,"</var/a/test/passwd";
    @lista=<AAA>;
    $size=@lista;
    close AAA;

    print "Name\x09RealName\x09UnixPassword\n";     for ($i=0;$i<$size;$i++) {

            @record=split(/\:/,$lista[$i]);
            print $record[0],"\x09",$record[7],"\x09",$record[1],"\n";

    }

Боксы с почтой
#!/usr/bin/perl

$oldmailbox = "/var/mail";
$newmailboxpath = "/var/CommuniGate/Accounts/";
$mboxname = "INBOX.mbox";

opendir($dd, $oldmailbox);
@lista = readdir($dd);
closedir($dd);
$size = @lista;

    for ($i=0;$i<$size;$i++) {

        if ( not $lista[$i]=~ /^\./ ) {
         print "processing ".$lista[$i];
         rename($oldmailbox.$lista[$i],
$newmailboxpath.$lista[$i].".macnt/".$mb
         print " . rename ";
         chmod 000660,$newmailboxpath.$lista[$i].".macnt/".$mboxname;
         print ". chmod ";
         chown 0,12,$newmailboxpath.$lista[$i].".macnt/".$mboxname;
         print " . chown . done. \n";
        }

    } Получено Tue Apr 22 06:20:14 2003