]>
git.proxmox.com Git - pve-manager.git/blob - bin/pveceph
16 use PVE
::RPCEnvironment
;
18 use PVE
::Tools
qw(run_command);
19 use PVE
::JSONSchema
qw(get_standard_option);
25 use base
qw(PVE::CLIHandler);
27 $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
31 die "please run as root\n" if $> != 0;
33 PVE
::INotify
::inotify_init
();
35 my $rpcenv = PVE
::RPCEnvironment-
>init('cli');
37 $rpcenv->init_request();
38 $rpcenv->set_language($ENV{LANG
});
39 $rpcenv->set_user('root@pam');
43 my $status = PVE
::Tools
::upid_read_status
($upid);
44 exit($status eq 'OK' ?
0 : -1);
47 my $nodename = PVE
::INotify
::nodename
();
49 __PACKAGE__-
>register_method ({
53 description
=> "Destroy ceph related data and configuration files.",
55 additionalProperties
=> 0,
59 returns
=> { type
=> 'null' },
66 my $rados = PVE
::RADOS-
>new();
67 my $monstat = $rados->mon_command({ prefix
=> 'mon_status' });
71 die "detected running ceph services- unable to purge data\n"
74 # fixme: this is dangerous - should we really support this function?
75 PVE
::CephTools
::purge_all_ceph_files
();
80 __PACKAGE__-
>register_method ({
84 description
=> "Install ceph related packages.",
86 additionalProperties
=> 0,
90 enum
=> ['dumpling', 'emperor', 'firefly', 'giant'],
95 returns
=> { type
=> 'null' },
99 my $cephver = $param->{version
} || 'firefly';
101 local $ENV{DEBIAN_FRONTEND
} = 'noninteractive';
103 my $keyurl = "https://ceph.com/git/?p=ceph.git;a=blob_plain;f=keys/release.asc";
105 print "download and import ceph reqpository keys\n";
107 # Note: wget on Debian wheezy cannot handle new ceph.com certificates, so
108 # we use LWP::UserAgent
109 #system("wget -q -O- '$keyurl'| apt-key add - 2>&1 >/dev/null") == 0 ||
110 #die "unable to download ceph release key\n";
112 my $tmp_key_file = "/tmp/ceph-release-keys.asc";
113 my $ua = LWP
::UserAgent-
>new(protocols_allowed
=> ['https'], timeout
=> 30);
115 my $response = $ua->get($keyurl);
116 if ($response->is_success) {
117 my $data = $response->decoded_content;
118 PVE
::Tools
::file_set_contents
($tmp_key_file, $data);
120 die "unable to download ceph release key: " . $response->status_line . "\n";
123 system("apt-key add $tmp_key_file 2>&1 >/dev/null") == 0 ||
124 die "unable to download ceph release key\n";
126 unlink $tmp_key_file;
128 my $source = "deb http://ceph.com/debian-$cephver wheezy main\n";
130 PVE
::Tools
::file_set_contents
("/etc/apt/sources.list.d/ceph.list", $source);
132 print "update available package list\n";
133 eval { run_command
(['apt-get', '-q', 'update'], outfunc
=> sub {}, errfunc
=> sub {}); };
135 run_command
(['apt-get', '-q', '--assume-yes', '--no-install-recommends',
136 '-o', 'Dpkg::Options::=--force-confnew',
138 'ceph', 'ceph-common', 'gdisk']);
144 init
=> [ 'PVE::API2::Ceph', 'init', [], { node
=> $nodename } ],
145 lspools
=> [ 'PVE::API2::Ceph', 'lspools', [], { node
=> $nodename }, sub {
148 printf("%-20s %10s %10s %20s\n", "Name", "size", "pg_num", "used");
149 foreach my $p (sort {$a->{pool_name
} cmp $b->{pool_name
}} @$res) {
150 printf("%-20s %10d %10d %20d\n", $p->{pool_name
}, $p->{size
}, $p->{pg_num
}, $p->{bytes_used
});
153 createpool
=> [ 'PVE::API2::Ceph', 'createpool', ['name'], { node
=> $nodename }],
154 destroypool
=> [ 'PVE::API2::Ceph', 'destroypool', ['name'], { node
=> $nodename } ],
155 createosd
=> [ 'PVE::API2::CephOSD', 'createosd', ['dev'], { node
=> $nodename }, $upid_exit],
156 destroyosd
=> [ 'PVE::API2::CephOSD', 'destroyosd', ['osdid'], { node
=> $nodename }, $upid_exit],
157 createmon
=> [ 'PVE::API2::Ceph', 'createmon', [], { node
=> $nodename }, $upid_exit],
158 destroymon
=> [ 'PVE::API2::Ceph', 'destroymon', ['monid'], { node
=> $nodename }, $upid_exit],
159 start
=> [ 'PVE::API2::Ceph', 'start', ['service'], { node
=> $nodename }, $upid_exit],
160 stop
=> [ 'PVE::API2::Ceph', 'stop', ['service'], { node
=> $nodename }, $upid_exit],
161 install
=> [ __PACKAGE__
, 'install', [] ],
162 purge
=> [ __PACKAGE__
, 'purge', [] ],
163 status
=> [ 'PVE::API2::Ceph', 'status', [], { node
=> $nodename }, sub {
165 my $json = JSON-
>new->allow_nonref;
166 print $json->pretty->encode($res) . "\n";
172 PVE
::CLIHandler
::handle_cmd
($cmddef, "pveceph", $cmd, \
@ARGV, undef, $0);
180 pveceph - tool to manage ceph services on pve nodes
188 Tool to manage ceph services on pve nodes.
190 =include pve_copyright