search for: splitpath

Displaying 11 results from an estimated 11 matches for "splitpath".

Did you mean: split_path
2010 May 07
1
[PATCH] Config: Check timestamps on directories when rebuilding transfer iso
...last; } + + # Also check if the containing directory has been updated. This + # will pick up the case where a file with an old timestamp has + # been moved into a directory. + my (undef, $dir, undef) = File::Spec->splitpath($path); + if (!exists($dirs{$dir})) { + my $dir_st = stat($dir); + if ($dir_st->mtime > $iso_st->mtime) { + $rebuild = 1; + last; + } + $dirs{$dir} = 1;...
2011 Jan 17
1
[PATCH] Unconditionally always rebuild the transfer iso
...last; - } - - # Also check if the containing directory has been updated. This - # will pick up the case where a file with an old timestamp has - # been moved into a directory. - my (undef, $dir, undef) = File::Spec->splitpath($path); - if (!exists($dirs{$dir})) { - my $dir_st = stat($dir); - if ($dir_st->mtime > $iso_st->mtime) { - $rebuild = 1; - last; - } - $dirs{$dir} = 1;...
2011 Jan 26
1
[PATCH] Don't use libvirt for volume information when converting with libvirtxml
...e: /var/lib/libvirt/images/p2v.img + # file format: raw + # virtual size: 8.0G (8589934592 bytes) + # disk size: 8.0G + my %info; + while(<$qemuimg>) { + next unless /^([^:]+):\s+(.*?)\s*$/; + $info{$1} = $2; + } + + my (undef, undef, $name) = File::Spec->splitpath($path); + my $format = $info{'file format'}; + + my $vsize = $info{'virtual size'}; + $vsize =~ /\s+\((\d+)\s+bytes\)$/ + or die("qemu-img returned unexpected virtual size: $vsize"); + my $size = $1; + + # For $usage, $is_sparse and $is_block, we need...
2010 Apr 09
1
[PATCH] Add SSH transfer method
...+ +=head1 METHODS + +=over + +=item transfer(conn, path, target) + +Transfer <path> from the remove server. Storage will be created using <target>. + +=cut + +sub transfer +{ + my $class = shift; + + my ($conn, $path, $target) = @_; + + my (undef, undef, $name) = File::Spec->splitpath($path); + + if ($target->volume_exists($name)) { + print STDERR user_message(__x("WARNING: storage volume {name} ". + "already exists on the target. NOT ". + "copying it again. Delete the...
2010 Mar 31
1
[PATCH] Add LocalCopy transfer method to transfer local files to a target
...ge. + +=head1 METHODS + +=over + +=item transfer(conn, path, target) + +Transfer <path> from local storage. Storage will be created using <target>. + +=cut + +sub transfer +{ + my $class = shift; + + my ($conn, $path, $target) = @_; + + my (undef, undef, $name) = File::Spec->splitpath($path); + + if ($target->volume_exists($name)) { + print STDERR user_message(__x("WARNING: storage volume {name} ". + "already exists on the target. NOT ". + "copying it again. Delete the...
2010 Sep 21
1
[PREVIEW ONLY] Refactor data transfer code
...err @@ -158,215 +184,282 @@ sub DESTROY $? = $retval; } -package Sys::VirtV2V::Target::RHEV::Vol; -use File::Path; -use File::Temp qw(tempdir); -use POSIX; +package Sys::VirtV2V::Connection::RHEVTarget::WriteStream; -use Sys::VirtV2V::Util qw(user_message); +use File::Spec::Functions qw(splitpath); +use Sys::VirtV2V::Util qw(user_message); use Locale::TextDomain 'virt-v2v'; -our %vols_by_path; -our @vols; -our $tmpdir; - -sub _new +sub new { my $class = shift; - my ($mountdir, $domainuuid, $insize) = @_; + my ($volume) = @_; my $self = {}; bless($self, $...
2006 Nov 13
7
[736] trunk/wxruby2/samples/dialogs/dialogs.rb: Fixed crashing bug in on_paint and made the code style more Ruby like.
..."> self </span><span class="lines">@@ -416,14 +415,14 @@ </span><span class="cx"> end </span><span class="cx"> </span><span class="cx"> # it is just a sample, would use SplitPath in real program </span><del>- @s_extDef = path[/[^\.]*$/] </del><ins>+ @ext_def = path[/[^\.]*$/] </ins><span class="cx"> </span><span class="cx"> log_message("You selected the file ''%s'', remembere...
2010 Feb 09
5
[PATCH 1/6] Convert config file to XML, and translate networks/bridge for all connections
Previously, only the LibVirtXML connection translated network and bridge names in imported metadata. This change moves this functionality in Converter, making it available to LibVirt connections as well. At the same time, the format of the config file is switched to XML. The primary driver for this is that the allowable syntax of a foreign network/bridge name is not known. Rather than create a
2009 Jul 24
2
[PATCH] Initial drop of virt-v2v
...+ print STDERR "Failed to create squashfs for file transfer\n"; + exit(1); + } + + # As transfer directory hierarchy is flat, remove all directory components + # from paths + foreach my $key (keys(%files)) { + my (undef, undef, $filename) = File::Spec->splitpath($files{$key}); + $files{$key} = $filename; + } +} + +############################################################################### +## Start of processing + +# Get a libvirt configuration for the guest +my $dom = $mdr->get_dom(); + +# Modify the storage in the guest according to conf...
2010 Feb 12
11
[PATCH 1/9] Convert config file to XML, and translate networks/bridge for all connections
Previously, only the LibVirtXML connection translated network and bridge names in imported metadata. This change moves this functionality in Converter, making it available to LibVirt connections as well. At the same time, the format of the config file is switched to XML. The primary driver for this is that the allowable syntax of a foreign network/bridge name is not known. Rather than create a
2010 Dec 01
3
Error While installing Wine on OSX version 10.4.1.1!!
...vice/Makefile > :info:build ../../tools/makedep -C. -S../.. -T../.. device.c > :info:build config.status: creating programs/winefile/Makefile > :info:build config.status: creating programs/winemenubuilder/Makefile > :info:build ../../tools/makedep -C. -S../.. -T../.. splitpath.c winefile.c Cs.rc Da.rc De.rc En.rc Es.rc Fr.rc He.rc Hu.rc It.rc Ja.rc Ko.rc Lt.rc Nl.rc No.rc Pl.rc Pt.rc Ro.rc Ru.rc Si.rc Sv.rc Tr.rc Uk.rc Zh.rc rsrc.rc > :info:build ../../tools/makedep -C. -S../.. -T../.. winemenubuilder.c > :info:build config.status:...