xmltv/grab/ar tv_grab_ar,1.19,1.20

Update of /cvsroot/xmltv/xmltv/grab/ar
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv3660/grab/ar

Modified Files:
	tv_grab_ar 
Log Message:
Update grabbers using deprecated Date::Manip TZ variable

Index: tv_grab_ar
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/ar/tv_grab_ar,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** tv_grab_ar	19 Oct 2014 17:18:40 -0000	1.19
--- tv_grab_ar	29 Jun 2015 16:24:28 -0000	1.20
***************
*** 4,7 ****
--- 4,10 ----
      if 0; # not running under some shell
  
+ eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
+     if 0; # not running under some shell
+ 
  =pod
  
***************
*** 177,186 ****
  $XMLTV::DST::Mode='none';
  
- #use XMLTV::TZ 'UTC'; # qw(parse_local_date);
- Date_Init('TZ=UTC');
  use XMLTV::Get_nice;
  use XMLTV::Mode;
  use XMLTV::Date;
  
  
  sub select_location();
--- 180,194 ----
  $XMLTV::DST::Mode='none';
  
  use XMLTV::Get_nice;
  use XMLTV::Mode;
  use XMLTV::Date;
  
+ BEGIN {
+     if (int(Date::Manip::DateManipVersion) >= 6) {
+ 	Date::Manip::Date_Init("SetDate=now,UTC");
+     } else {
+ 	Date::Manip::Date_Init("TZ=UTC");
+     }
+ }
  
  sub select_location();


------------------------------------------------------------------------------
Monitor 25 network devices or servers for free with OpManager!
OpManager is web-based network management software that monitors 
network devices and physical & virtual servers, alerts via email & sms 
for fault. Monitor 25 devices for free with no restriction. Download now
http://ad.doubleclick.net/ddm/clk/292181274;119417398;o