Author: M0...@gm...
Date: Fri Mar 20 13:58:07 2009
New Revision: 519
Added:
branches/speedy/.lang/MdlBootMngr.pot
branches/speedy/MdlBootMngr.module
Modified:
branches/speedy/Conf0.form
Log:
Began work in boot manager department
Added: branches/speedy/.lang/MdlBootMngr.pot
==============================================================================
--- (empty file)
+++ branches/speedy/.lang/MdlBootMngr.pot Fri Mar 20 13:58:07 2009
@@ -0,0 +1,16 @@
+# /home/vluser/devel/speedy/MdlBootMngr.module
+# Generated by Gambas compiler
+
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n""POT-Creation-Date: 2002-11-01
04:27+0100\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL...@li...>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
Modified: branches/speedy/Conf0.form
==============================================================================
--- branches/speedy/Conf0.form (original)
+++ branches/speedy/Conf0.form Fri Mar 20 13:58:07 2009
@@ -1,7 +1,7 @@
# Gambas Form File 2.0
{ Form Form
- MoveScaled(0,0,72,44)
+ MoveScaled(0,0,72,47)
Text = ("")
Arrangement = Arrange.Row
Padding = 2
Added: branches/speedy/MdlBootMngr.module
==============================================================================
--- (empty file)
+++ branches/speedy/MdlBootMngr.module Fri Mar 20 13:58:07 2009
@@ -0,0 +1,123 @@
+' Gambas module file
+
+' This file is part of vinstall-ng
+
+' vinstall-ng 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 of the License, or
+' (at your option) any later version.
+
+' vinstall-ng 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 vinstall-ng. If not, see <http://www.gnu.org/licenses/>.
+'====================================================================================================
+
+PUBLIC FUNCTION ID_LINUX(sMountedLocation AS String) AS String
+ DIM sRes AS String
+
+ IF Exist(sMountedLocation &/ "etc/vector-version") THEN
+ sres = "VectorLinux"
+ ELSE IF Exist(sMountedLocation &/ "etc/slackware-version") THEN
+ sres = "Slackware"
+ ELSE IF Exist(sMountedLocation &/ "etc/Suse-release") OR
Exist(sMountedLocation &/ "UnitiedLinux-release") THEN
+ sres = "SuSE"
+ ELSE IF Exist(sMountedLocation &/ "etc/gentoo-release") THEN
+ sres = "Gentoo"
+ ELSE IF Exist(sMountedLocation &/ "etc/debian_version") THEN
+ SHELL "grep -m 1 cdrom " & sMountedLocation &/ "etc" &/ "apt"
&/ "sources.list | cut -d \"[\" -f2 | cut -d \" \" -f 1,2" TO sres
+ IF Len(Trim(sres)) >= 0 THEN
+ sres = Trim(Replace(sres, " ", "_"))
+ ELSE
+ sres = "Debian"
+ END IF
+ ELSE IF Exist(sMountedLocation &/ "etc/mandrake-release") THEN ' this
should be mandriva now
+ sres = "Mandrake"
+ ELSE IF Exist(sMountedLocation &/ "etc/redhat-release") THEN
+ sres = "RedHat"
+ ELSE IF Exist(sMountedLocation &/ "etc/fedora-release") THEN
+ sres = "Fedora"
+ ELSE
+ sres = "Linux"
+
+ END IF
+
+ RETURN sres
+
+END
+
+
+PUBLIC FUNCTION Find_Linux(sPartition AS String) AS String
+ ' None: No linux found
+ ' Linux: Unknown linux found
+ ' DISTRO_NAME: DISTRO_NAME found
+ ' Fail: Error running function
+
+DIM sAddr AS String = Right(sPartition, Len(sPartition) -
RInStr(sPartition, "/"))
+DIM sTempTarget AS String = "/mnt" &/ sAddr
+DIM sres AS String
+
+
+ SHELL "mkdir -p /mnt" &/ sAddr & Space(1) & "2>/dev/null" WAIT
+ SHELL "mount " & sPartition & Space(1) & "/mnt" &/ sAddr & Space(1)
& "2>/dev/null" WAIT
+
+ ' perform test to see if there is a linux partition here
+ IF IsDir(sTempTarget &/ "boot") THEN ' this feels like linux here
+ IF IsDir(sTempTarget &/ "etc") THEN ' this is definitely linux
+ ' ============== IDENTIFY LINUX DISTRO ====================
+ sres = ID_LINUX(sTempTarget)
+
+ END IF
+ END IF
+ IF Len(Trim(sres)) > 0 THEN
+ sRes = Trim(sRes)
+ ELSE
+ sRes = "None"
+ END IF
+ RETURN sres
+
+
+
+END
+PUBLIC SUB populate_linux_entry(sLinuxRoot AS String, objTabStrip AS
TabStrip)
+
+
+
+END
+
+
+PUBLIC SUB List_Other_Linuxes(objTabStrip AS TabStrip) ' tell me where you
want the results.
+
+ DIM sDump, sPartitions, sPart AS String
+ DIM sPartList AS String[]
+ DIM i AS Integer
+ DIM sOutcome AS String
+
+
+
+ ' First, and foremost, we will ist the recently isntalled VectorLinux
+ populate_linux_entry(ClsGlobal.sRoot, objTabStrip) ' This will list
the newly isntall VL OS
+ ' Now list all other linuxes
=================================================
+ SHELL "probepart | grep \"^/dev\" | grep -vi swap | grep -i linux |
tr -s \' \' | cut -f 1 -d \' \'" TO sDump
+ sDump = Trim(sDump)
+ IF Len(sDump) <= 0 THEN RETURN ' nothing found, VL is the only
distro in this box ... YAY!.
+ sPartList = Split(sDump, gb.NewLine)
+ FOR i = 0 TO sPartList.Max
+ sOutcome = ME.Find_Linux(Trim(sPartList[i]))
+ IF Len(sOutcome) <= 0 THEN CONTINUE
+ ' will only list the linux if one is present
+ populate_linux_entry(Trim(sPartList[i]), objTabStrip)
+ END IF
+
+ NEXT
+
+
+ ' now list all other Windows os's
============================================
+
+
+END
+
+
|
