/[vz-tools]/trunk/lib/VZ.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/VZ.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 46 by dpavlin, Sun Mar 30 12:48:18 2008 UTC revision 59 by dpavlin, Mon Feb 2 15:10:11 2009 UTC
# Line 27  use Data::Dump qw/dump/; Line 27  use Data::Dump qw/dump/;
27  our $vz_root = '/vz';  our $vz_root = '/vz';
28  our $vz_conf = '/etc/vz/conf';  our $vz_conf = '/etc/vz/conf';
29    
30    $vz_root = '/var/lib/vz' if ! -e $vz_root && -e '/var/lib/vz';
31    
32  =head1 NAME  =head1 NAME
33    
34  VZ - helper functions for VZ tools  VZ - helper functions for VZ tools
# Line 88  sub conf_veids { Line 90  sub conf_veids {
90          open( my $cfgs, 'find /etc/vz/conf -maxdepth 1 -name "*.conf" |' ) || die "can't run find: $!";          open( my $cfgs, 'find /etc/vz/conf -maxdepth 1 -name "*.conf" |' ) || die "can't run find: $!";
91          while(<$cfgs>) {          while(<$cfgs>) {
92                  chomp;                  chomp;
93                  if ( m#^.+/(\d+)\.conf$# ) {                  if ( m{^.+/(\d+)\.conf$} ) {
94                          if ( -d "$vz_root/private/$1" ) {                          if ( -d "$vz_root/private/$1" ) {
95                                  push @c, $1;                                  push @c, $1;
96                          } else {                          } else {
# Line 156  sub vzlist { Line 158  sub vzlist {
158    
159    
160          my $output;          my $output;
161            $output = {} if defined $args->{hash};
162    
163          if ( ! @vzlist_fields ) {          if ( ! @vzlist_fields ) {
164                  open(my $vzlist, 'vzlist -L |') || die "can't start vzlist -L: $!";                  open(my $vzlist, 'vzlist -L |') || die "can't start vzlist -L: $!";
Legend:
Removed from v.46  
changed lines
  Added in v.59
  ViewVC Help
Powered by ViewVC 1.1.26