updater.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#! /usr/bin/perl -w

################################################################################
# Replacement updater script for AUR package
################################################################################
use strict;
use Getopt::Long;

my $installer = "";

GetOptions("installer=s" => \$installer);

die "\033[1;31mNo AUR package available for this update.\033[0m"
	unless $installer =~ /(OnlineFotoservice|Mein_CEWE_FOTOBUCH)/;

my $pkgName = $1 eq 'Mein_CEWE_FOTOBUCH' ? 'cewe-fotobuch' : 'cewe-fotoservice';

chdir('/tmp');
system("wget https://aur.archlinux.org/cgit/aur.git/snapshot/$pkgName.tar.gz -O $pkgName.tar.gz");
system("tar -xvf $pkgName.tar.gz");

chdir($pkgName);
system("mv '$installer' ./");
system('_UPDATING=1 makepkg --install --clean --skipchecksums');

print "\nSie können dieses Fenster jetzt schließen.\n";