|
@@ -1,11 +1,11 @@
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
use DBI;
|
|
|
-use File::Temp qw/ mkstemp /;
|
|
|
use LockFile::Simple qw(lock trylock unlock);
|
|
|
use Data::Dumper qw(Dumper);
|
|
|
use IPC::Run 'run';
|
|
|
use String::Util 'trim';
|
|
|
+use File::Temp;
|
|
|
|
|
|
$DBNAME = '';
|
|
|
$DBUSER = '';
|
|
@@ -43,6 +43,13 @@ while ($row = $sth->fetchrow_arrayref()) {
|
|
|
|
|
|
if ($enc1 eq "TLS") { $enc1 = "--tls1"; } elsif ($enc1 eq "SSL") { $enc1 = "--ssl1"; } else { undef $enc1; }
|
|
|
|
|
|
+ my $template = $run_dir . '/imapsync.XXXXXXX';
|
|
|
+ my $passfile1 = File::Temp->new(TEMPLATE => $template);
|
|
|
+ my $passfile2 = File::Temp->new(TEMPLATE => $template);
|
|
|
+
|
|
|
+ print $passfile1 "$password1\n";
|
|
|
+ print $passfile2 trim($master_pass) . "\n";
|
|
|
+
|
|
|
run [ "/usr/local/bin/imapsync",
|
|
|
"--timeout1", "10",
|
|
|
"--tmpdir", "/tmp",
|
|
@@ -55,11 +62,11 @@ while ($row = $sth->fetchrow_arrayref()) {
|
|
|
(!defined($enc1) ? () : ($enc1)),
|
|
|
"--host1", $host1,
|
|
|
"--user1", $user1,
|
|
|
- "--password1", $password1,
|
|
|
+ "--passfile1", $passfile1->filename,
|
|
|
"--port1", $port1,
|
|
|
"--host2", "localhost",
|
|
|
"--user2", $user2 . '*' . trim($master_user),
|
|
|
- "--password2", trim($master_pass),
|
|
|
+ "--passfile2", $passfile2->filename,
|
|
|
'--no-modulesversion'], ">", \my $stdout;
|
|
|
|
|
|
$update = $dbh->prepare("UPDATE imapsync SET returned_text = ?, last_run = NOW() WHERE id = ?");
|