#!/usr/bin/perl
# Show a list of S3 buckets

require './virtual-server-lib.pl';
&ReadParse();
can_backup_buckets() || &error($text{'buckets_ecannot'});
($err, $warn) = &check_s3();

&ui_print_header(undef, $text{'buckets_title'}, "", "buckets");

print &ui_alert_box($err, 'danger') if ($err);
print &ui_alert_box($warn, 'warn') if ($warn);
if ($err) {
	&ui_print_footer("", $text{'index_return'});
	return;
	}

# Find all S3 accounts
@accounts = &list_all_s3_accounts();
if (!@accounts) {
	&ui_print_endpage($text{'buckets_eaccounts'});
	}

# Find all buckets
@buckets = ( );
@errs = ( );
foreach my $a (@accounts) {
	my $buckets = &s3_list_buckets(@$a);
	if (ref($buckets)) {
		foreach my $b (@$buckets) {
			$b->{'s3_account'} = $a;
			push(@buckets, $b);
			}
		}
	else {
		push(@errs, $buckets);
		}
	}

# Show them, if any
@links = ( "<a href='edit_bucket.cgi?new=1'>$text{'buckets_add'}</a>" );
if (@buckets) {
	print &ui_links_row(\@links);
	print &ui_columns_start([ $text{'buckets_name'},
				  $text{'buckets_account'},
				  $text{'buckets_created'} ]);
	foreach my $b (sort { $a->{'Name'} cmp $b->{'Name'} } @buckets) {
		my $a = $b->{'s3_account'};
		my $desc = $a->[3] ? $a->[3]->{'desc'} : $a->[0];
		print &ui_columns_row([
			"<a href='edit_bucket.cgi?name=".&urlize($b->{'Name'}).
			  "&account=".&urlize($b->{'s3_account'}->[0]).
			  "'>".&html_escape($b->{'Name'})."</a>",
			$desc,
			&make_date(&s3_parse_date($b->{'CreationDate'})),
			]);
		}
	print &ui_columns_end();
	}
elsif (@errs) {
	print "<b>",&text('buckets_errs', join(", ", @errs)),"</b><p>\n";
	}
else {
	print "<b>$text{'buckets_none'}</b><p>\n";
	}
print &ui_links_row(\@links);

&ui_print_footer("", $text{'index_return'});