| Path : /usr/share/YaST2/modules/ |
| Current File : //usr/share/YaST2/modules/ProductLicense.ybc |
YaST bytecode 1.4.0 ProductLicense < ProductLicense.ycp Directory InstShowInfo Language Popup Report Stage Wizard Mode FileUtils
ProductFeatures String WorkflowManager
Progress already_accepted_licenses license_patterns license_ids all_licenses GetId EnvLangToLangCode GetLicenseIdentString IsLicenseAlreadyAccepted LicenseHasBeenAccepted WhichLicenceFile GetLicenseContent license_file_print GetLicenseDialogTerm license_acceptance_needed AcceptanceNeeded SetAcceptanceNeeded GetLicenseDialog GetLicenseDialogHelp DisplayLicenseDialog ! CleanUpLicense " LicenseFiles # tmpdir $ license_dir % info_file & UnpackLicenseTgzFileToDirectory ' & SearchForLicense_FirstStageBaseProduct ( # SearchForLicense_LiveCDInstallation ) % SearchForLicense_NormalRunBaseProduct * SearchForLicense_AddOnProduct + GetSourceLicenseDirectory , lic_lang - InitLicenseData
. UpdateLicenseContent / AllLicensesAccepted 0 AllLicensesAcceptedOrDeclined 1 HandleLicenseDialogRet
2 CleanUp 3 AskLicenseAgreement
4 AskLicensesAgreement
5 AskAddOnLicenseAgreement
6 AskFirstStageLicenseAgreement
7 info_file_already_seen 8 # ShowFullScreenLicenseInInstallation 9 ShowLicenseInInstallation : AskInstalledLicenseAgreement
; AskInstalledLicensesAgreement
lic_lang licenses id id 3 3 src_id dir patterns action enable_back base_product require_agreement id 4 4 > dirs patterns action enable_back base_product require_agreement 5 5 src_id 6 6 src_id action 8 8 replace_point_ID src_id 9 9 replace_point_ID src_id : :
directory action ; ; directories action ? 3 Pkg SourceGetCurrent SourceProvideDigestedFile 3 UI UserInput QueryWidget
ReplaceWidget
GetDisplayInfo WidgetExists
3 SCR Read Write Execute 3 Directory 3 InstShowInfo
show_info_txt 3 Language selection_skipped GetLanguagesMap 3 Popup ContinueCancel YesNo ConfirmAbort
TimedOKCancel 3 Report Error 3 Stage stage initial 3 Wizard CloseDialog OpenNextBackDialog SetContents SetTitleIcon EnableNextButton SetFocusToNextButton 3 Mode mode live_installation autoinst 3 FileUtils GetSize MD5sum Exists 3 ProductFeatures 3 String Quote
EscapeTags 3 WorkflowManager 3 Progress IsRunning 0 packager$# $%
license\.html license\.%1\.html license\.htm license\.%1\.htm license\.txt license\.%1\.txt$- $3
%: id_text id $; (= regexpmatch ^license_language_.+4= &> regexpsub ^license_language_(.+) \14? ,@
y2error
Cannot get ID from %1 -C %H env_lang tmp $J (K &L splitstring .@ -N %X filename filemd5 ret (Y ! 4Y ,Z
y2error
License '%1' doesn't exist -[ $^ (_ 4_ -` $c
sformat
%1-%2 ,e
y2milestone
License ident for '%1' is '%2' -g %p
license_ident (q || 4q ,r
y2error
Wrong license ID '%1' -s -v contains %~
license_ident ( || 4 ,
y2error
Wrong license ID '%1' - ,
y2milestone
* Adding License ID '%1' as already accepted & add % license_language licenses license_file $ ( || 4 ,
y2error
/ No license file defined for language '%1' in %2 4 ,
y2milestone
Using license file: %1 - % license_file license_text rt $ $ SCR::Read .target.string ( 4 ,
sformat
Cannot read license file %1 packager & $ Empty ( regexpmatch </.*>& MinWidth P RichText id
sformat
welcome_text_%1 & MinWidth P RichText id
sformat
welcome_text_%1 + + <pre> </pre>- $ % languages license_language licenses id license_text rt lang_names_orig
lang_names
lang_pairs langs lang_selector_options $ $ $ ( 4 ,
y2error
Wrong definition of languages&
$
& mapmap code descr ( 4 ' en_US ( en 4 ' en en_US $ maplist l
name_print $ ( 4 l_short $ substring , foreach k v ( substring 4 & - - - & filter lang_pair ( 4 ,
y2warning
/ Unknown license language '%1', filtering out... - 4 - & sort a b lsorted lsorted_r $ lsort $ lsort - && $ maplist descr item id $ opt notify( size 4 & add disabled & toset add - VBox Left ComboBox id
sformat
license_language_%1 &Language packager ReplacePoint id
sformat
license_contents_rp_%1 $
% - % id new_value ( 4 ,
y2error
8 Undefined behavior (License ID %1), AcceptanceNeeded: %2 - ' ( 4 ,
y2milestone
* License agreement (ID %1) WILL be required 4! ,"
y2milestone
. License agreement (ID %1) will NOT be required %& languages license_language licenses id spare_space display space license_buttons $' $( TextMode $* VBox VSpacing RadioButtonGroup id
sformat
eula_%1 HBox HSpacing * VBox Left RadioButton id
sformat
yes_%1 opt notify& &Yes, I Agree to the License Agreement packager Left RadioButton id
sformat
no_%1 opt notify N&o, I Do Not Agree packager HSpacing * -@ VBox VSpacing HBox HSpacing * HSpacing * Empty VSpacing 0.5 HBox HSpacing * Left Label
sformat
Q If you want to print this EULA, you can find it
on the first media in the file %1 packager Empty HSpacing * VSpacing %e -g <p>Read the license agreement carefully and select
one of the available options. If you do not agree to the license agreement,
the configuration will be aborted.</p>
packager%q languages back license_language licenses id caption contents default_next_button_state $s License Agreement packager$u $y ,{
,~
yast-license,
% ! tmpdir ( && /, SCR::Execute .target.bash_output
sformat
rm -rf '%1' % " dir patterns ret files $
( - $ SCR::Read .target.dir ,
y2milestone
" All files in license directory: %1 ( -
, foreach p ( ! issubstring %4 , foreach file ( regexpmatch 4 ' + + / 4 regpat $
sformat
(.+), foreach file ( regexpmatch 4 key $ regexpsub \1' + + / ,
y2milestone
Files containing license: %1 - $ # $ $ $ % % & unpack_file to_directory ( 4 out $ SCR::Execute .target.bash_output
sformat
:
rm -rf '%1' && mkdir -p '%1' && cd '%1' && tar -xzf '%2'
( exit 4 ,
y2error
Cannot untar license -> %1 , : An error occurred while preparing the installation system. packager, ! - - 4 ,
y2error
No such file: %1 - % ' src_id fallback_dir license_file ,
y2milestone
) Getting license from installation product$ /license.tar.gz( 4 ,
y2milestone
" Installation Product has a license& #
sformat
%1/product-license/base-product/ SCR::Read .target.tmpdir( & # 4 & $ # & license.tar.gz4 & 4 ,
y2milestone
+ Installation Product doesn't have a license& ( /info.txt& % /info.txt % ( src_id fallback_dir license_locations ,
y2milestone
LiveCD License$ /usr/share/doc/licenses/ /& $ & % ,
foreach license_location &
sformat
%1/license.tar.gz (
4
,
y2milestone
Using license: %1 & #
sformat
%1/product-license/LiveCD/ SCR::Read .target.tmpdir( & # 4 & $ # & license.tar.gz4 , ! # . ( $ 4 ,
y2milestone
No license found in: %1 , foreach
info_location &
sformat
%1/README.BETA (" 4" ,#
y2milestone
Using info file: %1 &$ % .% () % 4) ,*
y2milestone
No info file found in: %1 %. ) src_id fallback_dir ,/
y2milestone
" Using default license directory %1 (1 41 &2 $ 43 ,4
y2warning
Fallback dir doesn't exist %1 &5 $ (8 /info.txt&9 % /info.txt %< * src_id fallback_dir license_file_location license_file out
,=
y2milestone
' Getting license info from repository %1 &? % /media.1/info.txt&B #
sformat
%1/product-license/%2/ SCR::Read .target.tmpdir $E /license.tar.gz$F (H 4H ,I
y2milestone
Using file %1 with licenses (K & # 4K &L $ # &M license.tar.gz4N &O $ -R ,U
y2milestone
Licenses in %1... not supported &X $ # &Y /media.1/license.zip(\ 4\ ,]
y2milestone
No license present&^ $ &_ # -a ,d
y2milestone
Product has a license$e SCR::Execute .target.bash_output
sformat
<
rm -rf '%1' && mkdir -p '%1' && cd '%1' && unzip -qqo '%2'
# (s exit 4s ,t
y2error
Cannot unzip license -> %1 ,v : An error occurred while preparing the installation system. packager,w ! # &x $ 4y &z $ # &{ /media.1/license.zip% + src_id fallback_dir ,
y2milestone
M Searching for licenses... (src_id: %1, fallback_dir: %2, mode: %3, stage: %4) & ( 4 , ( ( && ! 4 , ) ( && 4 , ' ( && 4 , * 4 ,
y2warning
. Source ID not defined, using fallback dir '%1' & $ ,
y2milestone
C ProductLicense settings: license_dir: %1, tmpdir: %2, info_file: %3 $ # % $ , % - src_id dir licenses available_langs require_agreement
license_ident id language langs license_ident_lang base_license , + (
sformat
%1/no-acceptance-needed $ 4 ( 4 ,
y2error
Parameter id not set4 , & " $ ' ( && % size - auto $ getenv LANG$ substring en_US en_GB en & maplist lang fn ( && contains en contains 4 ,
y2milestone
7 Removing license fallback '' as we already have 'en'...& filter one_lang en ,
y2milestone
Preffered lang: %1 ( size - auto & , find l haskey ( , & , ,
y2milestone
Preselected language: '%1' , ( , 4 ( # , ! # - auto $ , foreach
check_this en , ( contains 4 & ,
y2milestone
( Using localization '%1' (for license ID) . ( & , $ & (
&& && && tostring size ! 4
,
y2milestone
' License has been already accepted/shown,
! # - accepted4 ,
y2milestone
License needs to be shown( 4 ( 4 ,
y2milestone
( Initial stage, not opening any window...4 ,
-! cont%% . licenses id rp_id &' , id
sformat
license_language_%1 Value$( id
sformat
license_contents_rp_%1 (*
4* &+
(. - 4. ,/ , 40 ,1
y2error
No such widget: %1 %5 / accepted eula_id $8 $9 ,; foreach one_license_id license_accepted (< 4< ,=
y2milestone
' License %1 does not need to be accepted -> &A
sformat
eula_%1 (B - id 4B ,C
y2error
Widget %1 does not exist -D $H id
CurrentButton,I
y2milestone
License %1 accepted: %2 (K ! regexpmatch ^yes_4K &L .M -Q %T 0 ret eula_id $U $W ,X foreach one_license_id current_button (Y -Z &\
sformat
eula_%1 (] - id 4] ,^
y2error
Widget %1 does not exist $a id
CurrentButton(c 4c ,d
y2warning
+ License %1 hasn't been accepted or declined &e .f -j %m 1 licenses base_product action ret $n )p 4p &q (s && regexpmatch tostring ^license_language_4s ,t . tostring &u language(x && || regexpmatch tostring ^yes_ regexpmatch tostring ^no_4x (y 0 ,z
(| abort4| (~ 4~ ( painless4 ,
y2milestone
Aborting...& abort. 4 ( - Really abort the add-on product installation? packager4 ,
y2milestone
Aborting...& abort. ( next4 ( / 4 refuse_popup_text ( continue4 ,
y2milestone
> action in case of license refusal is continue, not asking user& accepted. $ U Refusing the license agreement cancels the installation.
Really refuse the agreement? packagerd Refusing the license agreement cancels the add-on
product installation. Really refuse the agreement? packager( ! 4 / 4 ,
y2milestone
License has been declined.( abort4 & abort. ( continue4 & accepted. ( halt4 & halt. ( ! The system is shutting down... packager
4 / 4 & halt. 4 ,
y2error
Unknown action %1 & abort. 4 ,
y2milestone
All licenses have been accepted.& accepted. ( back4 & back. 4 ,
y2error
Unhandled input: %1 -
% 2 & % 3 licenses available_langs
license_ident init_ret
created_new_dialog ret
& , $
$ $ $ - ( || auto accepted4 ,
y2milestone
Returning %1 - $ ( 4 ,
y2milestone
; Some progress is running, opening new dialog for license...,
&
,
, ( % , % $ ( 4 ,
y2milestone
1 AutoYaST: License has been accepted automatically& accepted4 & 1 ( && accepted 4 ,! ,$ ! # (' || && ! 4' ,(
,+ 2 -- %> 4 init_ret
created_new_dialog caption license_idents ret
licenses counter contents default_next_button_state (B || 4B ,C
y2error
No directories: %1 ,E " Internal Error: No license to show-F auto $I (K || auto accepted4K ,L
y2milestone
Returning %1 -M $P (T 4T ,U
y2milestone
; Some progress is running, opening new dialog for license...,V
&W $[ License Agreement packager$] $` $b $c $d VBox $g ,i foreach dir available_langs
license_ident tmp_licenses init_ret
license_term
&j + 'k
&m , $n $o $p
$r - (t &u add $w , (x 4x ,y
y2error
Oops, license term is: %1 4z &{ add ( % , % ' ( & ,
SCR::Write .target.ycp /tmp/a ,
,
yast-license,
( 4 ,
y2milestone
1 AutoYaST: License has been accepted automatically& accepted4 tmp_licenses $
& 1 ,
y2milestone
Dialog ret: %1 ( accepted4 , foreach
license_ident , , ! # ( || ! 4 ,
, 2 - % 5 - 3 abort tostring % 6 enable_back $ ( & - 3 tostring $ 7
% 8 licenses available_langs
license_ident init_ret
ret
& , $
$ $ $ - tostring , id , tostring $ ) 4 & ( && regexpmatch tostring ^license_language_[[:digit:]]+4 , . tostring 4 . , 2 - % 9 licenses available_langs
license_ident init_ret
rt id & , $
$ $ $ - tostring $ , tostring , id $ tostring ( && % 7 4 ( 4 ,
y2milestone
' Autoinstallation: Skipping info file...4 , % ' 7 , 2 -
%
: - 3 % ; - 4