bootdisk: ui-wizard (HEAD) [malekith]

[PLD CVS]

Module name:	bootdisk
Changes by:	malekith	02/07/26 12:20:23

Modified files:
	ui-wizard

Log message:
- use ui-mirror

Index: ui-wizard
===================================================================
RCS file: /cvsroot/bootdisk/batch-installer/ui/ui-wizard,v
diff -d -u -r1.23 -r1.24
--- ui-wizard	2002/07/25 11:49:50	1.23
+++ ui-wizard	2002/07/26 10:20:23	1.24
@@ -240,83 +240,6 @@
   source_filesystem=iso9660
 }
 
-choose_server () {
-  dial <<EOF
-<br>$(nls "Choose server")
-<br>
-<meta title="$(nls "Remote server")">
-<menu id=server res=1 selected=$1> 
-<item id="ftp://ftp.pld.org.pl">
-	ftp://ftp.pld.org.pl 
-	(`nls Poland`, `nls Warsaw`, $(nls "main server"))
-<item id="ftp://ftp1.pld.net.pl">
-	ftp://ftp1.pld.net.pl 
-	(`nls Poland`, `nls Warsaw`, $(nls "use if problems with main"))
-<item id="ftp://ftp2.pld.net.pl">
-	ftp://ftp2.pld.net.pl 
-	(`nls Poland`, `nls Warsaw`, $(nls "use if problems with main"))
-<item id="http://ftp.pld.org.pl">
-	http://ftp.pld.org.pl 
-	(`nls Poland`, `nls Warsaw`, $(nls "main server"))
-<item id="http://ftp1.pld.net.pl">
-	http://ftp1.pld.net.pl 
-	(`nls Poland`, `nls Warsaw`, $(nls "use if problems with main"))
-<item id="http://ftp2.pld.net.pl">
-	http://ftp2.pld.net.pl 
-	(`nls Poland`, `nls Warsaw`, $(nls "use if problems with main"))
-<item id="ftp://ftp.wsisiz.edu.pl/pub/linux/PLD">
-	ftp://ftp.wsisiz.edu.pl/pub/linux/PLD 
-	(`nls Poland`, `nls Warsaw`, WSISiZ)
-<item id="ftp://ftp.icm.edu.pl/pub/Linux/distributions/pld">
-	ftp://ftp.icm.edu.pl/pub/Linux/distributions/pld 
-	(`nls Poland`, `nls Warsaw`, ICM)
-<item id="ftp://ftp.task.gda.pl/pub/linux/PLD">
-	ftp://ftp.task.gda.pl/pub/linux/PLD 
-	(`nls Poland`, `nls Gdansk`, TASK)
-<item id="http://ftp.task.gda.pl/pub/linux/PLD">
-	http://ftp.task.gda.pl/pub/linux/PLD 
-	(`nls Poland`, `nls Gdansk`, TASK)
-<item id="ftp://ftp.futuro.pl/pub/distributions/PLD/">
-	ftp://ftp.futuro.pl/pub/distributions/PLD/
-	(`nls Poland`, `nls Lublin`, Pro Futuro)
-<item id="ftp://ftp.rpmfind.net/pub/linux/PLD/current">
-	ftp://ftp.rpmfind.net/pub/linux/PLD/current 
-	(USA, Boston, MIT)
-<item id="ftp://fr.rpmfind.net/pub/linux/PLD/current">
-	ftp://fr.rpmfind.net/pub/linux/PLD/current 
-	(`nls France`, Montbonnot, INRIA)
-<item id="ftp://fr2.rpmfind.net/pub/linux/PLD">
-	ftp://fr2.rpmfind.net/pub/linux/PLD 
-	(`nls France`, Lyon, Creatis/CISM)
-<item id="ftp://ftp.club-internet.fr/pub/linux/distributions/PLD">
-	ftp://ftp.club-internet.fr/pub/linux/distributions/PLD 
-	(`nls France`, `nls Paris`)
-<item id="http://ftp.club-internet.fr/pub/linux/distributions/PLD">
-	http://ftp.club-internet.fr/pub/linux/distributions/PLD 
-	(`nls France`, `nls Paris`)
-<item id="ftp://gd.tuwien.ac.at/linux/PLD/">
-	ftp://gd.tuwien.ac.at/linux/PLD/ 
-	(`nls Austria`, `nls "Vienna Univ. of Technology"`)
-<item id="http://gd.tuwien.ac.at/linux/PLD/">
-	http://gd.tuwien.ac.at/linux/PLD/ 
-	(`nls Austria`, `nls "Vienna Univ. of Technology"`)
-<item id="ftp://ftp.pld.kernel.pl">
-	ftp://ftp.pld.kernel.pl (`nls Poland`, `nls Warsaw`)
-</menu>
-<br>
-$ok_cancel
-EOF
-
-  case "$res" in
-    1)
-      echo $server
-      ;;
-    *)
-      echo $1
-      ;;
-  esac
-}
-
 net_source () {
   cat <<EOF
 $(nls "FTP or HTTP server URL:") <input caption="$source_device" id=source_device> 
@@ -409,7 +332,7 @@
     net )
       case $res in
         1)
-	  source_device=$(choose_server)
+	  source_device=$(ui-mirror)
 	  return 1
 	  ;;
       esac