| 1 | #! perl |
1 | #! perl |
|
|
2 | |
|
|
3 | use POSIX (); |
| 2 | |
4 | |
| 3 | # miscellaneous commands |
5 | # miscellaneous commands |
| 4 | |
6 | |
| 5 | sub rename_to($$$) { |
7 | sub rename_to($$$) { |
| 6 | my ($ob, $from, $to) = @_; |
8 | my ($ob, $from, $to) = @_; |
| … | |
… | |
| 105 | } |
107 | } |
| 106 | |
108 | |
| 107 | 1 |
109 | 1 |
| 108 | }; |
110 | }; |
| 109 | |
111 | |
|
|
112 | cf::register_command uptime => 0, sub { |
|
|
113 | my ($ob, $arg) = @_; |
|
|
114 | |
|
|
115 | my $startup = POSIX::strftime "%Y-%m-%d %H:%M:%S %Z", localtime $cf::UPTIME; |
|
|
116 | my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400; |
|
|
117 | $ob->reply (undef, "server started $startup, uptime ${runtime}\d"); |
|
|
118 | |
|
|
119 | 1 |
|
|
120 | }; |
|
|
121 | |
