# Affa archives
{
# vim: syntax=perl

use esmith::ConfigDB;
use esmith::DB::db;

my $affa = esmith::DB::db->open("/home/e-smith/db/affa");
my %all = $affa->as_hash();

my $config = esmith::ConfigDB->open or die "Error: Couldn't open config db.";
my $LocalIP=$config->get("LocalIP")->value;
my $SystemName=$config->get("SystemName")->value;
my $DomainName=$config->get("DomainName")->value;
my $ServerBasename="AFFA.$SystemName.$DomainName-$LocalIP";

$OUT="\n";
foreach my $job( reverse sort keys %all )
	{
	next if $job eq $ServerBasename;
	my $v=$all{$job};
	next if (not defined $v->{'RootDir'}) or (($v->{'SambaShare'}||'') eq 'no');
	next if $v->{'type'} ne 'job';
	$OUT .= "[Affa-Job-$job]\n";
	$OUT .= "path = $v->{'RootDir'}/$job\n";
	$OUT .= "valid users = admin\n";
	$OUT .= "force user = root\n";
	$OUT .= "read only = yes\n";
	$OUT .= "writable = no\n";
	$OUT .= "veto files = /.AFFA-REPORT/\n";
	$OUT .= "\n";
	}
}
