[system] / trunk / webwork2 / lib / WeBWorK / PG / IO.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/PG/IO.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 500 Revision 501
1################################################################################ 1################################################################################
2# WeBWorK mod_perl (c) 2000-2002 WeBWorK Project 2# WeBWorK mod-perl (c) 2000-2002 WeBWorK Project
3# $Id$ 3# $Id$
4################################################################################ 4################################################################################
5 5
6package WeBWorK::PG::IO; 6package WeBWorK::PG::IO;
7 7
8use strict; 8use strict;
9use warnings; 9use warnings;
10use Exporter;
10 11
11our @ISA = qw(Exporter); 12our @ISA = qw(Exporter);
12our @EXPORT = qw( 13our @EXPORT = qw(
13 includePGtext 14 includePGtext
14 send_mail_to 15 send_mail_to
… …
26 REMOTE_ADDR 27 REMOTE_ADDR
27); 28);
28 29
29 30
30=head2 Private functions (not methods) used by PGtranslator for file IO. 31=head2 Private functions (not methods) used by PGtranslator for file IO.
32
31=cut 33=cut
32 34
33our $REMOTE_HOST = (defined( $ENV{'REMOTE_HOST'} ) ) ? $ENV{'REMOTE_HOST'}: 'unknown host'; 35our $REMOTE_HOST = (defined( $ENV{'REMOTE_HOST'} ) ) ? $ENV{'REMOTE_HOST'}: 'unknown host';
34our $REMOTE_ADDR = (defined( $ENV{'REMOTE_ADDR'}) ) ? $ENV{'REMOTE_ADDR'}: 'unknown address'; 36our $REMOTE_ADDR = (defined( $ENV{'REMOTE_ADDR'}) ) ? $ENV{'REMOTE_ADDR'}: 'unknown address';
35 37
Legend:
Removed from v.500  
changed lines
  Added in v.501
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9