~mclehman/guestctl

ref: ca4eddb5a9e458118c7a3e4304806370ab894dfc guestctl/bin/guestctl-meta -rwxr-xr-x 260 bytes View raw
ca4eddb5 — 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
#!/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, "restart") {
    run <<guestctl $guest restart>>;
}