Perl reikia pagalbos

Sveiki, susiduriau su tokia problema, gal kas galit pasidalint savo patirtimi, reikia man is MySQL duomenu bazes perkelti vartotojus i Samba, tik reikalas tas, kad visada turi vykti tikrinimas vartotoju, pvz Samba tikrina savo duomenis su MySQL ir jei yra nauju vartotju MySQl ji pasiema is jos pas save i Samba.

Beje, Samba naudoja Zentyal grafine sasaja.

Samboje sarasas atrodo taip:

---------------

Unix username: Vardas

NT username:

Account Flags: [u ]

User SID: S-1-5-21-3709744732-4222577532-2626538931-1108

Primary Group SID: S-1-5-21-3709744732-4222577532-2626538931-513

Full Name: Vardas Pavarde

Home Directory: /home/Vardas

HomeDir Drive: (null)

Logon Script:

Profile Path: \\samba4.BI******\profiles\Vardas

Domain:

Account desc:

Workstations:

Munged dial:

Logon time: 0

Logoff time: 0

Kickoff time: Kt, 14 Rgs 30828 05:48:05 EEST

Password last set: An, 21 Bal 2015 13:12:43 EEST

Password can change: An, 21 Bal 2015 13:12:43 EEST

Password must change: never

Last bad password : 0

Bad password count : 0

Logon hours : FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF

---------------

Kaip parasyti script'a kad man nuskaitytu is sio saraso tik Unix username Full name ?

Mano nuomone tokia, kad pasiemu duomenis is MySQL ir lyginu su Samboje esama inoformacija, kaip pvz dabar su Unix username.

Jau kankinuos su sita beda antra savaite, o internete taipogi nieko nepavyksta rast.

print "Vartotojas ?\n";
$user=<>;
chomp $user;
$cmd="/usr/bin/pdbedit -Lv ".$user;
use IPC::Open3;
$childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd, @args);
#print HIS_IN "stuff\n";
close(HIS_IN);            # Give end of file to kid.
@outlines = <HIS_OUT>;    # Read till EOF.
@errlines = <HIS_ERR>;    # XXX: block potential if massive
print "STDOUT:\n", @outlines, "\n";
print "STDERR:\n", @errlines, "\n";
close HIS_OUT;
close HIS_ERR;
foreach $line (@outlines)  {   
($w1, $w2) = split(/:/,$line,2);
$info{$w1}=$w2;
}
print "\n";    
$in1=$info{'Unix username'};
$in2=$info{'Full Name'};
$in1 =~ s/^\s+|\s+$//g;
$in2 =~ s/^\s+|\s+$//g;
print "$in1\n";    
print "$in2\n";    

дрехнул стариной

MySQL helpas

http://aruljohn.com/code/perl/mysqlselect.html

Šiaip jei nėra senųjų vartotojų samboje, samba galima susikonfiguruoti kad passwordai ir visa juserio info būtų laikoma MySQL ir jokių skriptų nereikia

http://www.gentoo-wiki.info/HOWTO_Samba_with_Mysql

Hmm.... Na Samba dabar yra svieziai irasyta, tai kaip ir nieko dabar dar nera joje.. Tu gal kartais turi kur sone numetes ta konfiga? butu kur kas paprasciau susigaudyt kur ka ten pakeisti.

pvz duotas ant samba3, pas mane samba 4.1.? bandziau tai realizuoti bet nepabaigiau, speju samba reikia perkompiliuoti is source su tam tikromis zymemis, dar reikia suinstaliuoti reikiamus perl modulius, sukurti MySQL lentele , konfygas manau nuorodoje

Tas konfigas nuorodoje tai skirtas Sambai 3... Pas mane taip pat 4.1 ir jai jau nebetinka.. Vargo vakariene cia.. :)