Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

reboot for NT/2K

by idnopheq (Chaplain)
on Apr 23, 2001 at 14:07 UTC ( #74671=sourcecode: print w/replies, xml ) Need Help??
Category: NT Admin
Author/Contact Info idnopheq
Description: reboot -- restart the operating system

reboot restarts the hardware and operating system.

Although reboot can be run by the super-user at any time, shutdown is normally used first to warn all users logged in of the impending loss of service. See shutdown for details.

#!/usr/local/bin/perl -w

use strict;
use Win32;
use Getopt::Std;
use vars qw ( %Option );

my ($VERSION) = '$Revision: 1.0 $' =~ /([.\d]+)/;

my $warnings = 0;

# Print a usuage message on a unknown option.

$SIG {__WARN__} = sub {
    if (substr ($_ [0], 0, 14) eq "Unknown option") {die "Usage"};
    require File::Basename;
    $0 = File::Basename::basename ($0);
    $warnings = 1;
    warn "$0: @_";

$SIG {__DIE__} = sub {
    require File::Basename;
    $0 = File::Basename::basename ($0);
    if (substr ($_ [0], 0,  5) eq "Usage") {
        die <<EOF;
$0 (NT Perl bin utils) $VERSION
$0 [ -a | -q ] [ -h ]
    die "$0: @_";

# Get the options.

getopts ( 
    );                    # -h, -q & -a take no option

die "Usage" if ( $Option{'h'} || scalar keys %Option > 1 );

my $Server = "";

if ( $Option{'a'} ) {
  Win32::AbortSystemShutdown (
      or die "$^E\n";

my $Message = "Reboot initiated by " . getlogin . "\n";
my $Timeout = $Option{'q'} || "60";
my $ForceClose = $Option{'q'} || "0";
my $Reboot = "6";

Win32::InitiateSystemShutdown (
                   $Reboot - 5
  or die "$^E\n";


=head1 NAME

B<reboot> -- restart the operating system


B<reboot> [ -a ]

B<reboot> [ -q ]


B<reboot> restarts the hardware and operating system.

Although B<reboot> can be run by the super-user at any time, B<shutdow
+n> is normally used first to warn all users logged in of the impendin
+g loss of service. See B<shutdown> for details.

=head2 OPTIONS

=over 4

=item -a

Abort the B<reboot> command.

=item -q

Quick. Reboot quickly without notifying logged-in users or saving data

=item -h

Display syntax.



In the following example, B<reboot> is being executed on host foo in 6
+0 seconds.

example# reboot

In the example below, a quick reboot is requested immediately.

example# reboot -q

The following example aborts the above.

example# reboot -a


The working of B<reboot> is not influenced by any environment variable

=head1 BUGS

B<reboot> suffers from no known bugs at this time.


It does not make sense to talk about standards in a B<reboot> manual p


    Revision 1.0  2000/06/22 08:35:57  idnopheq
    Initial revision

=head1 AUTHOR

The Perl implementation of B<reboot> was written by Dexter Coffin, I<i>.


This program is copyright by Dexter Coffin 2000.

This program is free and open software. You may use, copy, modify, dis
and sell this program (and any modified variants) in any way you wish,
provided you do not restrict others from doing the same.

=head1 SEE ALSO

=for html
<a href="shutdown.html">shutdown</a><p>


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://74671]
[stevieb]: heh, yeah, sorry. This is integration testing for certain. In fact, it's even Continuous Integration ;)
[stevieb]: Obviously, Travis CI just won't cut it for these distributions...
[stevieb]: I went on my merry way writing a cross-platform, network-aware system that works across Perlbrew and Berrybrew systems and runs unit tests for Perl dists on all installed versions, with the ability to manage *brew commands themselves
[stevieb]: That worked out exceptionally well, as when I started that project, I hadn't delved into hardware development yet.
[stevieb]: found a issue in MetaCPAN::Client though today for my revdep tests. At least I think it's an issue

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2017-06-25 23:33 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (572 votes). Check out past polls.