~mclehman/guestctl

ref: 6053daccd97e65d0c636a146cb8a57634b5c4f2a guestctl/bin/guestctl-meta -rwxr-xr-x 336 bytes View raw
6053dacc — 0xFORDCOMMA Implement forward-compatible self-management system. 1 year, 2 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/env perl6

multi MAIN($guest, "commit") {
    run <<guestctl $guest commit>>;
}

multi MAIN($guest, "rollback", $image-tag) {
    run <<guestctl $guest rollback $image-tag>>;
}

multi MAIN($guest, "snapshots") {
    run <<guestctl $guest snapshots>>;
}

multi MAIN($guest, "restart") {
    run <<guestctl $guest restart>>;
}