Edit D:\Program Files (x86)\VMware\VMware Workstation\Resources\suse.flp
??SDOS5.0 ? @ ? )??<NO NAME FAT12 ????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????U????O ?????? ? ? ? @`???? ? ! #@%`'?)?+?-?/ 1 3@5`7?9?;?=???????OE`G?I?K?M?O Q S@U`W?Y?[?]?_ a c@e`g?i???m?o q s@u`w?y?{?}?????????????? ? ? ? ? ? ? ? ? ? ? ? ? ??? ? ? ? ? ? ? ? ? ??????/ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ???????? ? ???????????!Aa? ? ? ?!Aa??? ? !!#A%a'?)?+?-?/1!3A5a7?9?;?????A!CAEaG?I?K?M?OQ?SAUaW?Y?[?]?_a!cAeag?i?k?m?oq!sAua??????{?}??!?????????!????????!?????????????o????? ?! ? ? ??? ? ? ? ?! ? ? ? ? ? ? ? ?! ? ? ? ? ? ? ???O ?????? ? ? ? @`???? ? ! #@%`'?)?+?-?/ 1 3@5`7?9?;?=???????OE`G?I?K?M?O Q S@U`W?Y?[?]?_ a c@e`g?i???m?o q s@u`w?y?{?}?????????????? ? ? ? ? ? ? ? ? ? ? ? ? ??? ? ? ? ? ? ? ? ? ??????/ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ???????? ? ???????????!Aa? ? ? ?!Aa??? ? !!#A%a'?)?+?-?/1!3A5a7?9?;?????A!CAEaG?I?K?M?OQ?SAUaW?Y?[?]?_a!cAeag?i?k?m?oq!sAua??????{?}??!?????????!????????!?????????????o????? ?! ? ? ??? ? ? ? ?! ? ? ? ? ? ? ? ?! ? ? ? ? ? ? Al i n u x < ?????????? ????LINUX d??<?< ??< . dY?<?< dY?< .. dY?<?< dY?< As u s e ???????????? ????SUSE d??<?< ??< . dY?<?< dY?< .. dY?<?< dY?< Ai 3 8 6 - Qs l e d 1 0 ??I386-S~3 d6j?<?< Ij?< Ai 3 8 6 - s l e s 1 1 ??I386-S~1 ??<?< E\?<@ Ai 3 8 6 - ? l e d 1 1 ??I386-S~2 D\?<?< D\?< Ax 8 6 _ 6 ?4 - s l e d 1 1 X86_64~1 ;[?<?< E\?<? Ax 8 6 _ 6 ?4 - s l e s 1 1 X86_64~2 d;[?<?< E\?<? Ai 3 8 6 - 1s l e s 1 0 ??I386-S~4 7j?<?< Ij?<< Ax 8 6 _ 6 4 - s l e s 1 0 X86_64~3 d8j?<?< Ij?<w Ax 8 6 _ 6 ?4 - s l e d 1 0 X86_64~4 9j?<?< Ij?<? . d??<?< ??< .. d??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE d??<?< ?`?< . d??<?< ??< .. d??<?< ??< Am o d u l ue s ?????? ????MODULES Sj?<?< Uj?< . d??<?< ??< .. d??<?< ??< AI n s t U ? L . y c p ??INSTURL YCP Sj?<?< Sj?< ?$ AI n s t U PR L . y b c ??INSTURL YBC Sj?<?< Sj?< ? /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 56521 2009-04-01 09:34:46Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { // Url::Build(Url::Parse) transforms the URL too much, see #247249#c41 // replace ://user:password@ by ://user:PASSWORD@ string subd = regexpsub (url, "(.*)(://[^/:]*):[^/@]*@(.*)", "\\1\\2:PASSWORD@\\3"); return subd == nil? url: subd; } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string cdrom = Linuxrc::InstallInf("Cdrom"); if (cdrom != nil && cdrom != "") { y2milestone("Found CD/DVD device in /etc/install.inf: %1", cdrom); string linuxrc_device = "/dev/" + cdrom; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new Source URL */ global string installInf2Url (string extra_dir) { string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", HidePassword(url)); return url; } } YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url s url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build 3 CheckMedia $ % subd $ regexpsub (.*)(://[^/:]*):[^/@]*@(.*) \1\2:PASSWORD@\3-! %( options devicelist devlist ready cdrom $) $* SCR::Read .probe.cdrom$+ maplist d dev_name $/ ,0 foreach d dname $1 dev_name (3 && && notready 44 &5 add (; size &< $? ???? Cdrom(@ && 4A linuxrc_device ,B y2milestone + Found CD/DVD device in /etc/install.inf: %1 $C + /dev/ ,D y2milestone Using Linuxrc device: %1 &G filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,O foreach d (P 4Q (R &S + , &T + (W 4X &Y + devices= -[ %a url option_map pos $b $c findfirstof ?(d 4e opts optpairs $f substring size $g splitstring ?&h listmap op tmp $i splitstring =-j -m %s tokens new_url $t ???? $u (v || scheme cd scheme dvd4w pos ,x y2milestone Old options: %1 $y findfirstof ?(z 4{ new_options $| &} substring (~ size & + + ? &? 4? &? -? %? options url_tokens instmode isoimg serverdir share port url option_separator $? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash (? findlastof / - size 4? &? substring - size $? (? substring /&? / &? + + &? &? (? && 4? fs $? (? ftp4? ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & ' path 4 ' path /$ ???? Port( && 4 ' port $ ??? $ ?( 4 proxy proxyport proxyproto proxyuser proxypassword workgroup $ ???? Proxy( && 4! &" + + + proxy= &# & $% ???? ProxyPort(& && 4' &( + + + proxyport= &) & $+ ???? ProxyProto(, && 4- &. + + + proxyproto= &/ & $1 ???? ProxyUser(2 && 43 &4 + + + proxyuser= &5 & $7 ???? ProxyPassword(8 && 49 &: + + + proxypassword= &; & $= ???? WorkDomain(> && 4? &@ + + + workgroup= &A & (E 4F &G + + &H &,I y2milestone options %1 (L 4M &N sformat iso:/?iso=%1&url=%2 ,Q y2debug URL %1 -R . ??<?< ??<@ .. ??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE ??<?< ??<A . ??<?< ??<A .. ??<?< ??<@ Am o d u l ue s ?????? ????MODULES ??<?< ??<B . ??<?< ??<B .. ??<?< ??<A AI n s t U PR L . y b c ??INSTURL YBC ??<?< ??<C ? AI n s t U ? L . y c p ??INSTURL YCP ??<?< ??<k I' YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url t url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build HidePassword 3 CheckMedia $ % , y2warning E InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead- ??? %& options devicelist devlist ready repo_url $' $( SCR::Read .probe.cdrom$) maplist d dev_name $- ,. foreach d dname $/ dev_name (1 && && notready 42 &3 add (9 size &: $= ???? RepoURL(> || regexpmatch tolower ^cd: regexpmatch tolower ^dvd:4? linuxrc_device ,@ y2milestone * Found CD/DVD device in Linuxrc RepoURL: %1 $A regexpsub device=(.*)$ \1(B && 4C &D + /dev/ ,E y2milestone Using Linuxrc device: %1 &H filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,P foreach d (Q 4R (S &T + , &U + (X 4Y &Z + devices= -\ %b url option_map pos $c $d findfirstof ?(e 4f opts optpairs $g substring size $h splitstring ?&i listmap op tmp $j splitstring =-k -n %t tokens new_url $u ???? $v (w || scheme cd scheme dvd4x pos ,y y2milestone Old options: %1 $z findfirstof ?({ 4| new_options $} &~ substring ( size &? + + ? &? 4? &? -? %? repo_url repo_url_from_inf options url_tokens instmode isoimg serverdir share port url option_separator $? $? ,? foreach in_inf_key ZyppRepoURL &? ???? (? && 4? ,? y2milestone & Using %1 directly from install.inf: %2 ??? &? .? (? 4? -? ,? y2warning + Initial repository not found in install.inf$? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash ( findlastof / - size 4 & substring - size $ ( substring /& / & + + & & ( && 4 fs $ ( ftp4 ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & '! path 4% '( path /$+ ???? Port(, && 4- '. port $1 ??? $2 ?(4 45 proxy proxyport proxyproto proxyuser proxypassword workgroup $6 ???? Proxy(7 && 48 &9 + + + proxy= &: & $< ???? ProxyPort(= && 4> &? + + + proxyport= &@ & $B ???? ProxyProto(C && 4D &E + + + proxyproto= &F & $H ???? ProxyUser(I && 4J &K + + + proxyuser= &L & $N ???? ProxyPassword(O && 4P &Q + + + proxypassword= &R & $T ???? WorkDomain(U && 4V &W + + + workgroup= &X & (\ 4] &^ + + &_ &,` y2milestone options %1 (c 4d &e sformat iso:/?iso=%1&url=%2 ,h y2debug URL %1 ??? -i /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 61548 2010-03-31 14:38:36Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { y2warning("InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead"); return URL::HidePassword(url); } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string repo_url = Linuxrc::InstallInf("RepoURL"); if (regexpmatch(tolower(repo_url), "^cd:") || regexpmatch(tolower(repo_url), "^dvd:")) { y2milestone("Found CD/DVD device in Linuxrc RepoURL: %1", repo_url); string linuxrc_device = regexpsub(repo_url, "device=(.*)$", "\\1"); if (linuxrc_device != nil && linuxrc_device != "") { linuxrc_device = "/dev/" + linuxrc_device; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new repository URL */ global string installInf2Url (string extra_dir) { string repo_url = ""; // bnc #406162 boolean repo_url_from_inf = false; foreach (string in_inf_key, ["ZyppRepoURL"], { repo_url = Linuxrc::InstallInf (in_inf_key); if (repo_url != nil && repo_url != "") { y2milestone ("Using %1 directly from install.inf: %2", in_inf_key, URL::HidePassword (repo_url)); repo_url_from_inf = true; break; } }); if (repo_url_from_inf) { return repo_url; } // Initial repository hasn't been found in install.inf // Trying to guess it ... y2warning ("Initial repository not found in install.inf"); string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", URL::HidePassword(url)); return url; } } . d??<?< ??< .. d??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE d??<?< ??<? . d??<?< ??<? .. d??<?< ??< Am o d u l ue s ?????? ????MODULES d??<?< ??<? . d??<?< ??<? .. d??<?< ??<? AI n s t U PR L . y b c ??INSTURL YBC d??<?< ??<? ? AI n s t U ? L . y c p ??INSTURL YCP d??<?< ??<? I' YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url t url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build HidePassword 3 CheckMedia $ % , y2warning E InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead- ??? %& options devicelist devlist ready repo_url $' $( SCR::Read .probe.cdrom$) maplist d dev_name $- ,. foreach d dname $/ dev_name (1 && && notready 42 &3 add (9 size &: $= ???? RepoURL(> || regexpmatch tolower ^cd: regexpmatch tolower ^dvd:4? linuxrc_device ,@ y2milestone * Found CD/DVD device in Linuxrc RepoURL: %1 $A regexpsub device=(.*)$ \1(B && 4C &D + /dev/ ,E y2milestone Using Linuxrc device: %1 &H filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,P foreach d (Q 4R (S &T + , &U + (X 4Y &Z + devices= -\ %b url option_map pos $c $d findfirstof ?(e 4f opts optpairs $g substring size $h splitstring ?&i listmap op tmp $j splitstring =-k -n %t tokens new_url $u ???? $v (w || scheme cd scheme dvd4x pos ,y y2milestone Old options: %1 $z findfirstof ?({ 4| new_options $} &~ substring ( size &? + + ? &? 4? &? -? %? repo_url repo_url_from_inf options url_tokens instmode isoimg serverdir share port url option_separator $? $? ,? foreach in_inf_key ZyppRepoURL &? ???? (? && 4? ,? y2milestone & Using %1 directly from install.inf: %2 ??? &? .? (? 4? -? ,? y2warning + Initial repository not found in install.inf$? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash ( findlastof / - size 4 & substring - size $ ( substring /& / & + + & & ( && 4 fs $ ( ftp4 ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & '! path 4% '( path /$+ ???? Port(, && 4- '. port $1 ??? $2 ?(4 45 proxy proxyport proxyproto proxyuser proxypassword workgroup $6 ???? Proxy(7 && 48 &9 + + + proxy= &: & $< ???? ProxyPort(= && 4> &? + + + proxyport= &@ & $B ???? ProxyProto(C && 4D &E + + + proxyproto= &F & $H ???? ProxyUser(I && 4J &K + + + proxyuser= &L & $N ???? ProxyPassword(O && 4P &Q + + + proxypassword= &R & $T ???? WorkDomain(U && 4V &W + + + workgroup= &X & (\ 4] &^ + + &_ &,` y2milestone options %1 (c 4d &e sformat iso:/?iso=%1&url=%2 ,h y2debug URL %1 ??? -i /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 61548 2010-03-31 14:38:36Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { y2warning("InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead"); return URL::HidePassword(url); } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string repo_url = Linuxrc::InstallInf("RepoURL"); if (regexpmatch(tolower(repo_url), "^cd:") || regexpmatch(tolower(repo_url), "^dvd:")) { y2milestone("Found CD/DVD device in Linuxrc RepoURL: %1", repo_url); string linuxrc_device = regexpsub(repo_url, "device=(.*)$", "\\1"); if (linuxrc_device != nil && linuxrc_device != "") { linuxrc_device = "/dev/" + linuxrc_device; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new repository URL */ global string installInf2Url (string extra_dir) { string repo_url = ""; // bnc #406162 boolean repo_url_from_inf = false; foreach (string in_inf_key, ["ZyppRepoURL"], { repo_url = Linuxrc::InstallInf (in_inf_key); if (repo_url != nil && repo_url != "") { y2milestone ("Using %1 directly from install.inf: %2", in_inf_key, URL::HidePassword (repo_url)); repo_url_from_inf = true; break; } }); if (repo_url_from_inf) { return repo_url; } // Initial repository hasn't been found in install.inf // Trying to guess it ... y2warning ("Initial repository not found in install.inf"); string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", URL::HidePassword(url)); return url; } } . d??<?< ??<? .. d??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE ??<?< ??<? . ??<?< ??<? .. ??<?< ??<? Am o d u l ue s ?????? ????MODULES ??<?< ??<? . ??<?< ??<? .. ??<?< ??<? AI n s t U PR L . y b c ??INSTURL YBC ??<?< ??<? ? AI n s t U ? L . y c p ??INSTURL YCP ??<?< ??<? I' YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url t url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build HidePassword 3 CheckMedia $ % , y2warning E InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead- ??? %& options devicelist devlist ready repo_url $' $( SCR::Read .probe.cdrom$) maplist d dev_name $- ,. foreach d dname $/ dev_name (1 && && notready 42 &3 add (9 size &: $= ???? RepoURL(> || regexpmatch tolower ^cd: regexpmatch tolower ^dvd:4? linuxrc_device ,@ y2milestone * Found CD/DVD device in Linuxrc RepoURL: %1 $A regexpsub device=(.*)$ \1(B && 4C &D + /dev/ ,E y2milestone Using Linuxrc device: %1 &H filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,P foreach d (Q 4R (S &T + , &U + (X 4Y &Z + devices= -\ %b url option_map pos $c $d findfirstof ?(e 4f opts optpairs $g substring size $h splitstring ?&i listmap op tmp $j splitstring =-k -n %t tokens new_url $u ???? $v (w || scheme cd scheme dvd4x pos ,y y2milestone Old options: %1 $z findfirstof ?({ 4| new_options $} &~ substring ( size &? + + ? &? 4? &? -? %? repo_url repo_url_from_inf options url_tokens instmode isoimg serverdir share port url option_separator $? $? ,? foreach in_inf_key ZyppRepoURL &? ???? (? && 4? ,? y2milestone & Using %1 directly from install.inf: %2 ??? &? .? (? 4? -? ,? y2warning + Initial repository not found in install.inf$? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash ( findlastof / - size 4 & substring - size $ ( substring /& / & + + & & ( && 4 fs $ ( ftp4 ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & '! path 4% '( path /$+ ???? Port(, && 4- '. port $1 ??? $2 ?(4 45 proxy proxyport proxyproto proxyuser proxypassword workgroup $6 ???? Proxy(7 && 48 &9 + + + proxy= &: & $< ???? ProxyPort(= && 4> &? + + + proxyport= &@ & $B ???? ProxyProto(C && 4D &E + + + proxyproto= &F & $H ???? ProxyUser(I && 4J &K + + + proxyuser= &L & $N ???? ProxyPassword(O && 4P &Q + + + proxypassword= &R & $T ???? WorkDomain(U && 4V &W + + + workgroup= &X & (\ 4] &^ + + &_ &,` y2milestone options %1 (c 4d &e sformat iso:/?iso=%1&url=%2 ,h y2debug URL %1 ??? -i /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 61548 2010-03-31 14:38:36Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { y2warning("InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead"); return URL::HidePassword(url); } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string repo_url = Linuxrc::InstallInf("RepoURL"); if (regexpmatch(tolower(repo_url), "^cd:") || regexpmatch(tolower(repo_url), "^dvd:")) { y2milestone("Found CD/DVD device in Linuxrc RepoURL: %1", repo_url); string linuxrc_device = regexpsub(repo_url, "device=(.*)$", "\\1"); if (linuxrc_device != nil && linuxrc_device != "") { linuxrc_device = "/dev/" + linuxrc_device; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new repository URL */ global string installInf2Url (string extra_dir) { string repo_url = ""; // bnc #406162 boolean repo_url_from_inf = false; foreach (string in_inf_key, ["ZyppRepoURL"], { repo_url = Linuxrc::InstallInf (in_inf_key); if (repo_url != nil && repo_url != "") { y2milestone ("Using %1 directly from install.inf: %2", in_inf_key, URL::HidePassword (repo_url)); repo_url_from_inf = true; break; } }); if (repo_url_from_inf) { return repo_url; } // Initial repository hasn't been found in install.inf // Trying to guess it ... y2warning ("Initial repository not found in install.inf"); string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", URL::HidePassword(url)); return url; } } . ??<?< ??<? .. ??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE d??<?< ??<? . d??<?< ??<? .. d??<?< ??<? Am o d u l ue s ?????? ????MODULES d??<?< ??<? . d??<?< ??<? .. d??<?< ??<? AI n s t U PR L . y b c ??INSTURL YBC d??<?< ??< ? AI n s t U ? L . y c p ??INSTURL YCP d??<?< ??<(I' YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url t url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build HidePassword 3 CheckMedia $ % , y2warning E InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead- ??? %& options devicelist devlist ready repo_url $' $( SCR::Read .probe.cdrom$) maplist d dev_name $- ,. foreach d dname $/ dev_name (1 && && notready 42 &3 add (9 size &: $= ???? RepoURL(> || regexpmatch tolower ^cd: regexpmatch tolower ^dvd:4? linuxrc_device ,@ y2milestone * Found CD/DVD device in Linuxrc RepoURL: %1 $A regexpsub device=(.*)$ \1(B && 4C &D + /dev/ ,E y2milestone Using Linuxrc device: %1 &H filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,P foreach d (Q 4R (S &T + , &U + (X 4Y &Z + devices= -\ %b url option_map pos $c $d findfirstof ?(e 4f opts optpairs $g substring size $h splitstring ?&i listmap op tmp $j splitstring =-k -n %t tokens new_url $u ???? $v (w || scheme cd scheme dvd4x pos ,y y2milestone Old options: %1 $z findfirstof ?({ 4| new_options $} &~ substring ( size &? + + ? &? 4? &? -? %? repo_url repo_url_from_inf options url_tokens instmode isoimg serverdir share port url option_separator $? $? ,? foreach in_inf_key ZyppRepoURL &? ???? (? && 4? ,? y2milestone & Using %1 directly from install.inf: %2 ??? &? .? (? 4? -? ,? y2warning + Initial repository not found in install.inf$? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash ( findlastof / - size 4 & substring - size $ ( substring /& / & + + & & ( && 4 fs $ ( ftp4 ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & '! path 4% '( path /$+ ???? Port(, && 4- '. port $1 ??? $2 ?(4 45 proxy proxyport proxyproto proxyuser proxypassword workgroup $6 ???? Proxy(7 && 48 &9 + + + proxy= &: & $< ???? ProxyPort(= && 4> &? + + + proxyport= &@ & $B ???? ProxyProto(C && 4D &E + + + proxyproto= &F & $H ???? ProxyUser(I && 4J &K + + + proxyuser= &L & $N ???? ProxyPassword(O && 4P &Q + + + proxypassword= &R & $T ???? WorkDomain(U && 4V &W + + + workgroup= &X & (\ 4] &^ + + &_ &,` y2milestone options %1 (c 4d &e sformat iso:/?iso=%1&url=%2 ,h y2debug URL %1 ??? -i /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 61548 2010-03-31 14:38:36Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { y2warning("InstURL::HidePassword() is obsoleted, use URL::HidePassword() instead"); return URL::HidePassword(url); } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string repo_url = Linuxrc::InstallInf("RepoURL"); if (regexpmatch(tolower(repo_url), "^cd:") || regexpmatch(tolower(repo_url), "^dvd:")) { y2milestone("Found CD/DVD device in Linuxrc RepoURL: %1", repo_url); string linuxrc_device = regexpsub(repo_url, "device=(.*)$", "\\1"); if (linuxrc_device != nil && linuxrc_device != "") { linuxrc_device = "/dev/" + linuxrc_device; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new repository URL */ global string installInf2Url (string extra_dir) { string repo_url = ""; // bnc #406162 boolean repo_url_from_inf = false; foreach (string in_inf_key, ["ZyppRepoURL"], { repo_url = Linuxrc::InstallInf (in_inf_key); if (repo_url != nil && repo_url != "") { y2milestone ("Using %1 directly from install.inf: %2", in_inf_key, URL::HidePassword (repo_url)); repo_url_from_inf = true; break; } }); if (repo_url_from_inf) { return repo_url; } // Initial repository hasn't been found in install.inf // Trying to guess it ... y2warning ("Initial repository not found in install.inf"); string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", URL::HidePassword(url)); return url; } } . d??<?< ??<< .. d??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE d??<?< ?`?<= . d??<?< ??<= .. d??<?< ??<< Am o d u l ue s ?????? ????MODULES dQj?<?< Uj?<> . d??<?< ??<> .. d??<?< ??<= AI n s t U ? L . y c p ??INSTURL YCP dQj?<?< Qj?<??$ AI n s t U PR L . y b c ??INSTURL YBC dQj?<?< Qj?<R? /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 56521 2009-04-01 09:34:46Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { // Url::Build(Url::Parse) transforms the URL too much, see #247249#c41 // replace ://user:password@ by ://user:PASSWORD@ string subd = regexpsub (url, "(.*)(://[^/:]*):[^/@]*@(.*)", "\\1\\2:PASSWORD@\\3"); return subd == nil? url: subd; } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string cdrom = Linuxrc::InstallInf("Cdrom"); if (cdrom != nil && cdrom != "") { y2milestone("Found CD/DVD device in /etc/install.inf: %1", cdrom); string linuxrc_device = "/dev/" + cdrom; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new Source URL */ global string installInf2Url (string extra_dir) { string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", HidePassword(url)); return url; } } YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url s url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build 3 CheckMedia $ % subd $ regexpsub (.*)(://[^/:]*):[^/@]*@(.*) \1\2:PASSWORD@\3-! %( options devicelist devlist ready cdrom $) $* SCR::Read .probe.cdrom$+ maplist d dev_name $/ ,0 foreach d dname $1 dev_name (3 && && notready 44 &5 add (; size &< $? ???? Cdrom(@ && 4A linuxrc_device ,B y2milestone + Found CD/DVD device in /etc/install.inf: %1 $C + /dev/ ,D y2milestone Using Linuxrc device: %1 &G filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,O foreach d (P 4Q (R &S + , &T + (W 4X &Y + devices= -[ %a url option_map pos $b $c findfirstof ?(d 4e opts optpairs $f substring size $g splitstring ?&h listmap op tmp $i splitstring =-j -m %s tokens new_url $t ???? $u (v || scheme cd scheme dvd4w pos ,x y2milestone Old options: %1 $y findfirstof ?(z 4{ new_options $| &} substring (~ size & + + ? &? 4? &? -? %? options url_tokens instmode isoimg serverdir share port url option_separator $? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash (? findlastof / - size 4? &? substring - size $? (? substring /&? / &? + + &? &? (? && 4? fs $? (? ftp4? ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & ' path 4 ' path /$ ???? Port( && 4 ' port $ ??? $ ?( 4 proxy proxyport proxyproto proxyuser proxypassword workgroup $ ???? Proxy( && 4! &" + + + proxy= &# & $% ???? ProxyPort(& && 4' &( + + + proxyport= &) & $+ ???? ProxyProto(, && 4- &. + + + proxyproto= &/ & $1 ???? ProxyUser(2 && 43 &4 + + + proxyuser= &5 & $7 ???? ProxyPassword(8 && 49 &: + + + proxypassword= &; & $= ???? WorkDomain(> && 4? &@ + + + workgroup= &A & (E 4F &G + + &H &,I y2milestone options %1 (L 4M &N sformat iso:/?iso=%1&url=%2 ,Q y2debug URL %1 -R . d??<?< ??<w .. d??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE d??<?< ?`?<x . d??<?< ??<x .. d??<?< ??<w Am o d u l ue s ?????? ????MODULES Pj?<?< Uj?<y . d??<?< ??<y .. d??<?< ??<x AI n s t U ? L . y c p ??INSTURL YCP Pj?<?< Pj?<z?$ AI n s t U PR L . y b c ??INSTURL YBC Pj?<?< Pj?<?? /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 56521 2009-04-01 09:34:46Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { // Url::Build(Url::Parse) transforms the URL too much, see #247249#c41 // replace ://user:password@ by ://user:PASSWORD@ string subd = regexpsub (url, "(.*)(://[^/:]*):[^/@]*@(.*)", "\\1\\2:PASSWORD@\\3"); return subd == nil? url: subd; } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string cdrom = Linuxrc::InstallInf("Cdrom"); if (cdrom != nil && cdrom != "") { y2milestone("Found CD/DVD device in /etc/install.inf: %1", cdrom); string linuxrc_device = "/dev/" + cdrom; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new Source URL */ global string installInf2Url (string extra_dir) { string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", HidePassword(url)); return url; } } YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url s url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build 3 CheckMedia $ % subd $ regexpsub (.*)(://[^/:]*):[^/@]*@(.*) \1\2:PASSWORD@\3-! %( options devicelist devlist ready cdrom $) $* SCR::Read .probe.cdrom$+ maplist d dev_name $/ ,0 foreach d dname $1 dev_name (3 && && notready 44 &5 add (; size &< $? ???? Cdrom(@ && 4A linuxrc_device ,B y2milestone + Found CD/DVD device in /etc/install.inf: %1 $C + /dev/ ,D y2milestone Using Linuxrc device: %1 &G filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,O foreach d (P 4Q (R &S + , &T + (W 4X &Y + devices= -[ %a url option_map pos $b $c findfirstof ?(d 4e opts optpairs $f substring size $g splitstring ?&h listmap op tmp $i splitstring =-j -m %s tokens new_url $t ???? $u (v || scheme cd scheme dvd4w pos ,x y2milestone Old options: %1 $y findfirstof ?(z 4{ new_options $| &} substring (~ size & + + ? &? 4? &? -? %? options url_tokens instmode isoimg serverdir share port url option_separator $? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash (? findlastof / - size 4? &? substring - size $? (? substring /&? / &? + + &? &? (? && 4? fs $? (? ftp4? ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & ' path 4 ' path /$ ???? Port( && 4 ' port $ ??? $ ?( 4 proxy proxyport proxyproto proxyuser proxypassword workgroup $ ???? Proxy( && 4! &" + + + proxy= &# & $% ???? ProxyPort(& && 4' &( + + + proxyport= &) & $+ ???? ProxyProto(, && 4- &. + + + proxyproto= &/ & $1 ???? ProxyUser(2 && 43 &4 + + + proxyuser= &5 & $7 ???? ProxyPassword(8 && 49 &: + + + proxypassword= &; & $= ???? WorkDomain(> && 4? &@ + + + workgroup= &A & (E 4F &G + + &H &,I y2milestone options %1 (L 4M &N sformat iso:/?iso=%1&url=%2 ,Q y2debug URL %1 -R . d??<?< ??<? .. d??<?< ??< Ay 2 u p d ~a t e ???? ????Y2UPDATE d??<?< ?`?<? . d??<?< ??<? .. d??<?< ??<? Am o d u l ue s ?????? ????MODULES dNj?<?< Uj?<? . d??<?< ??<? .. d??<?< ??<? AI n s t U ? L . y c p ??INSTURL YCP dNj?<?< Nj?<??$ AI n s t U PR L . y b c ??INSTURL YBC dNj?<?< Nj?<?? /** * Module: InstURL.ycp * * Authors: Klaus Kaempf (kkaempf@suse.de) * * Purpose: Convert /etc/install.inf data to URL * * * $Id: InstURL.ycp 56521 2009-04-01 09:34:46Z lslezak $ */ { textdomain "packager"; module "InstURL"; import "Linuxrc"; import "URL"; import "CheckMedia"; global boolean is_network = true; /** * Hide Password * @param url original URL * @return string new URL with hidden password */ global string HidePassword(string url) { // Url::Build(Url::Parse) transforms the URL too much, see #247249#c41 // replace ://user:password@ by ://user:PASSWORD@ string subd = regexpsub (url, "(.*)(://[^/:]*):[^/@]*@(.*)", "\\1\\2:PASSWORD@\\3"); return subd == nil? url: subd; } /** * Get device options for CD/DVD * @return string device options (devices=/dev/cdrom) */ string GetDevicesOption() { string options = ""; list<map> devicelist = (list<map>) SCR::Read(.probe.cdrom); list<string> devlist = maplist (map d, devicelist, { return d["dev_name"]:""; }); list<string> ready = []; foreach(map d, devicelist, { string dname = d["dev_name"]:""; if (d["notready"]:true == false && dname != nil && dname != "") { ready = add(ready, dname); } } ); if (size (ready) != 0) devlist = ready; // add the Linuxrc medium to the beginning string cdrom = Linuxrc::InstallInf("Cdrom"); if (cdrom != nil && cdrom != "") { y2milestone("Found CD/DVD device in /etc/install.inf: %1", cdrom); string linuxrc_device = "/dev/" + cdrom; y2milestone("Using Linuxrc device: %1", linuxrc_device); // remove the device if it is already in the list devlist = filter(string d, devlist, {return d != linuxrc_device;}); // put the linuxrc device at the beginning devlist = prepend(devlist, linuxrc_device); y2milestone("Using CD/DVD device list: %1", devlist); } foreach (string d, devlist, { if (d != "") { if (options != "") options = options + ","; options = options + d; } }); if (options != "") { options = "devices=" + options; } return options; } /** * */ map GetURLOptions (string url) { map<string,string> option_map = $[]; integer pos = findfirstof(url, "?"); if (pos!=nil) { string opts = substring(url, pos, size(url)); list<string> optpairs = splitstring(opts, "?"); option_map = listmap(string op, optpairs, ``{ list<string> tmp = splitstring(op, "="); return($[tmp[0]:"": tmp[1]:""]); }); } return option_map; } /** * */ global string RewriteCDUrl(string url) { map tokens = URL::Parse(url); string new_url = ""; if (tokens["scheme"]:"" == "cd" || tokens["scheme"]:"" == "dvd") { y2milestone("Old options: %1", GetURLOptions(url)); integer pos = findfirstof(url, "?"); if (pos != nil) { string new_options = GetDevicesOption(); new_url = substring(url, 0, pos); if (size(new_options) > 0 ) new_url = new_url + "?" + GetDevicesOption(); else new_url = url; } } else { new_url = url; } return new_url; } /** * Convert install.inf to a URL useable by the package manager * @param extra_dir append path to original URL * @return string new Source URL */ global string installInf2Url (string extra_dir) { string options = ""; map url_tokens = $[]; string instmode = Linuxrc::InstallInf("InstMode"); // mode if (instmode == nil) // defaults to "CD" { instmode = "cd"; } if ((instmode == "cd") // CD or DVD || (instmode == "dvd")) { is_network = false; options = GetDevicesOption(); } else if (instmode == "hd") // Harddisk { is_network = false; string partition = Linuxrc::InstallInf("Partition"); if (partition != nil ) options = "device=/dev/" + partition + "&filesystem=auto"; else y2error("no partition specified"); } url_tokens["scheme"] = instmode; if (is_network) { string username = Linuxrc::InstallInf("Username"); if ((username != nil) && (username != "")) { url_tokens["user"] = username; string password = Linuxrc::InstallInf("Password"); if ((password != nil) && (password != "")) { url_tokens["pass"] = password; } } string servername = Linuxrc::InstallInf("ServerName"); string server = Linuxrc::InstallInf("Server"); string serverip = Linuxrc::InstallInf("ServerIP"); if ((servername != nil) && (servername != "")) { url_tokens["host"] = servername; } else if ((server != nil) && (server != "")) { url_tokens["host"] = server; } else if ((serverip != nil) && (serverip != "")) { url_tokens["host"] = serverip; } } // is_network string isoimg = ""; string serverdir = Linuxrc::InstallInf("Serverdir"); if (Linuxrc::InstallInf("SourceType") == "file") { if (serverdir != "" && serverdir != nil) { list<string> sd_items = splitstring (serverdir, "/"); sd_items = filter (string i, sd_items, { return i != ""; }); integer last = size (sd_items) - 1; isoimg = sd_items[last]:""; sd_items[last] = ""; serverdir = mergestring (sd_items, "/"); } } /* if (((instmode == "hd") || is_network) // if serverdir needed && ((serverdir != nil) && (serverdir != ""))) // and is valid { // for smb mounts it is usual to not have a leading slash if (substring (serverdir, 0, 1) != "/") serverdir = "/" + serverdir; } */ string share = Linuxrc::InstallInf("Share"); if (extra_dir != "") { if (serverdir != nil) { // avoid too many slashes if (findlastof(serverdir, "/") == size(serverdir) - 1) { serverdir = substring(serverdir, 0 , size(serverdir) - 1 ); } string slash = ""; if (substring (extra_dir, 0, 1) != "/") slash = "/"; serverdir = serverdir + slash + extra_dir; slash = ""; } else serverdir = extra_dir; } if (serverdir != nil && serverdir != "") { string fs = ""; if (instmode == "ftp" ) { // ftp://foo/%2fbar is %2fbar on foo (relative) // ftp://foo/bar is bar on foo (absolute) // ftp://foo//bar is /bar on foo (relative) // Note: %2f is added by URL.ycp if the path starts with / if (substring (serverdir, 0, 3) == "%2f") serverdir = "/" + substring (serverdir, 3); fs = serverdir; } else if (instmode == "smb" && (share != nil) && (share != "")) { fs = share + "/" + serverdir; } else { fs = serverdir; } url_tokens["path"] = fs; } else { // FIXME don't know why it is needed // Needed as a seperator between URL and options (!) url_tokens["path"] = "/"; } string port = Linuxrc::InstallInf("Port"); if ((port != nil) && (port != "")) { url_tokens["port"] = port; } string url = URL::Build(url_tokens); string option_separator = "?"; if (is_network) { string proxy = Linuxrc::InstallInf("Proxy"); if ((proxy != nil) && (proxy != "")) { url = url + option_separator + "proxy=" + proxy; option_separator = "&"; } string proxyport = Linuxrc::InstallInf("ProxyPort"); if ((proxyport != nil) && (proxyport != "")) { url = url + option_separator + "proxyport=" + proxyport; option_separator = "&"; } string proxyproto = Linuxrc::InstallInf("ProxyProto"); if ((proxyproto != nil) && (proxyproto != "")) { url = url + option_separator + "proxyproto=" + proxyproto; option_separator = "&"; } string proxyuser = Linuxrc::InstallInf("ProxyUser"); if ((proxyuser != nil) && (proxyuser != "")) { url = url + option_separator + "proxyuser=" + proxyuser; option_separator = "&"; } string proxypassword = Linuxrc::InstallInf("ProxyPassword"); if ((proxypassword != nil) && (proxypassword != "")) { url = url + option_separator + "proxypassword=" + proxypassword; option_separator = "&"; } string workgroup = Linuxrc::InstallInf ("WorkDomain"); if (workgroup != nil && workgroup != "") { url = url + option_separator + "workgroup=" + workgroup; option_separator = "&"; } } // is_network if (options != "") { url = url + option_separator + options; option_separator = "&"; y2milestone ("options %1", options); } if (isoimg != "") { url = sformat ("iso:/?iso=%1&url=%2", isoimg, url); } y2debug ("URL %1", HidePassword(url)); return url; } } YaST bytecode 1.4.0 InstURL InstURL.ycp Linuxrc URL CheckMedia is_network HidePassword GetDevicesOption GetURLOptions RewriteCDUrl installInf2Url url s url ? extra_dir 3 SCR Read 0 packager3 Linuxrc InstallInf 3 URL Parse Build 3 CheckMedia $ % subd $ regexpsub (.*)(://[^/:]*):[^/@]*@(.*) \1\2:PASSWORD@\3-! %( options devicelist devlist ready cdrom $) $* SCR::Read .probe.cdrom$+ maplist d dev_name $/ ,0 foreach d dname $1 dev_name (3 && && notready 44 &5 add (; size &< $? ???? Cdrom(@ && 4A linuxrc_device ,B y2milestone + Found CD/DVD device in /etc/install.inf: %1 $C + /dev/ ,D y2milestone Using Linuxrc device: %1 &G filter d &J prepend ,L y2milestone Using CD/DVD device list: %1 ,O foreach d (P 4Q (R &S + , &T + (W 4X &Y + devices= -[ %a url option_map pos $b $c findfirstof ?(d 4e opts optpairs $f substring size $g splitstring ?&h listmap op tmp $i splitstring =-j -m %s tokens new_url $t ???? $u (v || scheme cd scheme dvd4w pos ,x y2milestone Old options: %1 $y findfirstof ?(z 4{ new_options $| &} substring (~ size & + + ? &? 4? &? -? %? options url_tokens instmode isoimg serverdir share port url option_separator $? $? $? ???? InstMode(? 4? &? cd (? || cd dvd4? &? &? (? hd4? partition &? $? ???? Partition(? &? + + device=/dev/ &filesystem=auto,? y2error no partition specified '? scheme (? 4? username servername server serverip $? ???? Username(? && 4? password '? user $? ???? Password(? && 4? '? pass $? ???? ServerName$? ???? Server$? ???? ServerIP(? && 4? '? host (? && 4? '? host (? && 4? '? host $? $? ???? Serverdir(? ???? SourceType file4? (? && 4? sd_items last $? splitstring /&? filter i $? - size &? '? &? mergestring / $? ???? Share(? 4? (? 4? slash (? findlastof / - size 4? &? substring - size $? (? substring /&? / &? + + &? &? (? && 4? fs $? (? ftp4? ( substring %2f& + / substring & ( && && smb 4 & + + / 4 & ' path 4 ' path /$ ???? Port( && 4 ' port $ ??? $ ?( 4 proxy proxyport proxyproto proxyuser proxypassword workgroup $ ???? Proxy( && 4! &" + + + proxy= &# & $% ???? ProxyPort(& && 4' &( + + + proxyport= &) & $+ ???? ProxyProto(, && 4- &. + + + proxyproto= &/ & $1 ???? ProxyUser(2 && 43 &4 + + + proxyuser= &5 & $7 ???? ProxyPassword(8 && 49 &: + + + proxypassword= &; & $= ???? WorkDomain(> && 4? &@ + + + workgroup= &A & (E 4F &G + + &H &,I y2milestone options %1 (L 4M &N sformat iso:/?iso=%1&url=%2 ,Q y2debug URL %1 -R ????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de