xmltv/grab/ar tv_grab_ar,1.16,1.17

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

Modified Files:
	tv_grab_ar 
Log Message:
reinstate patch rev 1.12 to remove dependency on Switch

Index: tv_grab_ar
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/ar/tv_grab_ar,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** tv_grab_ar	20 Jun 2014 12:01:36 -0000	1.16
--- tv_grab_ar	28 Aug 2014 12:34:07 -0000	1.17
***************
*** 93,96 ****
--- 93,98 ----
  
  # Author's Updates
+ #   1.15   honir
+ #     *    Re-aply patch 1.12 which was inadvertently overwritten by 1.13
  #   1.14   honir
  #     *    Major modification to use new website structure
***************
*** 156,160 ****
  use HTML::Entities; # parse entities
  use IO::File;
- use Switch;
  
  use Encode qw(from_to is_utf8 _utf8_off encode decode);
--- 158,161 ----
***************
*** 1278,1332 ****
  						my $valor;
  						$valor=encodeco("UTF-8",trim($Propiedad->as_text));
! 						switch ($PropertyField) {
! 							case (m/Protagonista((s)?)/i) {
! 								$valor =~ s/, /,/g;
! 								my @algo =split(',', $valor);
! 								$credits{actor} = \@algo
! 							}
! 							case (m/Director((es)?)/i) { 
! 								$valor =~ s/, /,/g;
! 								my @algo =split(',', $valor);
! 								$credits{director} = \@algo
! 							}
! 							case (m/Conductor((es)?)/i) { 
! 								$valor =~ s/, /,/g;
! 								my @algo =split(',', $valor);
! 								$credits{presenter} = \@algo
! 							}
! 							case (m/G.nero/i) { 
! 								$ret{category} = $valor;
! 							}
! 							case (['Duración','Duración']) { 
! 								$valor =~ /(\d*)\s(.*)(\n|\r)?/i;
! 								my $TempLength=$1;
! 								my $tempunit=$2;
! 								$tempunit=~ s/^\s//;
! 								$tempunit=~ s/\s$//;
! #								$tempunit=~ s/minutos?/minutes/;
! #								$tempunit=~ s/horas?/hours/;
! #								$tempunit=~ s/segundos?/seconds/;
! #								if ($tempunit=~ s/minutos?/i) { $TempLength = ($TempLength *60) }	
! #								if ($tempunit=~ s/horas?/i) { $TempLength = ($TempLength *60) }	
! 								$ret{length} = ($TempLength *60);
! 							}
! 							case (m/Pa.s/i) { 
! 								$ret{country} = $valor;
! 							}
! 							case (['Año','Ano']) { 
! 								$ret{date} = $valor;
! 							}
! 							case ('Título original') { 
! 								$ret{title2} = $valor;
! 							}
! 							case ([m/Clasificaci.n/i]) { 
! 								$ret{rating} = $valor;
! 							}
! 							case "" { 
! #								print "ignoring useless data ... [$PropertyField]\n" ;;
! #								%ret->{''} = $valor;
! 							}
! 							else {}
  						}
! 					$PropertyField ="";
  					}
  				}
--- 1279,1329 ----
  						my $valor;
  						$valor=encodeco("UTF-8",trim($Propiedad->as_text));
! 						if ($PropertyField =~ m/Protagonista((s)?)/i ) {
! 							$valor =~ s/, /,/g;
! 							my @algo =split(',', $valor);
! 							$credits{actor} = \@algo
  						}
! 						elsif ($PropertyField =~ m/Director((es)?)/i) { 
! 							$valor =~ s/, /,/g;
! 							my @algo =split(',', $valor);
! 							$credits{director} = \@algo
! 						}
! 						elsif ($PropertyField =~ m/Conductor((es)?)/i) { 
! 							$valor =~ s/, /,/g;
! 							my @algo =split(',', $valor);
! 							$credits{presenter} = \@algo
! 						}
! 						elsif ($PropertyField =~ m/G.nero/i) { 
! 							$ret{category} = $valor;
! 						}
! 						elsif ($PropertyField =~ m/(Duración|Duración)/) { # html, utf-8 bytes, missing unicode chars
! 							$valor =~ /(\d*)\s(.*)(\n|\r)?/i;
! 							my $TempLength=$1;
! 							my $tempunit=$2;
! 							$tempunit=~ s/^\s//;
! 							$tempunit=~ s/\s$//;
! #							$tempunit=~ s/minutos?/minutes/;
! #							$tempunit=~ s/horas?/hours/;
! #							$tempunit=~ s/segundos?/seconds/;
! #							if ($tempunit=~ s/minutos?/i) { $TempLength = ($TempLength *60) }	
! #							if ($tempunit=~ s/horas?/i) { $TempLength = ($TempLength *60) }	
! 							$ret{length} = ($TempLength *60);
! 						}
! 						elsif ($PropertyField =~ m/Pa.s/i) { 
! 							$ret{country} = $valor;
! 						}
! 						elsif ($PropertyField =~ m/(Año|Ano)/) { 
! 							$ret{date} = $valor;
! 						}
! 						elsif ($PropertyField eq 'Título original') { 
! 							$ret{title2} = $valor;
! 						}
! 						elsif ($PropertyField =~ m/Clasificaci.n/i) { 
! 							$ret{rating} = $valor;
! 						}
! 						else { 
! 							print STDERR "ignoring useless data ... [$PropertyField]\n";
! 						}
! 					$PropertyField = '';
  					}
  				}

------------------------------------------------------------------------------
Slashdot TV.  
Video for Nerds.  Stuff that matters.
http://tv.slashdot.org/

_______________________________________________
xmltv-commit mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xmltv-commit