mirroring/*, jobs/gc.sh: daemons/*
[girocco/radio.git] / shlib.sh
blobe1e46f0fff0fb93bd4dd52628e3190fa3c7ed06e
1 #!/bin/bash
4 # Import all the variables from Girocco::Config to the local environment,
5 # prefixing them with 'cfg_'. E.g. $cfg_admin is admin's mail address now.
6 __girocco_conf="$GIROCCO_CONF"
7 [ -n "$__girocco_conf" ] || __girocco_conf="Girocco::Config"
8 [ -z "$basedir" ] || __girocco_extrainc="-I$basedir"
9 eval $(perl -I@basedir@ $__girocco_extrainc -M$__girocco_conf -le \
10 'foreach (keys %Girocco::Config::) {
11 my $val = ${$Girocco::Config::{$_}}; $val ||= "";
12 print "cfg_$_=\"$val\"";
13 }')
16 git() { "$cfg_git_bin" "$@"; }
19 # bang CMD... will execute the command with well-defined failure mode;
20 # set bang_action to string of the failed action ('clone', 'update', ...);
21 # pre-set bang_once=1 to make sure jobs banging on a repo repeatedly will
22 # not spam the owner; re-define the bang_trap() function to do custom
23 # cleanup before bailing out
24 bang() {
25 if "$@" >>"$bang_log" 2>&1; then
26 # All right. Cool.
27 return;
29 errcode="$?"
30 if ! [ -e .banged ]; then
32 echo "$* failed with error code $errcode"
33 [ ! -n "$bang_once" ] || echo "you will not receive any more notifications until recovery"
34 echo "Log follows:"
35 cat "$bang_log"
36 } | mail -s "[$cfg_name] $proj $bang_action failed" "$mail,$cfg_admin"
38 touch .banged
39 bang_trap
40 exit 1
43 # Default bang settings:
44 bang_setup() {
45 bang_action="lame_programmer"
46 bang_once=
47 bang_trap() { :; }
48 bang_log="$(mktemp -t repomgr-XXXXXX)"
49 trap "rm \"\$bang_log\"" EXIT
53 # Progress report - if show_progress is set, shows the given message.
54 progress() {
55 [ ! -n "$show_progress" ] || echo "$@"
59 # List all Git repositories, with given prefix if specified, one-per-line
60 get_repo_list() {
61 if [ -n "$1" ]; then
62 cut -d : -f 1 | grep "^$1"
63 else
64 cut -d : -f 1