~mclehman/guestctl

ref: 58c6fffa5fa69ecc05089493b7badc2169f9c936 guestctl/bin/guestctl-meta -rwxr-xr-x 336 bytes View raw
58c6fffa — 0xFORDCOMMA Merge upstream changes. 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>>;
}