summaryrefslogtreecommitdiff
path: root/doc/tips/untrusted_git_push.mdwn
diff options
context:
space:
mode:
authorbremner <bremner@web>2009-08-08 17:19:07 -0400
committerJoey Hess <joey@kitenet.net>2009-08-08 17:19:07 -0400
commit3c1ebd20f84f1ec654105340a1d7c28dd3748557 (patch)
tree4cbef15208a5b5543562453b6ed880c522b5201f /doc/tips/untrusted_git_push.mdwn
parentgenerated by cgit v1.2.3 (git 2.46.0) at 2025-05-30 20:12:09 +0000 24" class="hl">sub getopt () { #{{{
  • eval q{use Getopt::Long};
  • error($@) if $@;
  • Getopt::Long::Configure('pass_through');
  • GetOptions("delete-bucket" => sub {
  • my $bucket=getbucket();
  • debug(gettext("deleting bucket.."));
  • my $resp = $bucket->list_all or die $bucket->err . ": " . $bucket->errstr;
  • foreach my $key (@{$resp->{keys}}) {
  • debug("\t".$key->{key});
  • $bucket->delete_key($key->{key}) or die $bucket->err . ": " . $bucket->errstr;
  • }
  • $bucket->delete_bucket or die $bucket->err . ": " . $bucket->errstr;
  • debug(gettext("done"));
  • exit(0);
  • });
  • } #}}}
  • sub checkconfig { #{{{
  • foreach my $field (qw{amazon_s3_key_id amazon_s3_key_file
  • amazon_s3_bucket}) {
  • if (! exists $config{$field} || ! defined $config{$field}) {