On Tuesday 18 June 2002 5:08 pm, Tyler Longren wrote:
> Hello,
Hi,
>
> I have an smp machine that I want to run two instances of setiathome
> on. I have two s@h directories (/root/.setiathome and
> /root/.setiathome2). I wrote this to run both of them at the same time
> right from one script. If I use the -a flag to run both of them, it
> never moves on to start the setiathome in $setiathome2_dir.
>
Your problem is that you script will never return from the first time it
calls setiathome. You need to fork a new process to do that.
Two points to note
1) the '&' added to the backtick
2) never use your system as root. Even if you're the only user, create and
use another account. Only use 'root' for SysAdmin stuff. One day you WILL
regret it.
try something like (not tested)
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
getopts("12a",\my %options);
if (defined $options{1} || defined $options{a}) {
&startit('/root/.setiathome/');
}
if (defined $options{2} || defined $options{a}) {
&startit('/root/.setiathome2/');
}
sub startit {
my ($dir)=@_;
chdir ($dir);
`./setiathome -proxy 192.168.1.3:5517 &`;
}
> How can I make it so both s@h clients get started?
>
> ----Begin Code----
> #!/usr/bin/perl -w
> use strict;
> use Getopt::Std;
> getopts("12a", \my %options);
> sub usage {
> print "Usage: ./seti.pl [-1] [-2] [-a]
> -1 : Start the first directory of setiathome
> -2 : Start the second directory of setiathome
> -a : Start both setiathome clients\n\n";
> }
> my $setiathome1_dir = "/root/.setiathome/";
> my $setiathome2_dir = "/root/.setiathome2/";
> sub setiathome1 {
> `cd $setiathome1_dir; ./setiathome -proxy 192.168.1.3:5517`;
> }
>
> sub setiathome2 {
> `cd $setiathome2_dir; ./setiathome -proxy 192.168.1.3:5517`;
> }
>
> if (defined $options{1}) {
> setiathome1;
> exit;
> }
> elsif (defined $options{2}) {
> setiathome2;
> exit;
> }
> elsif (defined $options{a}) {
> setiathome1;
> setiathome2;
> exit;
> }
> else {
> usage;
> exit;
> }
> -----End Code----
>
> If a better explanation is desired, e-mail me directly.
>
> Thanks,
--
Gary Stainburn
This email does not contain private or confidential material as it
may be snooped on by interested government parties for unknown
and undisclosed purposes - Regulation of Investigatory Powers Act, 2000
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
