# Module of TWiki Enterprise Collaboration Platform, http://TWiki.org/ # # Copyright (C) 1999-2018 Peter Thoeny, peter[at]thoeny.org # Copyright (C) 2006-2018 TWiki Contributors. All Rights Reserved. # TWiki Contributors are listed in the AUTHORS file in the root of # this distribution. NOTE: Please extend that file, not this notice. # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 3 # of the License, or (at your option) any later version. For # more details read LICENSE in the root of this distribution. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # # As per the GPL, removal of this notice is prohibited. package TWiki::Configure::ImgTool; use warnings; use strict; =begin twiki ---+!! package TWiki::Configure::ImgTool This class is a singleton that offers URLs for the images (logos, warning, info) used during configuration - when neither =pub= nor =data= nor =template= directories are reliably available. All the methods can be called either as class methods or as object methods on the singleton: * Class method: %BR% $img = "=<img src=" . TWiki::Configure::ImgTool->logo . "/>" * Object method: %BR% my $imgtool = TWiki::Configure::ImgTool->instance; $img = "=<img src=" . $imgtool->logo . "/>" =cut =pod ---++ Class Method instance() Returns the singleton object. =cut my $imgTool = bless {},__PACKAGE__; sub instance { return $imgTool; } my $logo140x40 = <