Mailinglist Archive: opensuse-commit (2092 mails)

< Previous Next >
commit gfxboot
  • From: root@xxxxxxxxxxxxxxx (h_root)
  • Date: Fri, 10 Aug 2007 17:06:02 +0200
  • Message-id: <20070810150602.3C940678180@xxxxxxxxxxxxxxx>

Hello community,

here is the log from the commit of package gfxboot
checked in at Fri Aug 10 17:06:02 CEST 2007.

--------
--- arch/i386/gfxboot/gfxboot.changes   2007-08-09 16:44:54.000000000 +0200
+++ /mounts/work_src_done/STABLE/gfxboot/gfxboot.changes        2007-08-10 12:55:51.000000000 +0200
@@ -1,0 +2,5 @@
+Fri Aug 10 12:55:34 CEST 2007 - snwint@xxxxxxx
+
+- allow to set default values for repository
+
+-------------------------------------------------------------------

Old:
----
  gfxboot-3.3.30.tar.bz2

New:
----
  gfxboot-3.3.31.tar.bz2

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ gfxboot.spec ++++++
--- /var/tmp/diff_new_pack.M29159/_old  2007-08-10 17:05:48.000000000 +0200
+++ /var/tmp/diff_new_pack.M29159/_new  2007-08-10 17:05:48.000000000 +0200
@@ -1,5 +1,5 @@
 #
-# spec file for package gfxboot (Version 3.3.30)
+# spec file for package gfxboot (Version 3.3.31)
 #
 # Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
 # This file and all modifications and additions to the pristine
@@ -18,10 +18,10 @@
 Requires:       perl-HTML-Parser
 Autoreqprov:    on
 Summary:        Graphical Boot Logo for LILO and SYSLINUX
-Version:        3.3.30
+Version:        3.3.31
 Release:        1
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
-Source:         gfxboot-3.3.30.tar.bz2
+Source:         gfxboot-3.3.31.tar.bz2
 Source1:        NLD.tar.bz2
 Source2:        SLES.tar.bz2
 Source3:        SuSE.tar.bz2
@@ -61,6 +61,8 @@
 /usr/share/gfxboot
 
 %changelog
+* Fri Aug 10 2007 - snwint@xxxxxxx
+- allow to set default values for repository
 * Thu Aug 09 2007 - snwint@xxxxxxx
 - change default lang en -> en_US
 - updated po files

++++++ gfxboot-3.3.30.tar.bz2 -> gfxboot-3.3.31.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/gfxboot-3.3.30/Changelog new/gfxboot-3.3.31/Changelog
--- old/gfxboot-3.3.30/Changelog        2007-08-09 16:33:03.000000000 +0200
+++ new/gfxboot-3.3.31/Changelog        2007-08-10 12:54:30.000000000 +0200
@@ -1,3 +1,6 @@
+10/8/1007:     v3.3.31
+       - allow to set default values for repository
+
 9/8/2007:      v3.3.30
        - updated po files
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/gfxboot-3.3.30/VERSION new/gfxboot-3.3.31/VERSION
--- old/gfxboot-3.3.30/VERSION  2007-08-09 16:32:33.000000000 +0200
+++ new/gfxboot-3.3.31/VERSION  2007-08-10 12:53:47.000000000 +0200
@@ -1 +1 @@
-3.3.30
+3.3.31

++++++ NLD.tar.bz2 ++++++

++++++ SLES.tar.bz2 ++++++

++++++ SuSE.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/themes/SuSE/dia_install.inc new/themes/SuSE/dia_install.inc
--- old/themes/SuSE/dia_install.inc     2007-03-15 11:56:03.000000000 +0100
+++ new/themes/SuSE/dia_install.inc     2007-08-10 12:47:46.000000000 +0200
@@ -31,11 +31,13 @@
 
   /xmenu xmenu.install def
 
-  "install" getgfxconfig "slp" eq {
-    /install.last .inst_slp def
-  } if
+  /input.edit.ftp [ 63 string 127 string 31 string 31 string ] def
+  /input.edit.http [ 63 string 127 string ] def
+  /input.edit.nfs [ 63 string 127 string ] def
+  /input.edit.smb [ 63 string 31 string 127 string 31 string 31 string 31 string ] def
+  /input.edit.hd [ 63 string 127 string ] def
 
-  install.option install.last .inst_cdrom eq { "" } { "install=slp" } ifelse strcpy
+  install.read.config
 
   xmenu .xm_current install.last put
 
@@ -43,6 +45,8 @@
   xmenu .xm_list [ is_dvd { "DVD" } { "CD-ROM" } ifelse "SLP" "FTP" "HTTP" "NFS" "SMB / CIFS" /txt_harddisk ] put
 
   xmenu .xm_title /txt_install_source put
+
+  install.set.install.option
 } def
 
 
@@ -57,13 +61,14 @@
   xmenu .xm_current get dup .inst_cdrom eq exch .inst_slp eq or {
     /install.last xmenu .xm_current get def
 
-    install.option install.last .inst_cdrom eq { "" } { "install=slp" } ifelse strcpy
+    install.set.install.option
 
     /window.action actRedrawPanel def
   } {
     install.dialog
   }
   ifelse
+
 } def
 
 
@@ -119,25 +124,7 @@
 
   xmenu .xm_current get
 
-  dup .inst_hd eq {
-    input.edit.hd .undef eq {
-      /input.edit.hd [ 63 string 127 string ] def
-    } if
-
-    dia .title txt_harddisk_title put
-
-    % Must all be of same size!
-    dia .ed.list 2 array put
-    dia .ed.buffer.list input.edit.hd put
-    dia .ed.text.list [ txt_hd_diskdevice txt_directory ] put
-
-  } if
-
   dup .inst_ftp eq {
-    input.edit.ftp .undef eq {
-      /input.edit.ftp [ 63 string 127 string 31 string 31 string ] def
-    } if
-
     dia .title txt_ftp_title put
 
     % Must all be of same size!
@@ -151,10 +138,6 @@
   } if
 
   dup .inst_http eq {
-    input.edit.http .undef eq {
-      /input.edit.http [ 63 string 127 string ] def
-    } if
-
     dia .title txt_http_title put
 
     % Must all be of same size!
@@ -165,10 +148,6 @@
   } if
 
   dup .inst_nfs eq {
-    input.edit.nfs .undef eq {
-      /input.edit.nfs [ 63 string 127 string ] def
-    } if
-
     dia .title txt_nfs_title put
 
     % Must all be of same size!
@@ -179,10 +158,6 @@
   } if
 
   dup .inst_smb eq {
-    input.edit.smb .undef eq {
-      /input.edit.smb [ 63 string 31 string 127 string 31 string 31 string 31 string ] def
-    } if
-
     dia .title txt_smb_title put
 
     % Must all be of same size!
@@ -195,6 +170,16 @@
 
   } if
 
+  dup .inst_hd eq {
+    dia .title txt_harddisk_title put
+
+    % Must all be of same size!
+    dia .ed.list 2 array put
+    dia .ed.buffer.list input.edit.hd put
+    dia .ed.text.list [ txt_hd_diskdevice txt_directory ] put
+
+  } if
+
   pop
 
   dia .ed.focus 0 put
@@ -224,13 +209,31 @@
 
   pmenu.update
 
+  install.set.install.option
+
+} def
+
+
+/install.cancel {
+  /xmenu xmenu.install def
+
+  xmenu .xm_current install.last put
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Set 'install=' boot option.
+%
+% ( -- )
+%
+/install.set.install.option {
   xmenu .xm_current get
 
-  dup .inst_hd eq {
-    input.edit.hd
-    dup 1 get dup 0 get '/' eq { 1 add } if
-    exch 0 get dup 0 get '/' eq { 1 add } if
-    "install=hd://%s/%s" install.option sprintf
+  % default: .inst_cdrom
+  install.option "" strcpy pop
+
+  dup .inst_slp eq {
+    install.option "install=slp:/" strcpy pop
   } if
 
   dup .inst_ftp eq {
@@ -288,14 +291,49 @@
     "%s/%s/%s" install.option dup length add sprintf
   } if
 
-  pop
+  dup .inst_hd eq {
+    input.edit.hd
+    dup 1 get dup 0 get '/' eq { 1 add } if
+    exch 0 get dup 0 get '/' eq { 1 add } if
+    "install=hd://%s/%s" install.option sprintf
+  } if
 
+  pop
 } def
 
 
-/install.cancel {
-  /xmenu xmenu.install def
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Read default values.
+%
+% ( -- )
+%
+/install.read.config {
+  "install" getgfxconfig
+  dup "cdrom" eq { /install.last .inst_cdrom def } if
+  dup "slp"   eq { /install.last .inst_slp   def } if
+  dup "ftp"   eq { /install.last .inst_ftp   def } if
+  dup "http"  eq { /install.last .inst_http  def } if
+  dup "nfs"   eq { /install.last .inst_nfs   def } if
+  dup "smb"   eq { /install.last .inst_smb   def } if
+  dup "hd"    eq { /install.last .inst_hd    def } if
+  pop
+
+  "install.http.server"  input.edit.http 0 get getgfxconfig.str
+  "install.http.path"    input.edit.http 1 get getgfxconfig.str
+
+  "install.nfs.server"   input.edit.nfs  0 get getgfxconfig.str
+  "install.nfs.path"     input.edit.nfs  1 get getgfxconfig.str
+
+  "install.smb.server"   input.edit.smb  0 get getgfxconfig.str
+  "install.smb.share"    input.edit.smb  1 get getgfxconfig.str
+  "install.smb.path"     input.edit.smb  2 get getgfxconfig.str
+  "install.smb.domain"   input.edit.smb  3 get getgfxconfig.str
+  "install.smb.user"     input.edit.smb  4 get getgfxconfig.str
+  "install.smb.password" input.edit.smb  5 get getgfxconfig.str
+
+  "install.hd.device"    input.edit.hd   0 get getgfxconfig.str
+  "install.hd.path"      input.edit.hd   1 get getgfxconfig.str
 
-  xmenu .xm_current install.last put
 } def
 
+
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/themes/SuSE/system.inc new/themes/SuSE/system.inc
--- old/themes/SuSE/system.inc  2007-03-30 12:16:27.000000000 +0200
+++ new/themes/SuSE/system.inc  2007-08-10 12:47:10.000000000 +0200
@@ -641,6 +641,18 @@
 
 
 % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Read string from config file and store in variable.
+%
+% ( key str -- )
+%
+% Read config value 'key' and copy to 'str' if found.
+%
+/getgfxconfig.str {
+  exch getgfxconfig dup { strcpy } { pop } ifelse pop
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 % split - split string
 %
 % group:

++++++ Zen.tar.bz2 ++++++


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx

< Previous Next >