#**************************************************************
#**************************************************************
#  Copyright 2002 - The Regents of the University of California
#  All Rights Reserved

# Permission to use, copy, modify and distribute any part of this
# script for educational, research and non-profit purposes, without
# fee, and without a written agreement is hereby granted, provided
# that the above copyright notice, this paragraph and the following
# three paragraphs appear in all copies.

# Those desiring to incorporate this script into commercial products
# or use for commercial purposes should contact the Technology
# Transfer & Intellectual Property Services, University of California,
# San Diego, 9500 Gilman Drive, Mail Code 0910, La Jolla, CA
# 92093-0910, Ph: (858) 534-5815, FAX: (858) 534-7345,
# E-MAIL:invent@ucsd.edu.

# IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY
# PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL
# DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF THIS
# SCRIPT, EVEN IF THE UNIVERSITY OF CALIFORNIA HAS BEEN ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.

# THE SCRIPT IS PROVIDED HEREIN IS ON AN "AS IS" BASIS, AND THE
# UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
# SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.  THE UNIVERSITY OF
# CALIFORNIA MAKES NO REPRESENTATIONS AND EXTENDS NO WARRANTIES OF ANY
# KIND, EITHER IMPLIED OR EXPRESS, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR
# PURPOSE, OR THAT THE USE OF THE SCRIPT WILL NOT INFRINGE ANY PATENT,
# TRADEMARK OR OTHER RIGHTS.
# *************************************************************
# *************************************************************

#!/usr/bin/perl -s

# This script is used for the second-level parsing of output from
# extract.pl. Once the listing of mac addresses is available from
# parsing the Stations_*_*.out files, this script outputs a list of
# all occurrences of the MAC addresses in that file. For e.g., 
# perl script_mac.pl "0x020x99" < input_file 
#
# will output all the occurrences of all MAC address with 0x020x99 in
# them, along with the timestamp.

# look for variables matching "pattern"

$pattern = $ARGV[0];

print STDERR "Looking for '$pattern'...\n";

# find the first timestamp
while (<STDIN>) {
    next unless (/([\d]+\:[\d]+\:[\d]+)\s+([^\s]*$pattern)/);
    $time1 = $1;
    $mac1 = $2;
    last;
}

while (!eof(STDIN)) {
    print "$time1\t$mac1\n";

    while (<STDIN>) {
	next unless (/([\d]+\:[\d]+\:[\d]+)\s+([^\s]*$pattern)/);
	$time2 = $1;
	$mac2 = $2;
	last if ($mac1 eq $mac2);
    }

    $time1 = $time2;
#    $index = $index2;
}