#1 Le 28/01/2014, à 19:51
- sebh79
installation atelier photo cewe
bonjour
je voudrais installer le logiciel cewe depuis le site de la fnac (ou de leclerc) mais quand je télécharge les fichiers, les 2 documents que j'obtiens sont instal.pl et eula.txt. après extraction, j'ai lancé instal.pl, ce qui m'a ouvert un fichier gedit mais je ne sais pas commment faire pour installer le logiciel.
merci pour votre aide
sébastien
Hors ligne
#2 Le 28/01/2014, à 20:07
- Compte supprimé
Re : installation atelier photo cewe
Bonjour,
Tu es certainement dans ce cas, même si ce n'est pas le même logiciel.
http://forum.ubuntu-fr.org/viewtopic.php?pid=4004910
#3 Le 28/01/2014, à 20:30
- sebh79
Re : installation atelier photo cewe
ben peut être mais je ne comprends rien de ce qui est raconté. j'ai téléchargé "setup atelier photo fnac.tgz", j'ai ce fichier sur mon bureau, j'ai extrait le contenu, j'ai lancé le fichier install.pl et j'ai juste un fichier gedit qui s'ouvre avec plein de texte (à la fin du message) dans l'onglet permission du fichier, la case est bien cochée.
merci
sébastien
#! /usr/bin/perl -w
######################################################################################################################
#
# Linux Installations Script
#
# $Id: install-linux.pl 132269 2012-11-26 13:13:10Z dfrohn $
#
######################################################################################################################
use strict;
use File::Path;
use File::Basename;
use File::Copy;
use Getopt::Long;
######################################################################################################################
# Einige Konfigurationskonstanten
######################################################################################################################
my $FILE_EULA = 'EULA.txt';
my $DOWNLOAD_SERVER = "http://dls.photoprintit.com";
my $KEYACCID = '8463';
my $CLIENTID = '38';
my $HPS_VER = '5.0.6';
my $VENDOR_NAME = 'photomoinscher 5.0';
my $APPLICATION_NAME = 'Mon Univers Photomoinscher 5.0';
my $INSTALL_DIR_DEFAULT = 'Mon Univers Photomoinscher 5.0';
my $HAS_PHOTOFUN = 'false';
my $HAS_CANVAS = 'false';
my $HAS_POSTER = 'false';
my $HAS_PREMIUMFOTO = 'false';
my $HAS_BUDGETFOTO = 'false';
my $HAS_CALENDARS = 'false';
my $HAS_FOTOBOOKS = 'false';
my $HAS_THEME_DESIGN = 'true';
my $HAS_THEME_DMBABY = 'false';
my $HAS_THEME_ALB = 'true';
my $PROGRAM_NAME_FOTOSHOW = 'Galerie photo CEWE';
######################################################################################################################
# Einige Konstanten
######################################################################################################################
my $MIME_TYPE = 'application/x-hps-mcf';
my $APP_ICON_FILE_NAME = 'cewe-hps-500';
my $DESKTOP_ICON_PATH = '/Resources/keyaccount/32.ico';
my $SERVICES_XML_PATH = '/Resources/services.xml';
my $AFFILIATE_ID = '';
######################################################################################################################
# Texte
######################################################################################################################
my @TRANSLATABLE;
my @TRANSLATABLE_ERRORS;
$TRANSLATABLE[0] = "oui";
$TRANSLATABLE[1] = "o";
$TRANSLATABLE[2] = "non";
$TRANSLATABLE[3] = "n";
$TRANSLATABLE[4] = "Le Script suivant installera l'application '\033[1m%1\$s\033[0m' sur votre ordinateur, laissez vous guider par l\'assistant.\n\n\n";
$TRANSLATABLE[5] = "Veuillez lire soigneusement la licence EULA (End User License Agreement). Ensuite, vous devez l\'accepter.\n\tDans l\'EULA, vous pouvez vous diriger avec les flèches. Avec la touche '\033[1mq\033[0m' quitter.\n\tContinuez avec <CR>.";
$TRANSLATABLE[6] = "\tAcceptez-vous la licence d\'utilisation EULA? [%1\$s/\033[1m%2\$s\033[0m] ";
$TRANSLATABLE[7] = "\033[0m\033[1m'%1\$s'\033[0m Vous n'\avez pas accepté la licence d'\utilisation l'\application ne sera donc pas installé.\n\n\n";
$TRANSLATABLE[8] = "Où doit être installé le '\033[1m%1\$s\033[0m' ? [\033[1m%2\$s\033[0m] ";
$TRANSLATABLE[9] = "\tVoulez-vous continuer l'installation et télécharger les données nécessaires via internet? [\033[1m%1\$s\033[0m/%2\$s] ";
$TRANSLATABLE[10] = "\tTéléchargement: '%1\$s'\n";
$TRANSLATABLE[11] = "Les fichiers nécessaires pour l'installation sont maintenant en cours d'extraction.\n";
$TRANSLATABLE[12] = "\nFélicitations!\nVous avez installé avec succès le \033[1m'%1\$s'\033[0m sur votre ordinateur.\nPour lancer le logiciel exécutez l'application suivanteZ '%2\$s'.\n\nÀ vous de jouer!\n";
$TRANSLATABLE[13] = "Voulez vous à nouveau essayer de télécharger ce fichier? [%1\$s/\033[1m%2\$s\033[0m] ";
$TRANSLATABLE[14] = "\t %1\$-18s %2\$20s %3\$9s (%4\$5s)\n";
$TRANSLATABLE[15] = "\tIl reste encore %1\$.2fMB à télecharger via internet.\n";
$TRANSLATABLE[16] = "Pour que l'installation soit complète, des paquets doivent être encore télécharger via internet.\n";
$TRANSLATABLE[17] = "Les paquets d'installation téléchargés ne seront pas effacés vous les retrouverez dans le repertoire d'installation.";
$TRANSLATABLE[18] = "Les paquets d'installation téléchargés ne seront pas effacés après l'installation et seront copiés vers %1\$s avec le script d'installation.";
$TRANSLATABLE[19] = "Ce répertoire spécifíé n'existe pas. Doit il être créer? [\033[1m%1\$s\033[0m/%2\$s] ";
$TRANSLATABLE[20] = "Options de ligne de commande:\n -h; --help\n -i; --installDir=<DIR>\tLe répertoire dans le '%1\$s' doit être installer.\n -k; --keepPackages\t\tLes paquets téléchargés ne seront pas effacés et peuvent être utiliser pour une autre installation.\n -w; --workingDir=<DIR>\tLes fichiers temporaires peuvent être stocké dans un répertoire temporaire.\n -v; --verbose\t\tDonne des informations sur le téléchargement.\n\nLe skript va chercher dans le répertoire actuel les paquets d'installation nécéssaires. Si les paquets ne sont pas trouvés là\nso ils seront téléchargés via internet\nLes fichiers temporaires dans l'actuel répertoire ou avec --workingDir seront enregistrés. En raison, des autorisations manquantes, il serait impossible de sauvegardé les fichiers temporaires vers /tmp.\n";
$TRANSLATABLE_ERRORS[0] = "Pour les options de ligne de commande '--installDir' et '--workingDir' il est absolument nécéssaire de préciser un répertoire!\n";
$TRANSLATABLE_ERRORS[1] = "Pour une mise à jour l'indication du répertoire d'installation avec '--installDir' doit être absolument préciser!\n";
$TRANSLATABLE_ERRORS[2] = "Ce dossier '%1\$s' n'existe pas!\n";
$TRANSLATABLE_ERRORS[3] = "Ce dossier n'a pas pu être déterminé !\n";
$TRANSLATABLE_ERRORS[4] = "Une exécution correcte de ce skript nécessite ce programme '%1\$s' !\n";
$TRANSLATABLE_ERRORS[5] = "Le fichier '%1\$s' ne peut être trouver!\n";
$TRANSLATABLE_ERRORS[6] = "\tVous n'avez pas accepté la licence d'utilisation EULA !\n\t%1\$s";
$TRANSLATABLE_ERRORS[7] = "Dans le répertoire spécifié il est impossible de créer des liens symboliques. Ceci est néanmoins nécessaire pour l'installation de '%1\$s' !\n";
$TRANSLATABLE_ERRORS[8] = "Le téléchargement du fichier '%1\$s' à échoué!\n";
$TRANSLATABLE_ERRORS[9] = "Le fichier '%1\$s'ne peut pas être ouvert!\n";
$TRANSLATABLE_ERRORS[10] = "La Plate-form n'a pas pu être déterminer! 'uname -m' retourne 'i686' encore 'x86_64' mais aussi '%1\$s'.\n";
$TRANSLATABLE_ERRORS[11] = "Le fichier '%1\$s' n'a pas pu être téléchargé!\n";
$TRANSLATABLE_ERRORS[12] = "Le fichier '%1\$s' n'a pas pu être crée.\n";
$TRANSLATABLE_ERRORS[13] = "Le fichier '%1\$s' ne peut pas être dézippé!\n";
$TRANSLATABLE_ERRORS[14] = "Le fichier '%1\$s' n'a pas pu être copié vers le '%2\$s'!\n";
$TRANSLATABLE_ERRORS[15] = "La somme de contrôle de fichiers téléchargés '%1\$s' n'est pas correct!\n";
$TRANSLATABLE_ERRORS[16] = "Le téléchargement du fichier'%1\$s'a échoué selon les caractéristiques '%2\$s' !\n";
$TRANSLATABLE_ERRORS[17] = "Les paquets nécéssaires n'ont pas pu être déterminé !\n";
my @ANSWER_YES_LIST = ($TRANSLATABLE[0], $TRANSLATABLE[1]);
my @ANSWER_NO_LIST = ($TRANSLATABLE[2], $TRANSLATABLE[3]);
######################################################################################################################
# AB HIER SOLLTE NICHTS MEHR GEAENDERT WERDEN
######################################################################################################################
my $INSTALL_DIR_DEF = "$VENDOR_NAME/$INSTALL_DIR_DEFAULT";
my $INDEX_FILE_PATH_ON_SERVER = "/download/Data/$KEYACCID/hps/$CLIENTID-index-$HPS_VER.txt";
my $LOG_FILE_DIR = '.log';
my @REQUIRED_PROGRAMMS = ("unzip", "md5sum", "less", "wget", "uname");
my $DESKTOP_FILE_FORMAT = "[Desktop Entry]\n".
"Version=1.0\n".
"Encoding=UTF-8\n".
"Name=$APPLICATION_NAME\n".
"Name[de]=$APPLICATION_NAME\n".
"Exec=\"%s/$APPLICATION_NAME\"\n".
"Path=%s\n".
"StartupNotify=true\n".
"Terminal=false\n".
"Type=Application\n".
"Icon=$APP_ICON_FILE_NAME\n".
"Categories=Graphics;\n".
"MimeType=$MIME_TYPE\n";
my $MIME_TYPE_FILE_FORMAT = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n".
"<mime-info xmlns='http://www.freedesktop.org/standards/shared-mime-info'>\n".
"<mime-type type=\"%s\">\n".
"<comment>%s</comment>\n".
"<glob pattern=\"*.mcf\"/>\n".
"</mime-type>\n".
"</mime-info>";
my $SERVICES_XML_FORMAT = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>".
"<services>".
"<service name=\"a\">t856EvnDTL56xD5fHQnWrzqVk6Xj3we4xGYHfShPmkqXtCzbI21eqJ57eIHVViAg</service>".
"<service name=\"b\">SNCxjcl5y86nasXrdmtwTWWbBmFs3j21rZOVvoZT9HleOfGJR7FGgZiXsS623ctV</service>".
"<service name=\"c\">7iIwPfB9c6TIRuf9SPd7I1j25Pex9atTL9TDepMD6nkAyDliZhvIlJOC2tm9pcyQ</service>".
"<service name=\"d\">%s</service>".
"<service name=\"e\">EQBuKJf7pzVIbNXzz19PlwkVpERC5KfsWJbG4cazpn3PFC5Rtz4O3V87KcWfMgxK</service>".
"<service name=\"f\">8ksOkroMJFn1Es3zVJyzxJggNaXiMuLKBfPLBtCyek1bZBcTy29gaU7nm75ZYIxz</service>".
"<service name=\"g\">xHuXMWCLmtrwNIBvqVB9BAyPjNpEa9gNuybXU51bKsryDqc2UJxSQXM8yIhbIarq</service>".
"<service name=\"h\">sKTtqevc5EdBSwi3bZkngwl4NSolB8vFc7kPWeAEB4Y1ySgUIgcjJGxKlOll8c8e</service>".
"</services>\n";
my $DOWNLOAD_START_URL="http://dls.photoprintit.com/api/feedback/$KEYACCID/hps/<update>downloadstart.$AFFILIATE_ID/linux";
my $DOWNLOAD_COMPLETE_URL="http://dls.photoprintit.com/api/feedback/$KEYACCID/hps/<update>downloadcomplete.$AFFILIATE_ID/linux";
my $INSTALLATION_COMPLETE_URL="http://dls.photoprintit.com/api/feedback/$KEYACCID/hps/<update>installationcomplete.$AFFILIATE_ID/linux";
######################################################################################################################
# Variablen
######################################################################################################################
my $indexContent; # Enthält den Inhalt der Index-Datei
my @filesToDownload; # Enthält die Dateinamen die heruntergeladen werden müssen
my @downloadedFiles; # Enthält die Dateinamen der heruntergeladenen Dateien
my @filesToRemove; # Enthält die Dateinamen der Dateien die am Ende des Scriptes gelöscht werden müssen.
my $fileName; # Enthält den Namen der aktuell zu bearbeitenden Datei
my $update;
my $upgrade;
my $installDir = "";
my $sourceDir = "";
my $changeInstallDir = 1;
my $verbose;
my $keepPackages = 0;
my $workingDir = "";
######################################################################################################################
# Zeige einen kleinen Hilfetext an
######################################################################################################################
sub showHelp {
printf ($TRANSLATABLE[4], $APPLICATION_NAME);
printf ($TRANSLATABLE[20], $APPLICATION_NAME);
exit(0);
}
######################################################################################################################
# Parse Kommandozeilen Parameter
######################################################################################################################
sub getOptions {
$update = 0;
$upgrade = 0;
$verbose = 0;
$installDir = "";
$workingDir = "";
my $showHelp = 0;
GetOptions("installdir=s" => \$installDir,
"update" => \$update,
"upgrade" => \$upgrade,
"verbose" => \$verbose,
"help" => \$showHelp,
"keepPackages" => \$keepPackages,
"workingdir=s" => \$workingDir) || abort($TRANSLATABLE_ERRORS[0]);
if($showHelp == 1) {
showHelp();
}
if($upgrade == 1) {
$update = 1;
}
if($update == 1
&& $installDir eq "") {
abort($TRANSLATABLE_ERRORS[1]);
}
if($installDir ne "") {
$changeInstallDir=0;
}
}
######################################################################################################################
# Prüft das Arbeitsverzeichnis
######################################################################################################################
sub checkWorkingDir {
my $testFileName = "test";
my $testFilePath = $testFileName;
if($workingDir ne "") {
if(!opendir(DIR, $workingDir)) {
abort($TRANSLATABLE_ERRORS[2], $workingDir);
} else {
closedir(DIR);
}
$testFilePath = $workingDir."/".$testFileName;
}
if(!open(TEST_FILE, ">", $testFilePath)) {
$workingDir = "/tmp";
$testFilePath = $workingDir."/".$testFileName;
if(!open(TEST_FILE, ">", $testFilePath)) {
abort($TRANSLATABLE_ERRORS[3]);
} else {
close(TEST_FILE);
unlink($testFilePath);
}
} else {
close(TEST_FILE);
unlink($testFilePath);
}
}
######################################################################################################################
# Prüfe ob benötigte Programme da sind
######################################################################################################################
sub checkProgramms {
foreach (@REQUIRED_PROGRAMMS) {
my $status = system("which $_ > /dev/null 2>&1");
if($status != 0) {
abort($TRANSLATABLE_ERRORS[4], $_);
}
}
}
######################################################################################################################
# Zeigt die EULA an
######################################################################################################################
sub showEula {
if($FILE_EULA ne "" && $update == 0) {
if(!open(EULA, "<", $FILE_EULA)) {
abort($TRANSLATABLE_ERRORS[5], $FILE_EULA);
}
close EULA;
printf($TRANSLATABLE[5]);
my $answer = <STDIN>;
system("less $FILE_EULA");
printf($TRANSLATABLE[6], $TRANSLATABLE[0], uc($TRANSLATABLE[2]));
chomp($answer = <STDIN>);
$answer=lc($answer);
my $found = 0;
foreach(@ANSWER_YES_LIST) {
if($answer eq $_) {
$found = 1;
last;
}
}
if($found == 0) {
abort($TRANSLATABLE_ERRORS[6], sprintf($TRANSLATABLE[7], $APPLICATION_NAME));
}
}
}
######################################################################################################################
# Installationsverzeichniss erfragen
######################################################################################################################
sub getInstallDir {
if($update == 0 && $changeInstallDir == 1) {
while(1) {
if($> == 0) {
# Root User
$installDir = "/opt/".$INSTALL_DIR_DEF;
} else {
# Normaler Benutzer
$installDir = $ENV{"HOME"}."/".$INSTALL_DIR_DEF;
}
printf($TRANSLATABLE[8], $APPLICATION_NAME, $installDir);
my $answer = <STDIN>;
chomp($answer);
if($answer ne "") {
$installDir = $answer;
}
# vorne und hinten Leerzeichen abschneiden
$installDir =~ s/^\s+//;
$installDir =~ s/\s+$//;
# Jetzt ersetzen wir noch die Tilde durch das Home-Verzeichnis
$installDir =~ s/^~/$ENV{"HOME"}/;
# einen relativen Pfad um den aktuellen Pfad erweitern
if($installDir =~ m/^[^\/]/) {
$installDir = $ENV{"PWD"}."/".$installDir;
}
my $dirCreated = 0;
if(! -e $installDir) {
printf($TRANSLATABLE[19], uc($TRANSLATABLE[0]), $TRANSLATABLE[2]);
my $createAnswer = <STDIN>;
chomp($createAnswer);
$createAnswer=lc($createAnswer);
my $found = 1;
foreach(@ANSWER_NO_LIST) {
if($createAnswer eq $_) {
$found = 0;
last;
}
}
if($found == 1) {
# Installationsverzeichniss anlegen
eval { mkpath($installDir."/".$LOG_FILE_DIR) };
$dirCreated = 1;
if($@) {
printf(red($TRANSLATABLE_ERRORS[12]), $installDir);
next;
}
} else {
next;
}
}
my $symlinkTestFile = $installDir."/symlinks_possible";
my $symlinks_possible = symlink($symlinkTestFile, $symlinkTestFile);
if($symlinks_possible) {
unlink $symlinkTestFile;
last;
} else {
if($dirCreated == 1) {
rmtree($installDir);
}
abort($TRANSLATABLE_ERRORS[7], $APPLICATION_NAME);
}
}
}
}
######################################################################################################################
# Holt die Index-Datei
######################################################################################################################
sub getIndexFile {
my $downloaded = 0;
my $answer = 1;
$fileName = basename($INDEX_FILE_PATH_ON_SERVER);
if(! -e $fileName
|| -s $fileName == 0) {
# Hole Indexdatei aus dem Netz.
# Wenn wir ein Arbeitsverzeichnis haben schreiben wir dahin.
if($workingDir ne "") {
$fileName = $workingDir."/".$fileName;
}
if($verbose == 0) {
$answer = system("wget -T 60 -t 1 -q $DOWNLOAD_SERVER$INDEX_FILE_PATH_ON_SERVER -O $fileName");
} else {
$answer = system("wget -T 60 -t 1 $DOWNLOAD_SERVER$INDEX_FILE_PATH_ON_SERVER -O $fileName");
}
if($answer != 0
|| -s $fileName == 0) {
unlink($fileName);
abort($TRANSLATABLE_ERRORS[8], $DOWNLOAD_SERVER.$INDEX_FILE_PATH_ON_SERVER);
}
$downloaded = 1;
}
if(!open(INDEX, "<", $fileName)) {
abort($TRANSLATABLE_ERRORS[9], $fileName);
} else {
while(<INDEX>) {
$indexContent.=$_;
}
close(INDEX);
if($downloaded == 1 && $keepPackages == 0) {
unlink($fileName);
}
}
}
######################################################################################################################
# Checkt Index-Datei und sucht die herunter zu ladenden Dateien zusammen
######################################################################################################################
sub checkIndexFile {
my $totalSize = 0;
my $packageString = "";
my $machineType = `uname -m`;
chomp($machineType);
if($machineType eq "i686") {
$machineType = "l";
} elsif($machineType eq "x86_64") {
$machineType = "l64";
} else {
abort($TRANSLATABLE_ERRORS[10], $machineType);
}
if(length($indexContent) == 0) {
abort($TRANSLATABLE_ERRORS[17]);
}
foreach (split(/[\r\n]+/, $indexContent)) {
chomp;
if(/^(.*);(.*);(.*);(.*)$/) {
my $filePath = $1;
my $required = $2;
my $what = $3;
my $system = $4;
if($system eq $machineType || $system eq "a") {
$fileName = basename($filePath);
if(! -e $installDir."/".$LOG_FILE_DIR."/".$fileName.".log") {
# Die Datei ist noch nicht installiert.
if( -e $fileName ) {
# Die Datei liegt lokal vor, also brauchen wir sie nicht herunter zu laden
push(@downloadedFiles, $fileName);
} else {
my $file2get;
if($filePath =~ m/^http:/) {
$file2get = $filePath;
} else {
$file2get = $DOWNLOAD_SERVER."/".$filePath;
}
# Die Datei muss aus dem Netz gezogen werden. Schreiben wir mal raus wie viel da herunter geladen werden muss.
my $spider = `export LANG=C;export LC_MESSAGES=C;wget --spider $file2get 2>&1`;
my ($size, $dummy, $mb, $mime) = $spider=~/Length:\s+([\d\.,]+)\s+(\(([\d\.,]+[MK]?)\))?\s*(\[.*\])/;
my $string = sprintf($TRANSLATABLE[14], $what, $mime, $size, $mb);
$packageString .= $string;
push(@filesToDownload, $_);
$size=~s/[\.,]//g;
$totalSize += $size;
}
}
}
}
}
if((scalar @filesToDownload) != 0) {
printf($TRANSLATABLE[16]);
printf($packageString);
printf($TRANSLATABLE[15], $totalSize/(1024*1024));
}
}
######################################################################################################################
# Roleback
######################################################################################################################
sub roleback {
my ($fileName) = @_;
$fileName =~ /^$CLIENTID-(.*)_.*$/;
my $packageName = $1;
if(opendir(LOG_FILE_DIR, $installDir."/".$LOG_FILE_DIR)) {
my @allFiles=readdir(LOG_FILE_DIR);
@allFiles=grep(!/^\./, @allFiles);
close(LOG_FILE_DIR);
foreach(@allFiles) {
$_ =~ /^$CLIENTID-(.*)_.*$/;
if($1 eq $packageName) {
removePackage($_);
}
}
}
}
######################################################################################################################
# Lösche Dateien aus einem Logfile und das Logfile selbst
######################################################################################################################
sub removePackage {
my ($logFile) = @_;
my @files;
my @dirs;
if(open(LOG_FILE, "<", $installDir."/".$LOG_FILE_DIR."/".$logFile)) {
while(<LOG_FILE>) {
if(/^\s*inflating:\s+(.*)/) {
my $file = $1;
$file =~ s/^\s+|\s+$//;
push(@files, $file);
}
if(/^\s*creating:\s+(.*)\s*$/) {
push(@dirs, $1);
}
}
close LOG_FILE;
}
# Füge das Logfile zur Liste der zu löschenden Dateien hinzu.
push(@files, $installDir."/".$LOG_FILE_DIR."/".$logFile);
unlink(@files);
@dirs = reverse @dirs;
foreach(@dirs) {
rmdir $_;
}
}
######################################################################################################################
# Lädt alle Dateien aus der Index-Datei herunter
######################################################################################################################
sub downloadFiles {
if((scalar @filesToDownload) != 0) {
if($update == 0) {
my $answer;
printf($TRANSLATABLE[9], uc($TRANSLATABLE[0]), $TRANSLATABLE[2]);
chomp($answer = <STDIN>);
$answer = lc($answer);
foreach(@ANSWER_NO_LIST) {
if($answer eq $_) {
exit 1;
last;
}
}
}
triggerCountPixel($DOWNLOAD_START_URL);
# Herunterladen der Dateien
foreach(@filesToDownload) {
chomp;
$_ =~ /^(.*);.*;(.*);.*$/;
my $filePath = $1;
my $what = $2;
my $error = 0;
my $retry = 1;
$fileName = basename($filePath);
if($workingDir ne "") {
$fileName = $workingDir."/".$fileName;
}
printf($TRANSLATABLE[10], $what);
while($retry == 1) {
my $result = 1;
my $file2get;
if( $filePath =~ m/^http:/) {
$file2get = $filePath;
} else {
$file2get = $DOWNLOAD_SERVER."/".$filePath;
}
if($verbose == 0) {
$result = system("wget -q $file2get -O $fileName");
} else {
$result = system("wget $file2get -O $fileName");
}
if($result == 0) {
# Extrahiere MD5 Summe
$fileName =~ /^.*_(.*).zip$/;
my $md5sum = $1;
# Berechne MD5 Summe der Datei
$result = `md5sum $fileName`;
$result =~ /^(\w*)\s+.*$/;
my $fileMd5sum = $1;
if($md5sum ne $fileMd5sum) {
printf(red($TRANSLATABLE_ERRORS[15]), $fileName);
$error = 1;
} else {
push(@downloadedFiles, $fileName);
push(@filesToRemove, $fileName);
$retry = 0;
}
} else {
printf(red($TRANSLATABLE_ERRORS[16]), $file2get, $fileName);
$error = 1;
}
if($update == 0 && $error == 1) {
my $answer;
printf($TRANSLATABLE[13], $TRANSLATABLE[0], uc($TRANSLATABLE[2]));
chomp($answer = <STDIN>);
$answer = lc($answer);
$retry = 0;
foreach(@ANSWER_YES_LIST) {
if($answer eq $_) {
$retry = 1;
$error = 0;
last;
}
}
} elsif($update == 1 && $error == 1) {
# Wir haben keine Konsole und können keine Eingabe entgegen nehmen.
# Deshalb brechen wir ab.
$retry = 0;
}
}
if($error == 1) {
unlink $fileName;
abort($TRANSLATABLE_ERRORS[11], $fileName);
}
}
triggerCountPixel($DOWNLOAD_COMPLETE_URL);
}
}
######################################################################################################################
# Prüfen und entpacken der Dateien
######################################################################################################################
sub unpackFiles {
if((scalar @downloadedFiles) != 0) {
printf($TRANSLATABLE[11]);
# Installationsverzeichniss anlegen
eval { mkpath($installDir."/".$LOG_FILE_DIR) };
if($@) {
abort($TRANSLATABLE_ERRORS[12], $installDir);
}
# Entpacken der Dateien
foreach (@downloadedFiles) {
$fileName = $_;
my $fileBaseName = basename($fileName);
# Hier können wir eine evtl. installierte Vorgängerversion löschen.
# Die md5 Summen aller Downloads stimmen, also sollten sich alle Pakete entpaken lassen
roleback($fileBaseName);
my $result = 0;
my @unzipReturn;
@unzipReturn = `unzip -o -d '$installDir' $fileName 2>&1`;
foreach(@unzipReturn) {
if(/^\s*error:/) {
$result = 1;
}
elsif(/cannot find/) {
$result = 1;
}
}
if(open(OUT, ">", $installDir."/".$LOG_FILE_DIR."/".$fileBaseName.".log")) {
print OUT @unzipReturn;
close(OUT);
}
if($result != 0) {
abort($TRANSLATABLE_ERRORS[13], $fileName);
}
}
}
}
######################################################################################################################
# Icons für Mimetyp und Application erzeugen
######################################################################################################################
sub createIcons {
my $mimeTypeFileName = $MIME_TYPE;
$mimeTypeFileName =~ tr:/:-:;
my @sizes = (16, 22, 24, 32, 48, 64, 128);
system("\"$installDir/IconExtractor\" \"$installDir$DESKTOP_ICON_PATH\" @sizes > /dev/null 2>&1");
foreach(@sizes) {
my $iconFileName = "cewe_".$_.".png";
system("xdg-icon-resource install --noupdate --theme hicolor --context apps --size $_ $iconFileName $APP_ICON_FILE_NAME");
system("xdg-icon-resource install --noupdate --theme hicolor --context mimetypes --size $_ $iconFileName $mimeTypeFileName");
unlink($iconFileName);
}
system("xdg-icon-resource forceupdate");
}
######################################################################################################################
# Informationen zum Mimetyp erzeugen.
######################################################################################################################
sub createMimeType()
{
my $mimeTypeFileName = $MIME_TYPE.'.xml';
$mimeTypeFileName =~ tr:/:-:;
# Wenn wir ein Arbeitsverzeichnis haben schreiben wir dahin.
if($workingDir ne "") {
$mimeTypeFileName = $workingDir."/".$mimeTypeFileName;
}
if(!open(MIME_TYPE_FILE, ">", "$mimeTypeFileName")) {
abort($TRANSLATABLE_ERRORS[9], $mimeTypeFileName);
} else {
printf(MIME_TYPE_FILE $MIME_TYPE_FILE_FORMAT, $MIME_TYPE, $APPLICATION_NAME);
close(MIME_TYPE_FILE);
system("xdg-mime install \"$mimeTypeFileName\"");
}
unlink($mimeTypeFileName);
}
######################################################################################################################
# Einträge im Startmenü erzeugen
######################################################################################################################
sub createDesktopShortcuts {
my $desktopFileName = $MIME_TYPE.".desktop";
$desktopFileName =~ tr:/:-:;
# Wenn wir ein Arbeitsverzeichnis haben schreiben wir dahin.
if($workingDir ne "") {
$desktopFileName = $workingDir."/".$desktopFileName;
}
if(!open(DESKTOP_FILE, ">", $desktopFileName)) {
abort($TRANSLATABLE_ERRORS[9], $desktopFileName);
} else {
printf(DESKTOP_FILE $DESKTOP_FILE_FORMAT, $installDir, $installDir, $installDir);
close(DESKTOP_FILE);
system("xdg-desktop-menu install --novendor \"$desktopFileName\"");
system("xdg-desktop-icon install --novendor \"$desktopFileName\"");
}
unlink($desktopFileName);
}
######################################################################################################################
# Aufräumen + Abschließende Arbeiten
######################################################################################################################
sub cleanup {
# Entferne Installationspakete
if($keepPackages == 0) {
unlink(@filesToRemove);
} else {
if($workingDir ne "") {
# Script und EULA auch dahin kopieren.
my @installerFiles;
push(@installerFiles, "install.pl");
push(@installerFiles, $FILE_EULA);
push(@installerFiles, basename($INDEX_FILE_PATH_ON_SERVER));
foreach(@installerFiles) {
if(!copy($_, $workingDir."/".$_)) {
printf($TRANSLATABLE_ERRORS[14], $_, $workingDir."/".$_);
}
}
printf($TRANSLATABLE[18], $workingDir);
} else {
printf($TRANSLATABLE[17]);
}
}
# Erzeuge Symlinks für Libs
if(opendir(INSTALL_DIR, $installDir)) {
chdir($installDir);
my @allFiles=sort{ $a cmp $b } readdir(INSTALL_DIR);
# Werfe alle Einträge mit einem Punkt am Anfang weg
@allFiles=grep(!/^\./, @allFiles);
my @libFiles=grep(/.+\.so\.\w*/, @allFiles);
foreach(@libFiles) {
my $fileName = $_;
$fileName =~ /(.+\.so)\.(.*)/;
my $baseFileName = $1;
my $version = $2;
my @v = split(/\./, $version);
unlink($baseFileName);
symlink($fileName, $baseFileName);
foreach(@v) {
$baseFileName.=".".$_;
if($baseFileName ne $fileName) {
unlink($baseFileName);
symlink($fileName, $baseFileName);
}
}
}
# Ändere Dateirechte
my @binarys;
push(@binarys, $APPLICATION_NAME);
push(@binarys, $PROGRAM_NAME_FOTOSHOW);
push(@binarys, "assistant");
push(@binarys, "facedetection");
push(@binarys, "IconExtractor");
chmod 0755, @binarys;
closedir(INSTALL_DIR);
}
if($AFFILIATE_ID ne '') {
if(open(SERVICESXML, ">", $installDir.$SERVICES_XML_PATH)) {
printf SERVICESXML $SERVICES_XML_FORMAT, $AFFILIATE_ID;
close(SERVICESXML);
}
}
}
######################################################################################################################
# Zählpixel URL aufrufen und die dabei heruntergeladene Datei löschen.
######################################################################################################################
sub triggerCountPixel {
my $pixelFile = "pixel";
if($upgrade == 1) {
$_[0] =~ s/<update>/genericupgrade/;
} elsif($update == 1) {
$_[0] =~ s/<update>/update/;
} else {
$_[0] =~ s/<update>//;
}
if($workingDir ne "") {
$pixelFile = $workingDir."/".$pixelFile;
}
system("wget -q $_[0] -O $pixelFile");
unlink $pixelFile
}
######################################################################################################################
# Meldung in rot.
######################################################################################################################
sub red {
my $message = $_[0];
my $retVal = sprintf("\033[31m%s\033[0m", $message);
return $retVal;
}
######################################################################################################################
# Fehlermeldung ausgeben und abbrechen
######################################################################################################################
sub abort {
my $message = shift(@_);
printf(red($message), @_);
exit 1;
}
######################################################################################################################
# Übersetzungen laden
######################################################################################################################
sub loadTranslations {
if(open(TRANSLATIONS, "<", "install-linux-translations.pl")) {
my $translationCode;
while(<TRANSLATIONS>) {
$translationCode.=$_;
}
close(TRANSLATIONS);
eval($translationCode);
@ANSWER_YES_LIST = ($TRANSLATABLE[0], $TRANSLATABLE[1]);
@ANSWER_NO_LIST = ($TRANSLATABLE[2], $TRANSLATABLE[3]);
}
}
######################################################################################################################
# MAIN
######################################################################################################################
# Erzwinge eine Leerung der Puffer nach jeder print()-Operation
$| = 1;
system("clear");
loadTranslations();
getOptions();
printf($TRANSLATABLE[4], $APPLICATION_NAME);
checkWorkingDir();
checkProgramms();
showEula();
getInstallDir();
getIndexFile();
checkIndexFile();
downloadFiles();
unpackFiles();
cleanup();
createIcons();
createMimeType();
createDesktopShortcuts();
triggerCountPixel($INSTALLATION_COMPLETE_URL);
printf($TRANSLATABLE[12], $APPLICATION_NAME, $installDir."/".$APPLICATION_NAME);
Hors ligne
#4 Le 28/01/2014, à 20:47
- Compte supprimé
Re : installation atelier photo cewe
Sinon vérifie si tu ne dois pas rendre le script executable (clic droit/propriétés/Permissions - il y a une case à cocher)
http://doc.ubuntu-fr.org/permissions
Dernière modification par Compte supprimé (Le 28/01/2014, à 20:48)
#5 Le 28/01/2014, à 21:32
- sebh79
Re : installation atelier photo cewe
c'est fait, la case est cochée.
Hors ligne
#6 Le 29/01/2014, à 09:22
- Compte supprimé
Re : installation atelier photo cewe
Après, je ne sais pas si perl est installé d'origine sur Ubuntu.
https://forum.ubuntu-fr.org/viewtopic.php?id=291281
Regarde la ligne de commande pour lancer le script.
Mais de toute façon, si c'est suite à un achat à la Fnac, le mieux est de leur demander.
Dernière modification par Compte supprimé (Le 29/01/2014, à 09:36)