module CGI::Server-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut