vpopmail with mysql backend intergration

[Rick Eicher II]

I am working on getting freeside to export to vpopmail that uses mysql as a 
back-end. But my Perl skills are weak. :( 

I have added the following to the svc_acct.export file at line 675. 

#Begining of code
foreach $svc_acct (qsearch('svc_acct', ('domsvc'=> $svc_domain->svcnum))) {
  my ($username)=$svc_acct->getfield('username'); # get user name
  my ($password)=$svc_acct->getfield('_password'); # get password
  my ($dom)=$svc_acct->getfield('domsvc'); #get domain number
  my ($domain)=qsearch('svc_domain',{'svc_domain' => '$dom'}; #get domain 

  #Take the above and insert it in to the vadduser script
  #Example of command "vadduser emailaddress password"

   ssh("root\@$machine",
   "( ".
     "/home/vpopmail/bin/vadduser $username@$domain $password; ".
   " )"
 )
   == 0 or die "ssh error: $!";
}#End of ugly code 


First question is does this even look like it might work? Any ideas or 
suggestions are welcomed. 


Once I get it to export to vpopmail I will try and figure out how to make 
this an option in the config page. 

Thanks for your time,
Rick Eicher II
www.pbol.net