#!/usr/bin/perl
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# 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
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
# Get it at http://www.remote-exploit.org
#
# Fri Jan 11 15:08:21 CET 2002 Martin J. Muench <muench@gmc-online.de>

use strict;
#-- Non-buffered output --#
$|=1;
#-- GTK standart initialisation --#
use Gtk;
set_locale Gtk;
init Gtk;

####-- Location of the config File --####
        my $conffile = %ENV->{HOME}."/.wellenreiter.rc";

####-- Global variable devinitions --####
        #-- Basic return values --#
        my $false = 0;
        my $true = 1;

        #-- Logo container definition --#
        my @g_logo;

        #-- Temparray --#
        my @tmp;

        #-- Window declaration --#
        my $g_main_window;

        #-- Hash that contains the config file keys and values --#
        my (%fromconf, $fromconf);

        #-- Hash for the cisco card config file --#
        my (%g_airoconfig,$g_airoconfig);

        #-- Statistic-hashes declarations --#
        my (%g_rxstat,$g_rxstat);
        my (%g_txstat,$g_txstat);
        my (%g_miscstat,$g_miscstat);
        my (%g_wirelessstat, $g_wirelessstat, %g_wirelessconf,$g_wirelessconf);

	my (%g_last_values, $g_last_values);
