search for: string_match

v1 was here: https://www.redhat.com/archives/libguestfs/2017-September/msg00135.html This is a more complete evolution of the earlier patch. It replaces most important uses of Str with PCRE throughout the code. It also extends the bindings with some useful features like case-insensitive regexps. The main places I *didn't* touch are the generator (GObject uses Str extensively); and

...62bb536..49811a7 100644 --- a/v2v/convert_windows.ml +++ b/v2v/convert_windows.ml @@ -183,7 +183,7 @@ let convert ~keep_serial_console (g : G.guestfs) inspect source rcaps = raise Not_found; let dispname = g#hivex_value_utf8 valueh in - if not (Str.string_match (Str.regexp ".*Parallels Tools.*") + if not (Str.string_match (Str.regexp ".*\\(Parallels\\|Virtuozzo\\) Tools.*") dispname 0) then raise Not_found; -- 2.5.5

...p the full hostname or ip-address but there is only an entry for the short hostname in my nis-database. Example of the smb log-file: --------/var/log/smb [2002/09/09 20:11:01, 3] lib/access.c:check_access(313) check_access: hostnames in host allow/deny list. [2002/09/09 20:11:01, 5] lib/access.c:string_match(87) looking for 141.21.7.54 of domain fzi in netgroup hosts-ids gave No [2002/09/09 20:11:01, 5] lib/access.c:string_match(87) looking for horch.fzi.de of domain fzi in netgroup hosts-ids gave No [2002/09/09 20:11:01, 5] lib/access.c:string_match(87) looking for 141.21.7.54 of domain fzi in n...

v1: https://www.redhat.com/archives/libguestfs/2017-September/msg00135.html v2: https://www.redhat.com/archives/libguestfs/2017-September/msg00158.html v3 is almost identical to v2, but I have added 4 extra commits to almost finish the job of replacing Str everywhere possible (note it's not possible to replace Str in common/mlstdutils or the generator because those are pure OCaml). As

...rnel_under_grub_prefix) in + let paths = Array.to_list paths in + if paths = [] then + error (f_"didn't find grub entry for kernel %s") vmlinuz; + let path = List.hd paths in + let rex = Str.regexp ".*/title\\[\\([1-9][0-9]*\\)\\]/kernel" in + if not (Str.string_match rex path 0) then + error (f_"internal error: regular expression did not match '%s'") + path; + let index = int_of_string (Str.matched_group 1 path) - 1 in + g#aug_set (sprintf "/files%s/default" grub_config) (string_of_int index); + g#aug_save () + +...

...ernel_under_grub_prefix) in + let paths = Array.to_list paths in + if paths = [] then + error (f_"didn't find grub entry for kernel %s") kernel; + let path = List.hd paths in + let rex = Str.regexp ".*/title\\[\\([1-9][0-9]*\\)\\]/kernel" in + if not (Str.string_match rex path 0) then + error (f_"internal error: regular expression did not match '%s'") + path; + let index = int_of_string (Str.matched_group 1 path) - 1 in + g#aug_set (sprintf "/files%s/default" grub_config) (string_of_int index); + g#aug_save () + +...

...; + let paths = Array.to_list paths in > + if paths = [] then > + error (f_"didn't find grub entry for kernel %s") vmlinuz; > + let path = List.hd paths in > + let rex = Str.regexp ".*/title\\[\\([1-9][0-9]*\\)\\]/kernel" in > + if not (Str.string_match rex path 0) then > + error (f_"internal error: regular expression did not match '%s'") > + path; > + let index = int_of_string (Str.matched_group 1 path) - 1 in > + g#aug_set (sprintf "/files%s/default" grub_config) (string_of_int index); &g...

...\\s" ^ + "path\\s(.*)") let btrfs_subvolume_list mountable = (* Execute 'btrfs subvolume list <fs>', and split the output into lines *) @@ -103,10 +103,10 @@ let btrfs_subvolume_list mountable = *) List.map ( fun line -> - if Str.string_match re_btrfs_subvolume_list line 0 then ( - let id = Int64.of_string (Str.matched_group 1 line) - and top_level_id = Int64.of_string (Str.matched_group 2 line) - and path = Str.matched_group 3 line in + if PCRE.matches re_btrfs_subvolume_list line then ( + let id = Int6...

...) @ - Array.to_list (g#glob_expand "/boot/vmlinuz-*") @ - Array.to_list (g#glob_expand "/vmlinuz-*") in - let rex = Str.regexp ".*\\.\\(dpkg-.*|rpmsave|rpmnew\\)$" in - let vmlinuzes = List.filter ( - fun file -> not (Str.string_match rex file 0) - ) vmlinuzes in - vmlinuzes in + let vmlinuzes = bootloader#list_kernels () in (* Map these to installed kernels. *) filter_map ( @@ -396,21 +279,8 @@ let rec convert ~keep_serial_console (g : G.guestfs) inspect source rcaps = (* Conversion step. *)...

Hi, I am just fiddeling with 2.2.0 final. I am having trouble with the config files I used with 2.2.0alpha3: check_access: no hostnames in host allow/deny list. [2001/04/18 12:33:37, 3] smbd/server.c:exit_server(473) Server exit (connection denied) [2001/04/18 12:33:37, 5] lib/access.c:string_match(89) looking for 131.234.166.51 of domain hni in netgroup hni_hosts gave No [2001/04/18 12:33:37, 0] lib/access.c:check_access(324) Denied connection from (131.234.166.51) [2001/04/18 12:33:37, 1] smbd/process.c:process_smb(824) Connection denied from 131.234.166.51 But testparm says it shou...

...overed by the RPM file list, this is basically - * guesswork. - *) - let initrd = - let files = g#ls "/boot" in - let files = Array.to_list files in - let files = - List.filter (fun n -> Str.string_match rex_initrd n 0) files in - let files = - List.filter ( - fun n -> - String.find n version >= 0 - ) files in - (* Don't consider kdump initramfs images (RHBZ#1138184). *) - let f...

...http://www.freebsd.org/doc/handbook/disk-organization.html]) + *) +and check_for_duplicated_bsd_root fses = + try + let is_primary_partition = function + | { m_type = (MountablePath | MountableBtrfsVol _) } -> false + | { m_type = MountableDevice; m_device = d } -> + Str.string_match re_primary_partition d 0 + in + + (* Try to find a "BSD primary", if there is one. *) + let bsd_primary = + List.find ( + function + | { fs_location = { mountable = mountable }; + role = RoleRoot { os_type = Some t } } -> + (t = OS_TYPE_...

This is a sort of follow-up to the Linux_bootloaders patch. It turns out all the kernel detection code is nicely self- contained and can therefore be moved to its own module. Rich.

...te that it is looking there: [2005/08/18 17:31:21, 3] lib/access.c:only_ipaddrs_in_list(291) only_ipaddrs_in_list: list has non-ip address (@hosts_smb) [2005/08/18 17:31:21, 3] lib/access.c:check_access(316) check_access: hostnames in host allow/deny list. [2005/08/18 17:31:21, 5] lib/access.c:string_match(100) looking for 128.40.40.89 of domain ee.ucl.ac.uk in netgroup hosts_smb gave No [2005/08/18 17:31:21, 5] lib/access.c:string_match(100) looking for getafix.ee.ucl.ac.uk of domain ee.ucl.ac.uk in netgroup hosts_smb gave No Does samba look up the netgroup information in LDAP or do I have to u...

...ence to `dlclose' lib/system.po: In function `sys_dlerror': lib/system.po(.text+0xb91): undefined reference to `dlerror' lib/username.po: In function `user_in_netgroup_list': lib/username.po(.text+0xab7): undefined reference to `yp_get_default_domain' lib/access.po: In function `string_match': lib/access.po(.text+0x1dd): undefined reference to `yp_get_default_domain' collect2: ld returned 1 exit status make: *** [nsswitch/libnss_wins.so] Error 1 What did I miss here? What else has to be installed? Thank you, Leon P.S. Please, reply to leondorfman@gmail.com

...Xml.xpathctx_set_current_context xpathctx n; let file_id = xpath_string_default "rasd:HostResource/text()" "" in - let rex = Str.regexp "^ovf:/disk/\\(.*\\)" in + let rex = Str.regexp "^\\(ovf:\\)?/disk/\\(.*\\)" in if Str.string_match rex file_id 0 then ( (* Chase the references through to the actual file name. *) - let file_id = Str.matched_group 1 file_id in + let file_id = Str.matched_group 2 file_id in let expr = sprintf "/ovf:Envelope/ovf:DiskSection/ovf:Disk[@ovf:diskId='%s&...

...th Not_found -> + error (f_"ssh-inject: $HOME environment variable is not set") in + let ssh_dir = home_dir // ".ssh" in + let files = Sys.readdir ssh_dir in + let files = Array.to_list files in + let files = List.filter ( + fun file -> + Str.string_match pubkey_re file 0 && + not (Str.string_match pubkey_ignore_re file 0) + ) files in + if files = [] then + error (f_"ssh-inject: no public key file found in %s") ssh_dir; + + (* Newest file. *) + let files = List.map ( + fun file -> + let fil...

...Xml.xpathctx_set_current_context xpathctx n; let file_id = xpath_to_string "rasd:HostResource/text()" "" in - let rex = Str.regexp "^ovf:/disk/\\(.*\\)" in + let rex = Str.regexp "^\\(ovf:\\)?/disk/\\(.*\\)" in if Str.string_match rex file_id 0 then ( (* Chase the references through to the actual file name. *) - let file_id = Str.matched_group 1 file_id in + let file_id = Str.matched_group 2 file_id in let expr = sprintf "/ovf:Envelope/ovf:DiskSection/ovf:Disk[@ovf:diskId='%s&...

...:= file > + ) files; > + > + (* verify sha1 from manifest file *) > + let mf = dir // !mf in > + let rex = Str.regexp "SHA1(\\(.*\\))= *\\(.*?\\).*$" in > + let lines = read_file mf in > + List.iter ( > + fun line -> > + if Str.string_match rex line 0 then > + let file = Str.matched_group 1 line in > + let sha1 = Str.matched_group 2 line in > + > + let cmd = sprintf "sha1sum %s" (dir // file) in Quoting needed, so: let cmd = sprintf "sha1sum %s" (quote (dir // file)) i...

...ex_node_h = uninstnode } -> + try + let valueh = g#hivex_node_get_value uninstnode "DisplayName" in + if valueh = 0L then + raise Not_found; + + let dispname = g#hivex_value_utf8 valueh in + if not (Str.string_match (Str.regexp ".*Parallels Tools.*") + dispname 0) then + raise Not_found; + + let uninstval = "UninstallString" in + let valueh = g#hivex_node_get_value uninstnode uninstval in + if v...