search for: catfil

I try to do single proportion test on my category data. Here is my R script: library("ctest") catSignifTest <- function( catFile ) { ############################################################### ## Get the data sets from text file catData <- read.table( catFile ) ncols <- length(catData) nrows <- length(catData[,1]) ncol1 <- ncols - 1 probeNbr <- catData[1,] Achip <- catData[,ncol...

...irtIO"); + + $g->mkdir_p($driverdir); + + my ($virtio) = $config->match_app ($desc, 'virtio', $desc->{arch}); + $virtio = $config->get_transfer_path($g, $virtio); + + foreach my $src ($g->ls($virtio)) { + my $name = $src; + $src = File::Spec->catfile($virtio); + my $dst = File::Spec->catfile($driverdir, $name); + $g->cp_a($src, $dst); + } + + # Locate and download the SOFTWARE hive + my $sw_local = File::Spec->catfile($tmpdir, 'software'); + my $sw_guest = $g->case_sensitive_path('/windows/syst...

...8,14 +118,16 @@ sub get_transfer_iso foreach my $path ($dom->findnodes('/virt-v2v/app/path/text()')) { $path = $path->getData(); - # Get the absolute path if iso-root was defined my $abs; - if (defined($root)) { - $abs = File::Spec->catfile($root, $path); - } else { + if (File::Spec->file_name_is_absolute($path) || !defined($root)) { $abs = $path; } + # Make relative paths relative to iso-root if it was defined + else { + $abs = File::Spec->catfile($root, $path); +...

...my $transfer = $devices[$#devices]; + + $g->mount_ro($transfer, $self->{transfer_mount}); + $self->{transfer_mounted} = 1; + + # We'll need this to unmount in DESTROY + $self->{g} = $g; + } + } + + return File::Spec->catfile($self->{transfer_mount}, $path); +} + sub _get_search { my ($desc, $name, $arch) = @_; @@ -458,6 +496,19 @@ sub set_default_net_mapping $self->{default_net_mapping} = [ $name, $type ]; } +sub DESTROY +{ + my $self = shift; + + my $g = $self->{g}; + + # Remove the t...

...quot;/temp/v2v"); }; - _upload_files ($g, $tmpdir, $desc, $devices, $config); _add_viostor_to_registry ($g, $tmpdir, $desc, $devices, $config); _add_service_to_registry ($g, $tmpdir, $desc, $devices, $config); @@ -451,9 +447,20 @@ sub _upload_files $g->cp (File::Spec->catfile($files{virtio}, 'viostor.sys'), $g->case_sensitive_path ("/windows/system32/drivers")); - # Copy other files into a temp directory - my $path = "/temp/v2v"; - $path = $g->case_sensitive_path ($path); + # Copy other files into a temp dire...

...'installed in the guest, you must install it manually after '. + 'conversion.', path => $virtio_host, block => $block, + net => $net); + return ($block, $net); + } my ($block, $net); my $viostor_guest = File::Spec->catfile($virtio_guest, 'viostor.sys'); -- 1.8.1.4

...('/virt-v2v/app/path/text() | '. + '/virt-v2v/app/dep/text()')) { + $path = $path->getData(); + + # Get the absolute path if iso-root was defined + my $abs; + if (defined($root)) { + $abs = File::Spec->catfile($root, $path); + } else { + $abs = $path; + } + + # Check the referenced path is accessible + die(user_message(__x("Unable to access {path} referenced in ". + "the config file", + pat...

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

...$desc->{arch}); + $app = $self->_transfer_path ($app); + $g->cp ($app, $path); +} + +# Get full, local path of a file on the transfer mount +sub _transfer_path +{ + my $self = shift; + + my ($path) = @_; + + $self->_ensure_transfer_mounted(); + + return File::Spec->catfile($self->{transfer_mount}, $path); +} + +# Ensure that the transfer device is mounted. If not, mount it. +sub _ensure_transfer_mounted +{ + my $self = shift; + + # Return immediately if it's already mounted + return if(exists($self->{transfer_mount})); + + my $g = $self->{g}...

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

..."{error}", - path => "$path.meta", - error => $!))); + my $imagedir = catdir($root, 'images', $imageuuid); + my $imagetmpdir = catdir($tmpdir, $imageuuid); + my $volpath = catfile($imagetmpdir, $voluuid); - print $meta "DOMAIN=".$self->{domainuuid}."\n"; - print $meta "VOLTYPE=LEAF\n"; - print $meta "CTIME=$now\n"; - print $meta "FORMAT=RAW\n"; - print $meta "IMAGE=".$self-&g...