sysui/desktop/share/brand.pl

   1 :
   2 eval 'exec perl -wS $0 ${1+"$@"}'
   3     if 0;
   4
   5 #
   6 # This file is part of the LibreOffice project.
   7 #
   8 # This Source Code Form is subject to the terms of the Mozilla Public
   9 # License, v. 2.0. If a copy of the MPL was not distributed with this
  10 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
  11 #
  12 # This file incorporates work covered by the following license notice:
  13 #
  14 #   Licensed to the Apache Software Foundation (ASF) under one or more
  15 #   contributor license agreements. See the NOTICE file distributed
  16 #   with this work for additional information regarding copyright
  17 #   ownership. The ASF licenses this file to you under the Apache
  18 #   License, Version 2.0 (the "License"); you may not use this file
  19 #   except in compliance with the License. You may obtain a copy of
  20 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  21 #
  22
  23 #
  24 # This tool is used to re-write and substitute variables
  25 # into Unix .desktop, .keys files etc.
  26 #
  27
  28 $destdir = pop @ARGV;
  29 mkdir $destdir,0777;
  30
  31 $productname = "LibreOffice";
  32 $productfilename = "libreoffice";
  33 $urls = 0;
  34 $prefix = "";
  35 $iconprefix = "";
  36
  37 while ($_ = $ARGV[0], /^-/) {
  38     shift;
  39     last if /^--$/;
  40     if (/^-p/) {
  41         $productname = $ARGV[0];
  42         shift;
  43     }
  44     if (/^-u/) {
  45         $productfilename = $ARGV[0];
  46         shift;
  47     }
  48     if (/^--prefix/) {
  49         $prefix = $ARGV[0];
  50         shift;
  51     }
  52     if (/^--iconprefix/) {
  53         $iconprefix = $ARGV[0];
  54         shift;
  55     }
  56     if (/^--category/) {
  57         $category = $ARGV[0];
  58         shift;
  59     }
  60     # Whether we can handle URLs on the command-line
  61     if (/^--urls/) {
  62     $urls = 1;
  63     }
  64 }
  65
  66
  67 while ($arg = shift) {
  68     unless (open INFILE,$arg) {
  69         print STDOUT "Can't open input file $arg: $!\n";
  70         exit 1;
  71     }
  72
  73     $srcfile = substr($arg, rindex($arg, "/") + 1);
  74
  75     unless (open OUTFILE,"> $destdir/$prefix$srcfile") {
  76         print STDOUT "Can't open output file $destdir/$prefix$srcfile: $!\n";
  77         exit 1;
  78     }
  79
  80     while (<INFILE>) {
  81         # remove possible Windows line-ends
  82         chomp;
  83
  84         # patch all icons in ICON line with $prefix
  85         if (! /Icon=document-new/ ) { # except for Icon=document-new which
  86                                       # is a stock icon, not one of ours
  87             s/Icon=/Icon=$iconprefix/;
  88         }
  89
  90         # patch all occurrences of openoffice in EXEC line with
  91         # $productfilename
  92         if ( /Exec/ ) {
  93             s/openoffice/$productfilename/;
  94         }
  95
  96         # if $productfilename != "openoffice, add it to the list
  97         # of applications.
  98         if ( /user_level=$/ ) {
  99             $_ = $_ . $productfilename;
 100         } elsif ( /user_level/ ) {
 101             s/$productfilename,//;
 102             s/user_level=/user_level=$productfilename,/
 103         }
 104
 105         # append special category if specified
 106         if ( /Categories/ ) {
 107             if ( length($category) > 0 ) {
 108                 $_ = "$_$category;";
 109             }
 110         }
 111
 112         # replace %PRODUCTNAME placeholders
 113         s/%PRODUCTNAME/$productname/g;
 114
 115         if ( $urls ) {
 116             s/%%FILE%%/%U/g;
 117         } else {
 118             s/%%FILE%%/%F/g;
 119         }
 120
 121         print OUTFILE "$_\n";
 122     }
 123
 124     close(OUTFILE);
 125     close(INFILE);
 126 }