ispCP - Board - Support
[UPDATED] Roundcube Fetchmail Plugin v0.2 - Printable Version

+- ispCP - Board - Support (http://www.isp-control.net/forum)
+-- Forum: ispCP Omega International Area (/forum-22.html)
+--- Forum: German Corner (/forum-26.html)
+---- Forum: Plauderecke (/forum-49.html)
+---- Thread: [UPDATED] Roundcube Fetchmail Plugin v0.2 (/thread-11376.html)

Pages: 1 2


RE: [UPDATED] Roundcube Fetchmail Plugin v0.2 - wynni - 09-18-2010 03:07 AM

nein das perlskript (cronjob geplant) liest die daten aus mysql aus und schreibt sie in die /etc/fetchmailrc. lösche ich nun einen eintrag in der db holt sich das skript wieder die daten aus der db und überschreibt das file...

Code:
#!/usr/bin/perl
  
   use DBI;
  
   $db_database="roundcubedb";
   $db_username="roundcubeuser";
   $db_password="password";
   $text='#fetchmailrc
   #dieses Fetchmailrd File wird von /var/mail/fetchmail.pl erzeugt.
  
  defaults:
  timeout 300
  antispam -1
  batchlimit 100
  
$dbh = DBI->connect("DBI:mysql:$db_database", $db_username,   $db_password) or die "Database connection error: $DBI::errstr\n";
  
  $sth = $dbh->prepare("SELECT mailget_id,userhere,remoteserver,remoteuser,remotepass,type,options,active FROM virtual_fetchmail WHERE active='y' ORDER BY remoteserver ASC");
  $sth->execute;
  while(my ($mailget_id,$userhere,$remoteserver,$remoteuser,$remotepass,$type,$options,$act​ive) = $sth->fetchrow_array()) {
          $text.="\npoll $remoteserver with proto $type\n";
          if ( $options eq 'n' ) { $keep='keep'; } else { $keep=''; }
          $text.="\tuser \"$remoteuser\" there with password \"$remotepass\" is \"$userhere\" here $keep\n";
  }
  
  $dbh->disconnect();
  open(DA, ">/etc/fetchmailrc") or die "Can't Open File.";
  print DA $text;
  close(DA);

wynni


P.S. bin auf das plugin gespannt....


RE: [UPDATED] Roundcube Fetchmail Plugin v0.2 - sKaoS - 09-19-2010 01:42 AM

Moin, es gibt einen Fehler im script.

Sofern man seine externe Mailserver einträgt mittels Roundcube GUI wird in der Datenbank ein "active = 1" eingetragen. Jedoch schaut fetchmail.pl nach einem "active = y" und somit macht das perl script nichts Wink

Außerdem muss
if ( $options eq 'n' ) { $keep='keep'; } else { $keep=''; }
in
if ( $options eq '0' ) { $keep='keep'; } else { $keep=''; }

geändert werden...


RE: [UPDATED] Roundcube Fetchmail Plugin v0.2 - flames - 09-20-2010 12:08 AM

ups, danke für info, werd gleich mal korrigieren.

edit: korrigierte version angehängt. danke sKaoS.


RE: [UPDATED] Roundcube Fetchmail Plugin v0.2 - flames - 01-22-2011 12:34 PM

so, da ich im an einem anderen wichtigen projekt beschäftigt bin, und nicht weiss was ich wieder zeit habe an diesem plugin zu erbeiten, habe ich es auf github freigegeben. wer mag kann sich damit beschäftigen. ich werde auf jeden fall dran weiter machen sobald mal wieder freizeit da ist. (ich mag git und github deswegen da und nicht wo anders)

here you go: https://github.com/flames/RCFetchmail