46 lines
866 B
Perl
46 lines
866 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
#
|
||
|
|
# Checks the /tmp/pgen/req-<version>-<start>-<count> files at regular
|
||
|
|
# intervals and generate planets accordingly.
|
||
|
|
#
|
||
|
|
# Syntax : ./planetmaker.pl
|
||
|
|
#
|
||
|
|
|
||
|
|
$outDir = "/mnt/planets";
|
||
|
|
|
||
|
|
close(STDIN);
|
||
|
|
close(STDERR);
|
||
|
|
close(STDOUT);
|
||
|
|
if (fork())
|
||
|
|
{
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
chdir("/opt/planetgen");
|
||
|
|
mkdir("/tmp/pgen", 01777) if (! -d "/tmp/pgen");
|
||
|
|
while (1)
|
||
|
|
{
|
||
|
|
chop($find = `find /tmp/pgen/ -name 'req-*-*-*'`);
|
||
|
|
if ($find ne "")
|
||
|
|
{
|
||
|
|
@list = split /\n/, $find;
|
||
|
|
|
||
|
|
foreach my $name (@list)
|
||
|
|
{
|
||
|
|
unlink($name);
|
||
|
|
my ($junk,$version,$first,$count) = split /-/, $name;
|
||
|
|
|
||
|
|
for ($i=$first;$i<$first+$count;$i++)
|
||
|
|
{
|
||
|
|
my $fn = "/tmp/pgen/out.pov";
|
||
|
|
`./generate.pl $fn`;
|
||
|
|
`povray +W80 +H80 +O$outDir/$version/l/$i.png -D -V $fn >/dev/null 2>&1`;
|
||
|
|
`povray +W30 +H30 +O$outDir/$version/s/$i.png -D -V $fn >/dev/null 2>&1`;
|
||
|
|
unlink($fn);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
sleep(60);
|
||
|
|
}
|