diff options
author | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:51:35 +0000 |
---|---|---|
committer | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:51:35 +0000 |
commit | a9b2bdafaf625d10aef2f476aa4014fd36c846bc (patch) | |
tree | 2364afc0ee6739b59a25c44d68c9f003bcaf03d9 /perl-install/standalone/display_release_notes.pl | |
download | drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar.gz drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar.bz2 drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar.xz drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.zip |
Branch for updates
Diffstat (limited to 'perl-install/standalone/display_release_notes.pl')
-rwxr-xr-x | perl-install/standalone/display_release_notes.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/perl-install/standalone/display_release_notes.pl b/perl-install/standalone/display_release_notes.pl new file mode 100755 index 000000000..4f5f19bb4 --- /dev/null +++ b/perl-install/standalone/display_release_notes.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +# DrakBoot +# $Id: display_release_notes 242795 2008-05-29 15:38:07Z tv $ +# Copyright (C) 2009 Mandriva +# Thierry Vignaud +# +# 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 2, or (at your option) +# any later version. +# +# 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. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +use lib qw(/usr/lib/libDrakX); +use interactive; +use any; +use MDK::Common; + +my $in = 'interactive'->vnew('su'); +# so that we popup above drakx: +any::set_wm_hints_if_needed($in); + +# not very safe but we run in a restricted environment anyway: +my $release_notes = cat_utf8('/tmp/release_notes.html'); +any::display_release_notes($in, $release_notes); |