version 1.2, 2003/12/02 12:06:25
|
version 1.4, 2007/08/22 19:53:22
|
Line 1
|
Line 1
|
# |
# |
# |
# |
|
# $Id$ |
# |
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
Line 313 sub Write {
|
Line 314 sub Write {
|
} |
} |
} |
} |
|
|
|
# Get: |
|
# return the entire contents of the file as a string. |
|
# Parameters: |
|
# $self - (this). |
|
# |
|
sub Get { |
|
my $self = shift; |
|
|
|
my $contents = ""; |
|
my $lines = $self->{LineArray}; |
|
my $length = @$lines; |
|
|
|
for (my $i = 0; $i < $length; $i++) { |
|
$contents .= $lines->[$i]."\n"; |
|
} |
|
return $contents; |
|
} |
|
|
1; |
1; |
#----------------------------- Documentation -------------------------------------- |
#----------------------------- Documentation -------------------------------------- |
# |
# |
Line 427 Writes the contents of the configuration
|
Line 446 Writes the contents of the configuration
|
|
|
=back |
=back |
|
|
|
=head2 Get () |
|
|
|
Return the entire contents of the configuration file as a single string. |
|
|
=head2 Comment ( line ) |
=head2 Comment ( line ) |
|
|
Static member that returns true if the line passed in is a comment or blank line. |
Static member that returns true if the line passed in is a comment or blank line. |
Line 443 Static member that returns the value of
|
Line 466 Static member that returns the value of
|
|
|
=back |
=back |
|
|
|
|
|
|
=head2 Index ( linearray, fieldno ) |
=head2 Index ( linearray, fieldno ) |
|
|
Returns a reference to a hash that indexes a line array by a particular field number. |
Returns a reference to a hash that indexes a line array by a particular field number. |