- foreach my $agent ( qsearch( 'agent', { disabled => '' } ) ) {
- my $config = qsearchs( 'conf', { name => 'selfservice-bulk_ftp_dir',
- agentnum => $agent->agentnum,
- } )
- or next;
-
- my $session =
- FS::ClientAPI->dispatch( 'Agent/agent_login',
- { username => $agent->username,
- password => $agent->_password,
- }
- );
-
- nstore_fd( { _token => '_ftp_scan',
- dir => $config->value,
- session_id => $session->{session_id},
- },
- $writer
- );
- }