| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl -w
=head1 NAME
dq-submit - submit tasks to an IPC::DirQueue queue
=head1 SYNOPSIS
B<dq-submit> --dir I<qdirectory> I<file ...>
=head1 DESCRIPTION
B<dq-submit> will submit tasks to an C<IPC::DirQueue> directory.
Multiple task files can be specified on the command-line.
=head1 SEE ALSO
IPC::DirQueue(3)
dq-deque(1)
dq-list(1)
dq-server(1)
dq-submit(1)
=cut
use strict;
use lib 'lib';
use IPC::DirQueue;
use Getopt::Long;
sub usage {
die "usage: dq-submit --dir qdirectory file [file2 ...]\n";
}
our $dir;
GetOptions(
'dir=s' => \$dir
) or usage();
$dir or usage();
my $dq = IPC::DirQueue->new({ dir => $dir });
foreach my $file (@ARGV) {
$dq->enqueue_file($file);
print "enqueued: $file\n";
}