Project

General

Profile

130 markw
#!/usr/bin/perl -w
use POSIX qw(strftime);

my @files;

push @files, glob("mcc216/build*/output_files/*.arg");
push @files, glob("mcc216/build*/output_files/*.sof");
push @files, glob("mcc216/build*/output_files/*.rbf");
push @files, glob("mcc216/build*/output_files/*.summary");
push @files, glob("mcc216/build*/output_files/*.rpt");

300 markw
push @files, glob("mcc216_5200/build*/output_files/*.arg");
push @files, glob("mcc216_5200/build*/output_files/*.sof");
push @files, glob("mcc216_5200/build*/output_files/*.rbf");
push @files, glob("mcc216_5200/build*/output_files/*.summary");
push @files, glob("mcc216_5200/build*/output_files/*.rpt");

199 markw
push @files, glob("mcctv/build*/output_files/*.arg");
push @files, glob("mcctv/build*/output_files/*.sof");
push @files, glob("mcctv/build*/output_files/*.rbf");
push @files, glob("mcctv/build*/output_files/*.summary");
push @files, glob("mcctv/build*/output_files/*.rpt");

300 markw
push @files, glob("mcctv_5200/build*/output_files/*.arg");
push @files, glob("mcctv_5200/build*/output_files/*.sof");
push @files, glob("mcctv_5200/build*/output_files/*.rbf");
push @files, glob("mcctv_5200/build*/output_files/*.summary");
push @files, glob("mcctv_5200/build*/output_files/*.rpt");

130 markw
push @files, glob("mist/build*/out/*.sof");
push @files, glob("mist/build*/out/*.rbf");
push @files, glob("mist/build*/out/*.summary");
push @files, glob("mist/build*/out/*.rpt");

199 markw
push @files, glob("mist_5200/build*/out/*.sof");
push @files, glob("mist_5200/build*/out/*.rbf");
push @files, glob("mist_5200/build*/out/*.summary");
push @files, glob("mist_5200/build*/out/*.rpt");

133 markw
push @files, glob("chameleon/build*/output_files/*.sof");
push @files, glob("chameleon/build*/output_files/*.rbf");
push @files, glob("chameleon/build*/output_files/*.summary");
push @files, glob("chameleon/build*/output_files/*.rpt");
130 markw
push @files, glob("de1/build*/output_files/*.sof");
300 markw
push @files, glob("de1/build*/output_files/*.pof");
130 markw
push @files, glob("de1/build*/output_files/*.summary");
push @files, glob("de1/build*/output_files/*.rpt");

199 markw
push @files, glob("de1_5200/build*/output_files/*.sof");
300 markw
push @files, glob("de1_5200/build*/output_files/*.pof");
199 markw
push @files, glob("de1_5200/build*/output_files/*.summary");
push @files, glob("de1_5200/build*/output_files/*.rpt");

311 markw
push @files, glob("sockit/build*/output_files/*.sof");
312 markw
push @files, glob("sockit/build*/output_files/*.rbf");
311 markw
push @files, glob("sockit/build*/output_files/*.summary");
push @files, glob("sockit/build*/output_files/*.rpt");
push @files, glob("sockit/SOCKIT.elf");
push @files, glob("sockit/type");
push @files, glob("sockit/reboot");

341 markw
push @files, glob("papilioduo/build*/*.bit");

372 markw
push @files, glob("aeon_lite/build*/*.bit");
376 markw
push @files, glob("aeon_lite/build*/*.bin");
372 markw
130 markw
push @files, glob("replay/sdcard/*.bin");
push @files, glob("replay/sdcard/*.ini");

mkdir "/var/www/html/autobuild/";
my $date = strftime("%Y%m%d",gmtime);
my $dir = "/var/www/html/autobuild/$date";
mkdir $dir;
open (LOG,">".$dir."/log") or die "Failed to open log";
foreach (@files)
{
my $creationtime = (stat($_))[9];
my $creation = strftime("%Y%m%dT%T",gmtime($creationtime));
print LOG "File:$_ Date:$creation\n";

/(.*)\/(.*)/;
my ($dir2,$file) = ($1,$2);
#print "DIR:$dir2 FILE:$file\n";
`mkdir -p $dir/$dir2`;

`cp -f $_ $dir/$dir2`;
}
close(LOG);
`cp -f instructions.txt $dir/`;
136 markw
`cp -f chameleon_setup.txt $dir/`;
130 markw