~grubng-dev/grubng/clients-perl

« back to all changes in this revision

Viewing changes to Client/Utility.pm

  • Committer: yagnesh
  • Date: 2011-06-26 06:20:58 UTC
  • Revision ID: s_yagnesh@yahoo.com-20110626062058-gz2d86sl8x3j4amn
Added POD to all modules; added Makefile.PL; moved modules under /lib/ dir

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
# This program is free software: you can redistribute it and/or modify
2
 
# it under the terms of the GNU General Public License as published by
3
 
# the Free Software Foundation, either version 3 of the License, or
4
 
# (at your option) any later version.
5
 
#
6
 
# This program is distributed in the hope that it will be useful,
7
 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
8
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
9
 
# GNU General Public License for more details.
10
 
#
11
 
# You should have received a copy of the GNU General Public License
12
 
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
13
 
 
14
 
##################################################
15
 
# Grub::Client::Utility
16
 
# General utility methods used by other modules
17
 
# 5/9/2011
18
 
##################################################
19
 
package Client::Utility;
20
 
 
21
 
use Carp;
22
 
use LWP::UserAgent;
23
 
use strict;
24
 
use warnings;
25
 
require Exporter;
26
 
use Client::Logmanager qw(write);
27
 
 
28
 
@Client::Utility::ISA = qw(Exporter);
29
 
@Client::Utility::EXPORT_OK= qw(add_http_headers get_workunit);
30
 
 
31
 
##################################################################################################
32
 
# Grub::Client::Utility
33
 
# Adds headers to a LWP::UserAgent object
34
 
# Params:
35
 
# 1. LWP::UserAgent object reference - the useragent object to which headers should be added to
36
 
# 2. header name/value reference - reference to a hash that contains the headers and values to add
37
 
# 4/26/2011
38
 
####################################################################################################
39
 
sub add_http_headers($$){
40
 
  my ($object_r,$headers_r) = @_;
41
 
  foreach my $key (keys %$headers_r){
42
 
    write("Header: $key; Value: $$headers_r{$key}", 3);
43
 
    $object_r->default_header($key => $$headers_r{$key});
44
 
  }
45
 
}
46
 
 
47
 
1;
48