| Path : /usr/share/YaST2/modules/ |
| Current File : //usr/share/YaST2/modules/PortAliases.ybc |
YaST bytecode 1.4.0 PortAliases PortAliases.ycp SCR SERVICE_PORT_TO_NAME SERVICE_NAME_TO_PORT allowed_service_regexp IsAllowedPortName AllowedPortNameOrNumber QuoteString LoadAndReturnPortToName LoadAndReturnNameToPort
cache_not_allowed_ports GetListOfServiceAliases IsKnownPortName
GetPortNumber ] port_name q port port_name
port_name 3 SCR Execute 0 base3 SCR Execute $
ssh smtp5 domainC bootpsD bootpcE tftpP http www www-httpn pop3o sunrpc{ ntp
netbios-ns netbios-dgm netbios-ssn imap ldap https microsoft-ds isakmpw ipp| ldapsi rsync imaps pop3s8 ndl-aas ipsec-nat-t http-alt$6
bootpcD bootpsC domain5 httpP http-alt https imap imaps ippw ipsec-nat-t isakmp ldap ldaps| microsoft-ds ndl-aas8 netbios-dgm
netbios-ns netbios-ssn ntp{ pop3n pop3s rsynci smtp ssh sunrpco tftpE wwwP www-httpP $V I ^[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789*/+._-]*$%] (^ 4^ ,_
y2error
Invalid port name: %1 -` (b regexpmatch ^[0123456789]+$4b port_number $c tointeger -e && 4g -h regexpmatch %q -s A port name may consist of the characters 'a-z', 'A-Z', '0-9', and '*+._-'.
A port number may be a number from 0 to 65535.
No spaces are allowed.
base%z port_name &{ mergestring splitstring " \"&| mergestring splitstring * \*&} mergestring splitstring . \.-~ % port_number command found aliases $ + + grep "^[^#].*[ \t] 2 /" /etc/services | sed "s/\([^ \t]*\)[ \t]*.*/\1/"$ SCR::Execute .target.bash_output $ ( exit 4 , foreach alias splitstring stdout
( - & add 4 ,
y2error
Services Command: %1 -> %2 stderr - ' mergestring toset - % port_name command found alias_found ( ! 4 ,
y2error
Disallwed port-name '%1' - $ + + grep --perl-regexp "^ > [ \t]" /etc/services | sed "s/[^ \t]*[ \t]*\([^/ \t]*\).*/\1/"$ SCR::Execute .target.bash_output $ ( exit 4 , foreach alias splitstring stdout
( - & tointeger 4 ,
y2error
Services Command: %1 -> %2 stderr - ' - $
% service_aliases port_number $ $ ( regexpmatch ^[0123456789]+$4
sport_name & tointeger $ ( 4 & union splitstring ( 4 found_alias_port $ ( 4 & add tostring & union splitstring 4 ( ! contains
4 &
add
,
y2error
Port name '%1' is not allowed 4 ,
y2debug
Port name '%1' is not allowed - - toset % ( size 4 - - %
( ! regexpmatch ^[0123456789]+$4 port_number $ ( 4 - 4 - tointeger 4 -
tointeger