#!/usr/bin/perl -I/nwprod/lib/incmod/perl

# $Id: sub_burn_system_baseclass.pl,v 1.2 2004/02/17 22:53:27 smo Exp $

package Burn_System_Class;

#------------------------------------------------------------------------------
# Filename:  sub_burn_system_baseclass.pl
#
# Purpose:  Parent class for all burn reporting systems.
#
# By:  smo 9/16/2003
#
#  USDA Forest Service - Pacific Northwest Wildland Fire Labratory
#  Copyright (C) 2003-2004
#------------------------------------------------------------------------------

use Text::CSV_XS;
use IO::File;

$cwd = `pwd`;
# $cwd = system(pwd);
print ("luke- in smoke_sub_burn_system_baseclass.pl the cwd is $cwd \n");

sub new
{
    my $class = shift;
    my $self = { };
    bless($self, $class);
    return $self;
};

sub get_load_burn_data
{
    # virtual placeholder for method implemented in child classes
    die("Burn_System_Class baseclass get_load_burn_data called - check that <BURN>_SYSTEM is specified");
};

return 1;