#!/usr/bin/perl # $Id$ =head1 NAME InstallationCheck =head1 AUTHOR Jeroen Daanen 9 feb 2007 =head1 SYNOPSIS Check if system has Office and on which Volume =head1 DESCRIPTION Check if system has Office and on which Volume =head1 COPYRIGHT (c) 2006, Polderland Language & Speech Technology bv =head1 TODO =over =item - ?(pending task) =back =head1 CHANGES $Log$ Revision 1.1 2007/05/11 07:45:47 sjur Added most supporting files for the Mac installer package maker Revision 1.1 2007/02/09 10:10:01 jeroen adapted from other installation and added to repository =cut use strict; use integer; no utf8; use warnings; my @dirs = ( "/Applications/Microsoft Office 2004/Shared applications/Proofing tools", "/Applications/Microsoft Office 2004/Gedeelde toepassingen/Taalprogramma's", "/Applications/Microsoft Office 2004/Gemeinsame Anwendungen/Korrekturhilfen", "/Applications/Microsoft Office 2004/Aplicaciones compartidas/Herramientas de correccio\314\201n", "/Applications/Microsoft Office 2004/Applications partage\314\201es/Outils de ve\314\201rification", "/Applications/Microsoft Office 2004/Applicazioni condivise/Strumenti di correzione", "/Applications/Microsoft Office 2004/Delade program/Spra\314\212kverktyg", "/Applications/Microsoft Office 10/Shared applications/Proofing tools", "/Applications/Microsoft Office 10/Gedeelde toepassingen/Taalprogramma's", "/Applications/Microsoft Office 10/Gemeinsame Anwendungen/Korrekturhilfen", "/Applications/Microsoft Office 10/Aplicaciones compartidas/Herramientas de correccio\314\201n", "/Applications/Microsoft Office 10/Applications partage\314\201es/Outils de ve\314\201rification", "/Applications/Microsoft Office 10/Applicazioni condivise/Strumenti di correzione", "/Applications/Microsoft Office 10/Delade program/Spra\314\212kverktyg" ); if (-e $ARGV[0]."/Applications/Microsoft Office 2004" || -e $ARGV[0]."/Applications/Microsoft Office 10"){ for(@dirs){ if (-e $ARGV[0].$_){ exit 0; } } exit 49; } else { exit 48; }