Skip to content

Instantly share code, notes, and snippets.

View Vampire's full-sized avatar

Björn Kautler Vampire

View GitHub Profile
--- /usr/bin/happ-backup 2012-09-26 17:44:20.000000000 +0000
+++ happ-backup 2012-12-19 14:14:21.055611292 +0000
@@ -1,18 +1,25 @@
#!/usr/bin/perl -w
-# happ-backup [user|project] [db|file] [app]
+# happ-backup [-q] (user|project) (db|file) <app>
use JSON;
my ($user) = getpwuid($<);
my ($group) = getgrgid($();
+my $quiet = 0;