#**************************************************************
#**************************************************************
#  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 the unique MAC addresses in that file. 
#
# use: perl pick_macs.pl < input_file

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

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

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

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

    $mac1 = $mac2;
#    $index = $index2;
}