config/installcfunc.pl

   1 #!perl -w
   2 #
   3 # ***** BEGIN LICENSE BLOCK *****
   4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
   5 #
   6 # The contents of this file are subject to the Mozilla Public License Version
   7 # 1.1 (the "License"); you may not use this file except in compliance with
   8 # the License. You may obtain a copy of the License at
   9 # http://www.mozilla.org/MPL/
  10 #
  11 # Software distributed under the License is distributed on an "AS IS" basis,
  12 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  13 # for the specific language governing rights and limitations under the
  14 # License.
  15 #
  16 # The Original Code is Mozilla Communicator client code, released
  17 # March 31, 1998.
  18 #
  19 # The Initial Developer of the Original Code is
  20 # Netscape Communications Corporation.
  21 # Portions created by the Initial Developer are Copyright (C) 1998-1999
  22 # the Initial Developer. All Rights Reserved.
  23 #
  24 # Contributor(s):
  25 #   Sean Su <ssu@netscape.com>
  26 #
  27 # Alternatively, the contents of this file may be used under the terms of
  28 # either of the GNU General Public License Version 2 or later (the "GPL"),
  29 # or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  30 # in which case the provisions of the GPL or the LGPL are applicable instead
  31 # of those above. If you wish to allow use of your version of this file only
  32 # under the terms of either the GPL or the LGPL, and not to allow others to
  33 # use your version of this file under the terms of the MPL, indicate your
  34 # decision by deleting the provisions above and replace them with the notice
  35 # and other provisions required by the GPL or the LGPL. If you do not delete
  36 # the provisions above, a recipient may use your version of this file under
  37 # the terms of any one of the MPL, the GPL or the LGPL.
  38 #
  39 # ***** END LICENSE BLOCK *****
  40
  41 use Cwd;
  42 return(1);
  43
  44 sub InstallChrome()
  45 {
  46   # inOsType     - type of OS being run under
  47   # inType       - type of reg file to create (jar or resource)
  48   # inTargetPath - path to where the bin\chrome dir
  49   ($inOsType, $inType, $inTargetPath) = @_;
  50   my($mOutFilenameTmp) = "installed-chrome_tmp.txt";
  51   my($mFinalFilename)  = "installed-chrome.txt";
  52
  53   if($inOsType =~ /win32/i)
  54   {
  55     $gPathDelimiter="\\";
  56   }
  57   elsif($inOsType =~ /mac/i)
  58   {
  59     $gPathDelimiter=":";
  60   }
  61   elsif($inOsType =~ /unix/i)
  62   {
  63     $gPathDelimiter="/";
  64   }
  65
  66   if($inOsType =~ /win32/i)
  67   {
  68     # Convert all '/' to '\\' or else win32 will have problems
  69     $inTargetPath =~ s/\//\\/g;
  70   }
  71
  72   # Make sure $inTargetPath exists
  73   if(!(-e "$inTargetPath"))
  74   {
  75     return(1);
  76   }
  77
  78   open(fpOutFileTmp, ">$inTargetPath$gPathDelimiter$mOutFilenameTmp") || die "\nCould not open $inTargetPath$gPathDelimiter$mOutFilenameTmp: $!\n";
  79
  80   CreateChromeTextFile($inType, $inTargetPath, "locales",  "loc");
  81   CreateChromeTextFile($inType, $inTargetPath, "packages", "pkg");
  82   CreateChromeTextFile($inType, $inTargetPath, "skins",    "skn");
  83
  84   if(-e "$inTargetPath$gPathDelimiter$mFinalFilename")
  85   {
  86     open(fpInFile, "$inTargetPath$gPathDelimiter$mFinalFilename") || die "\nCould not open $inTargetPath$gPathDelimiter$mFinalFilename: $!\n";
  87     while($line = <fpInFile>)
  88     {
  89       print fpOutFileTmp "$line";
  90     }
  91
  92     close(fpInFile);
  93     unlink "$inTargetPath$gPathDelimiter$mFinalFilename";
  94   }
  95   close(fpOutFileTmp);
  96
  97   if(!rename("$inTargetPath$gPathDelimiter$mOutFilenameTmp", "$inTargetPath$gPathDelimiter$mFinalFilename"))
  98   {
  99     die "\n Error $!: rename (\"$inTargetPath$gPathDelimiter$mOutFilenameTmp\", \"$inTargetPath$gPathDelimiter$mFinalFilename\")\n";
 100   }
 101   return(0);
 102 }
 103
 104 sub CreateChromeTextFile()
 105 {
 106   my($inType, $inTargetPath, $inChromeDir, $inExt) = @_;
 107
 108   @dlChromeDir = <$inTargetPath\\$inChromeDir\\*>;
 109   foreach $dir (@dlChromeDir)
 110   {
 111     if($inOsType =~ /win32/i)
 112     {
 113       # Convert all '/' to '\\' or else win32 will have problems
 114       $dir =~ s/\//\\/g;
 115     }
 116
 117     # Get the leaf dir name from full path
 118     if($inOsType =~ /win32/i)
 119     {
 120       @dirItem = split(/\\/, $dir);
 121     }
 122     elsif($inOsType =~ /mac/i)
 123     {
 124       @dirItem = split(/:/, $dir);
 125     }
 126     elsif($inOsType =~ /unix/i)
 127     {
 128       @dirItem = split(/\//, $dir);
 129     }
 130     $dirName = $dirItem[$#dirItem];
 131
 132     # Make sure the path is valid
 133     if(-d "$dir")
 134     {
 135       if($inType =~ /jar/i)
 136       {
 137         if(CheckDir("content", "$dir"))
 138         {
 139           print fpOutFileTmp "content,install,url,jar:resource:/chrome/$dirName.$inExt!/\n";
 140         }
 141         if(CheckDir("locale", "$dir"))
 142         {
 143           print fpOutFileTmp "locale,install,url,jar:resource:/chrome/$dirName.$inExt!/\n";
 144         }
 145         if(CheckDir("skin", "$dir"))
 146         {
 147           print fpOutFileTmp "skin,install,url,jar:resource:/chrome/$dirName.$inExt!/\n";
 148         }
 149       }
 150       else
 151       {
 152         if(CheckDir("content", "$dir"))
 153         {
 154           print fpOutFileTmp "content,install,url,resource:/chrome/$inChromeDir/$dirName/\n";
 155         }
 156         if(CheckDir("locale", "$dir"))
 157         {
 158           print fpOutFileTmp "locale,install,url,resource:/chrome/$inChromeDir/$dirName/\n";
 159         }
 160         if(CheckDir("skin", "$dir"))
 161         {
 162           print fpOutFileTmp "skin,install,url,resource:/chrome/$inChromeDir/$dirName/\n";
 163         }
 164       }
 165     }
 166   }
 167
 168   return(0);
 169 }
 170
 171 sub CheckDir()
 172 {
 173   my($dirType, $inPath) = @_;
 174
 175   @dlDirType = <$inPath$gPathDelimiter*>;
 176   foreach $dir (@dlDirType)
 177   {
 178     if($inOsType =~ /win32/i)
 179     {
 180       # Convert all '/' to '\\' or else win32 will have problems
 181       $dir =~ s/\//\\/g;
 182     }
 183
 184     if(-d "$dir$gPathDelimiter$dirType")
 185     {
 186       return(1);
 187     }
 188   }
 189   return(0);
 190 }
 191