| Path : /usr/share/YaST2/modules/ |
| Current File : //usr/share/YaST2/modules/CWMFirewallInterfaces.ybc |
YaST bytecode 1.4.0 CWMFirewallInterfaces 1 CWMFirewallInterfaces.ycp CWM Label Mode NetworkInterfaces Popup SuSEFirewall Report Stage SuSEFirewallProposal
all_interfaces interface_items allowed_interfaces
configuration_changed any_iface_supported EnableOrDisableFirewallDetails SetFirewallLabel
InitAllInterfacesList UpdateFirewallStatus Selected2Opened " DisplayFirewallDetailsPopupHandler InitAllowedInterfaces StoreAllowedInterfaces InterfacesInit InterfacesHandle
InterfacesStore InterfacesValidate buggy_ifaces CheckPossbilityToChangeFirewall InterfacesInitWrapper InterfacesHandleWrapper
InterfacesStoreWrapper InterfacesValidateWrapper ! CreateInterfacesWidget " DisplayDetailsPopup
# OpenFirewallInit $ OpenFirewallStore % OpenFirewallHandle
& OpenFirewallInitWrapper ' OpenFirewallStoreWrapper ( OpenFirewallHandleWrapper
) OpenFirewallModified * EnableOpenFirewallWidget + DisableOpenFirewallWidget , OpenFirewallWidgetExists - OpenFirewallHelpTemplate . OpenFirewallHelp / CreateOpenFirewallWidget 0 Modified F services services widget key widget key event widget key event widget key event key key event key event key event ! ! settings " " settings # # 5 widget key $ $ P widget key event % % a widget key event & & key ' ' key event ( ( key event ) ) key * * + + , , - - restart_displayed . . restart_displayed / / settings 0 0 ^ 2 3 UI
OpenDialog CloseDialog ChangeWidget
QueryWidget
ReplaceWidget
WidgetExists
0 base3 CWM Run
GetProcessedWidget
CreateWidgets
MergeHelps
PrepareDialog 3 Label CancelButton OKButton 3 Mode installation update config 3 NetworkInterfaces Read GetValue List 3 Popup YesNo 3! SuSEFirewall GetModified IsServiceSupportedInZone special_all_interface_zone IsAnyNetworkInterfaceSupported SuSEFirewallIsInstalled GetZoneFullName GetProtectFromInternalZone GetEnableService GetZoneOfInterface ' GetInterfacesInZoneSupportingAnyFeature GetAllKnownInterfaces GetInterfacesInZone InterfacesSupportedByAnyFeature GetServicesInZones SetServices 3" Report Message 3# Stage initial 3& SuSEFirewallProposal SetChangedByUser $-
$2 $7 $<
$A %I enabled (J ! - id _cwm_open_firewall-K (L ! - id _cwm_firewall_details-M $N id _cwm_open_firewall Value(P &Q (R size
&S ,Z id _cwm_firewall_details Enabled %a status
label $b (c
not_installed4c (e 4e &g ; Firewall cannot be adjusted during first stage installation base4h &j ! Firewall package is not installed base(m off4n &p Firewall is disabled base(r closed4s &u Firewall port is closed base(w open_all4x &z ' Firewall port is open on all interfaces base(| custom4} & , Firewall port is open on selected interfaces base( no_ifaces4 & $ No network interfaces are configured base , id _cwm_firewall_status_rp Label % ( && && ! ! ! 4 ,
y2milestone
Reading NetworkInterfaces..., &
&
filter i
lo( ! 4 & maplist i
label ipaddr zone $
BOOTPROTO$
IPADDR$
( && 4 & 4 & % Interface is not assigned to any zone base( || || static 4 & 4 & toupper ( && &
sformat
%1/%2 ( || 4 &
4 &
sformat
%1 (%2 / %3)
- item id
4 & maplist i
item id
& % status
open (
, $ custom( || ! &
not_installed( ! & off( size
& no_ifaces( size
size & open_all( size & closed ,
y2milestone
Status: %1, All: %2, Allowed: %3
, $ || open_all custom, id _cwm_open_firewall Value % ifaces nm_ifaces_have_to_be_selected groups iface_groups
new_ifaces
,
y2milestone
Selected ifaces: %1 $ maplist i
( 4 & add & toset & filter g
$ maplist g
ifaces_also_supported_by_any $
(
4 ifaces_left_explicitely $ filter iface contains ,
y2milestone
Ifaces left in zone: %1 ( 4 - 4 - 4! -" ,%
y2milestone
Ifaces touched: %1 $& toset flatten &' filter i
-/ toset %5 widget common_details_handler $7 common_details_handler (9 ,: ! %F service_status ifaces_info internal_interfaces
$G
$I ,K foreach s status
,L foreach iface en
'M && &P filter iface en
,S
y2milestone
Status: %1 &T maplist iface en
(\ 4\ interfaces_supported_by_any $]
(_ size
4_ ,` foreach service 'a && (e 4e &f union
$m INT(n && size 4n ,o
y2milestone
# Unprotected internal interfaces: %1 &p union 4q ,r
y2milestone
; Internal zone is protected or there are no interfaces in it&
% forbidden_interfaces interfaces_supported_by_any ( !
- $ filter i
! contains
( || 4 ,
y2milestone
" Firewall proposal modified by user,
$ ( size 4 , ( size 4 , % (
4 , , id _cwm_interface_list_rp MultiSelectionBox id _cwm_interface_list. &Network Interfaces with Open Port in Firewall base , id _cwm_interface_list
SelectedItems % event_id $ ID ( _cwm_interface_select_all4 , id _cwm_interface_list
SelectedItems
- ( _cwm_interface_select_none4 , id _cwm_interface_list
SelectedItems - - % & id _cwm_interface_list
SelectedItems& &
% ifaces internal_interfaces firewall_ifaces added_ifaces removed_ifaces $ id _cwm_interface_list
SelectedItems& toset ,
y2milestone
Selected ifaces: %1 $ INT( && size 4 int_not_selected $
, foreach one_internal ( ! contains 4 &
add
( size
4 ,
y2warning
0 Unprotected internal interfaces not selected: %1
,
sformat
N These network interfaces assigned to internal network cannot be unselected:
%1 base mergestring
& union
,
y2milestone
Selected interfaces: %1 , id _cwm_interface_list
SelectedItems - ( size 4 ( ! W No interface is selected. Service will not
be available for other computers.
Continue? base4# -$ $= toset ,>
y2milestone
firewall_ifaces: %1 $@ filter i
! contains
,C
y2milestone
added_ifaces: %1 $E filter i
! contains
,H
y2milestone
removed_ifaces: %1 (L size 4M ifaces_list $N
mergestring
(O !
sformat
p Because of SuSE Firewall settings, the port
on the following interfaces will additionally be open:
%1
Continue? base
4W -X (] size 4^ ifaces_list $_
mergestring
(` !
sformat
g Because of SuSE Firewall settings, the port
on the following interfaces cannot be opened:
%1
Continue? base
4h -i -l $o %t
new_status all_ok
all_ifaces &v (z -{ ( - $ $ , foreach
one_interface
( ||
zone
zone 4 ,
y2warning
G Cannot enable service because interface %1 is not mentioned anywhere...
id ID & add
id interface & ( 4 - 4 ifaces_list $
mergestring
(
sformat
g Because of SuSE Firewall settings, the port
on the following interfaces cannot be opened:
%1
Continue? base
4 ( size size - - 4 &
- - % , % - % , % - % ! widget help ret $ HBox HSpacing VBox HSpacing 0 VSpacing ReplacePoint id _cwm_interface_list_rp MultiSelectionBox id _cwm_interface_list. Network &Interfaces with Open Port in Firewall base VSpacing HBox HStretch HWeight
PushButton id _cwm_interface_select_all Select &All base HWeight
PushButton id _cwm_interface_select_none Select &None base HStretch VSpacing HSpacing $ ( haskey help4 & help $ union widget custom
custom_widget help init store handle
validate_type function validate_function - % " w help contents ret
$ firewall_ifaces firewall_ifaces ! $ $ VBox firewall_ifaces ButtonBox
PushButton id ok opt okButton key_F10
PushButton id cancel opt cancelButton key_F9 &' ,( $)
,* -+ %5 # services
open_firewall firewall_enabled
(6 ! - id _cwm_open_firewall47 ,8
y2error
Firewall widget doesn't exist-9 $; services ,< ,= $> size $? && size
(A ! 4B &C ,D id _cwm_open_firewall Enabled ,F id _cwm_open_firewall Value ,G ,H %P $ services (Q ! - id _cwm_open_firewall4R ,S
y2error
( Widget _cwm_open_firewall does not exist-T $V services ,W %a % event_id $b ID (c _cwm_firewall_details4d handle_firewall_details
ret
$e
firewall_details_handler ,g
y2milestone
FD: %1
$h
,i
y2milestone
RT: %1
(j
4k &l
!
4o w $p filter k v services ,s " ,u ,v -w
(y _cwm_open_firewall4z value ${
id _cwm_open_firewall Value,~
y2milestone
OF: %1
(
&
& & ( !
4 , id _cwm_open_firewall Value !
, foreach one_iface & filter one_allowed , , &
- % & , # % ' , $ % ( - % % ) -
% * ( ! - id _cwm_open_firewall- ( ! - id _cwm_firewall_details- , id _cwm_open_firewall Enabled, % + ( ! - id _cwm_open_firewall- ( ! - id _cwm_firewall_details- , id _cwm_open_firewall Enabled , id _cwm_firewall_details Enabled % , - && - id _cwm_open_firewall - id _cwm_firewall_details% - help $ <p><b><big>Firewall Settings</big></b><br>
To open the firewall to allow access to the service from remote computers,
set <b>%1</b>.<br> base( 4 & + D To select interfaces on which to open the port,
click <b>%2</b>.<br> base & + = This option is available only if the firewall
is enabled.</p> base- % . -
sformat
- Open Port in Firewall base Firewall Details base% / help open_firewall_checkbox firewall_details_button display_firewall_details firewall_settings ret $ $ open_firewall_checkbox Open Port in &Firewall base $# firewall_details_button Firewall &Details... base $& || haskey firewall_details_handler display_details () haskey help4* &+ help 4. &/ . $2 CheckBox id _cwm_open_firewall opt notify (5 46 &7 HBox HSpacing
PushButton id _cwm_firewall_details &> VBox Left Left ReplacePoint id _cwm_firewall_status_rp Label Firewall is open base(F ! haskey services4G &H VBox &I ,J
y2error
Firewall services not specified $M union widget custom
custom_widget help init & store ' handle (
handle_events _cwm_firewall_details _cwm_open_firewall -W %^ 0 -_