xmltv/grab/zz_sdjson_sqlite tv_grab_zz_sdjson_sqlite, NONE, 1.1

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

Added Files:
	tv_grab_zz_sdjson_sqlite 
Log Message:
add Gary Buhrmaster's tv_grab_zz_sdjson_sqlite grabber!

--- NEW FILE: tv_grab_zz_sdjson_sqlite ---
#!/usr/bin/perl -w
#
# tv_grab_zz_sdjson_sqlite
#
# Copyright (c) 2016 Gary Buhrmaster <[email protected]>
#
# This code is distributed under the GNU General Public License v2 (GPLv2)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# version 2 as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
[...6658 lines suppressed...]
    print (STDERR "DEBUG: Entering " . (caller(0))[3] . "\n") if ($self->{'Debug'});

    if ($self->{'_Error'})
      {
        if ($self->{'RaiseError'})
          {
            Carp::croak($self->{'_ErrorString'});
          }
        if ($self->{'PrintError'})
          {
            Carp::carp($self->{'_ErrorString'});
          }
      }

    print (STDERR "DEBUG: Returning from " . (caller(0))[3] . "\n") if ($self->{'Debug'});

    return;
  }

1;

------------------------------------------------------------------------------