#!/usr/bin/perl
# $Id: VolumeCheck 22429 2008-12-17 14:03:51Z sjur $

=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;

# 1) check if Office 2004 is on this volume

my @office;
$office[0] = "/Applications/Microsoft Office 2004";
$office[1] = "/Applications/Microsoft Office 10";

my $out = 48; # error code
for my $o (@office) { $out = 0 if -e $ARGV[0].$o }
exit $out if $out;

# 2) check for profing tools directory

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"    
    );


$out = 49; # error code
for my $d (@dirs) { $out = 0 if -e $ARGV[0].$d } 
exit $out if $out;

# 3) ok

exit $out;