daily pastebin goal
46%
SHARE
TWEET

Untitled

a guest Jan 16th, 2018 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. [root@localhost modules]# firewall-cmd --list-all-zones
  2. block
  3.   target: %%REJECT%%
  4.   icmp-block-inversion: no
  5.   interfaces:
  6.   sources:
  7.   services:
  8.   ports:
  9.   protocols:
  10.   masquerade: no
  11.   forward-ports:
  12.   source-ports:
  13.   icmp-blocks:
  14.   rich rules:
  15.  
  16.  
  17. dmz
  18.   target: default
  19.   icmp-block-inversion: no
  20.   interfaces:
  21.   sources:
  22.   services: ssh
  23.   ports: 500/udp 4500/udp
  24.   protocols:
  25.   masquerade: yes
  26.   forward-ports:
  27.   source-ports:
  28.   icmp-blocks:
  29.   rich rules:
  30.     rule protocol value="esp" accept
  31.     rule protocol value="ah" accept
  32.  
  33. drop
  34.   target: DROP
  35.   icmp-block-inversion: no
  36.   interfaces:
  37.   sources:
  38.   services:
  39.   ports:
  40.   protocols:
  41.   masquerade: no
  42.   forward-ports:
  43.   source-ports:
  44.   icmp-blocks:
  45.   rich rules:
  46.  
  47.  
  48. external
  49.   target: default
  50.   icmp-block-inversion: no
  51.   interfaces:
  52.   sources:
  53.   services: ssh
  54.   ports:
  55.   protocols:
  56.   masquerade: yes
  57.   forward-ports:
  58.   source-ports:
  59.   icmp-blocks:
  60.   rich rules:
  61.  
  62.  
  63. home
  64.   target: default
  65.   icmp-block-inversion: no
  66.   interfaces:
  67.   sources:
  68.   services: ssh mdns samba-client dhcpv6-client
  69.   ports:
  70.   protocols:
  71.   masquerade: no
  72.   forward-ports:
  73.   source-ports:
  74.   icmp-blocks:
  75.   rich rules:
  76.  
  77.  
  78. internal
  79.   target: default
  80.   icmp-block-inversion: no
  81.   interfaces:
  82.   sources:
  83.   services: ssh mdns samba-client dhcpv6-client
  84.   ports:
  85.   protocols:
  86.   masquerade: no
  87.   forward-ports:
  88.   source-ports:
  89.   icmp-blocks:
  90.   rich rules:
  91.  
  92.  
  93. public (active)
  94.   target: default
  95.   icmp-block-inversion: no
  96.   interfaces: enp0s31f6
  97.   sources:
  98.   services: ssh dhcpv6-client http ipsec
  99.   ports: 8069/tcp 3050/tcp 8080/tcp 443/tcp 5904-5905/tcp 64212/tcp 64211/tcp 19735/tcp
  100.   protocols:
  101.   masquerade: yes
  102.   forward-ports:
  103.   source-ports:
  104.   icmp-blocks:
  105.   rich rules:
  106.  
  107.  
  108. trusted
  109.   target: ACCEPT
  110.   icmp-block-inversion: no
  111.   interfaces:
  112.   sources:
  113.   services:
  114.   ports:
  115.   protocols:
  116.   masquerade: no
  117.   forward-ports:
  118.   source-ports:
  119.   icmp-blocks:
  120.   rich rules:
  121.  
  122.  
  123. work
  124.   target: default
  125.   icmp-block-inversion: no
  126.   interfaces:
  127.   sources:
  128.   services: ssh dhcpv6-client
  129.   ports:
  130.   protocols:
  131.   masquerade: no
  132.   forward-ports:
  133.   source-ports:
  134.   icmp-blocks:
  135.   rich rules:
  136.    
  137. unit myclassImpl;
  138.  
  139. interface
  140.  
  141. uses Soap.InvokeRegistry, System.Types, Soap.XSBuiltIns, myclassIntf;
  142.  
  143. type
  144.  
  145.  { TMyClass }
  146.   TMyClass = class(TInvokableClass, IMyClass)
  147.   public
  148.     function myFunction(out aMessage: string): Integer; stdcall;
  149.   end;
  150.  
  151. implementation
  152.  
  153. uses
  154.   FireDAC.Comp.Client, FireDAC.Stan.Param, FireDAC.Stan.Def, FireDAC.DApt,
  155.   FireDAC.Phys.FBDef, FireDAC.Stan.Intf, FireDAC.Phys,
  156.   FireDAC.Phys.IBBase, FireDAC.Phys.FB, FireDAC.Stan.Option, FireDAC.Stan.Error,
  157.   FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Pool,
  158.   FireDAC.Stan.Async, Data.DB, SysUtils, IniFiles;
  159.  
  160. function TMyClass.myFunction(out aMessage: string): Integer; stdcall;
  161. var
  162.   aDatabase: TFDConnection;
  163. begin
  164.   try
  165.     Result:= 0;
  166.     try
  167.       aDatabase:= TFDConnection.Create(nil);
  168.       aTransaction:= TFDTransaction.Create(nil);
  169.       aQuery:= TFDQuery.Create(nil);
  170.       aDatabase.Params.Text:=
  171.         'Database=my_server:/opt/firebird/my_db.fb' + #13#10 +
  172.         'User_Name=sysdba' + #13#10 +
  173.         'Password=masterkey' + #13#10 +
  174.         'Protocol=TCPIP' + #13#10 +
  175.         'Server=my_server' + #13#10 +
  176.         'CharacterSet=UTF8' + #13#10 +
  177.         'DriverID=FB';
  178.       aDatabase.LoginPrompt:= False;
  179.       aDatabase.Connected:= True;
  180.  
  181.     finally
  182.       aDatabase.Free;
  183.     end;
  184.   except
  185.     on E: Exception do
  186.     begin
  187.      aMessage:= e.Message;
  188.      Result:= 10;
  189.     end;
  190.   end;
  191. end;
  192.  
  193. initialization
  194. { Invokable classes must be registered }
  195.    InvRegistry.RegisterInvokableClass(Tmyclass);
  196. end.
RAW Paste Data
Top