From a9b2bdafaf625d10aef2f476aa4014fd36c846bc Mon Sep 17 00:00:00 2001 From: Dexter Morgan Date: Thu, 2 Jun 2011 20:51:35 +0000 Subject: Branch for updates --- perl-install/standalone/display_release_notes.pl | 32 ++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100755 perl-install/standalone/display_release_notes.pl (limited to 'perl-install/standalone/display_release_notes.pl') 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); -- cgit v1.2.1