#!/usr/bin/perl
#
# mkdirs
#
# Creates the appropriate OS_Architecture directories

$rdb_dir = 'data/r_databases';
$lantrip = 'lantrip.pl';
$var     = '@os_list';

open(LT, $lantrip) || die "Can't open $lantrip for reading!";
my @lt = <LT>;
close(LT);

for (my $i = 0; $i < @lt; $i++) {
	if ($lt[$i] =~ /$var/) {
		for (my $c = $i; $c < @lt; $c++) {
			$dirs .= $lt[$c];
			last if ($lt[$c] =~ /;/);
		}
		
		last;
	}
}

foreach $d (split(/,/, $dirs)) {
	$d =~ s/^.*?'|'.*$//g;
	`mkdir $rdb_dir/$d` if (! -d "$d");
}
