#!/usr/bin/perl -w

######################################################
# update key.conf file with a new key
# previous key will be destroyed
######################################################

use strict 'vars';

# license keys expire on 3/1/2005 

my $licenseNumber = "2084975147";
my $mymachine = `hostname`;
my %machineID = 
(
 "planetlab1.arizona-gigapop.net" => "-847520838",
 "planetlab2.arizona-gigapop.net" => "771728343",
 "planetlab1.millennium.berkeley.edu" => "23249163",
 "planetlab2.millennium.berkeley.edu" => "-1667008572",
 "planetlab3.millennium.berkeley.edu" => "-1355940263",
 "planetlab4.millennium.berkeley.edu" => "147448036",
 "planetlab5.millennium.berkeley.edu" => "1020901791",
 "planetlab6.millennium.berkeley.edu" => "-1610836023", 
 "planetlab7.millennium.berkeley.edu" => "172094709",
 "planetlab8.millennium.berkeley.edu" => "-525726542",
 "planetlab9.millennium.berkeley.edu" => "766454523",
 "planetlab10.millennium.berkeley.edu" => "1991976680", 
 "planetlab11.millennium.berkeley.edu" => "1559429725", 
 "planetlab12.millennium.berkeley.edu" => "-1315278216",
 "planetlab13.millennium.berkeley.edu" => "-1739280321",
 "planetlab14.millennium.berkeley.edu" => "976795731",
 "planetlab15.millennium.berkeley.edu" => "667963841",
 "planetlab16.millennium.berkeley.edu" => "1626746093",
 "planetlab-01.bu.edu" => "-503837397",
 "planetlab-02.bu.edu" => "1820197408",
 "planlab1.cs.caltech.edu" => "-1776380923",
 "planlab2.cs.caltech.edu" => "2081210788",
 "planetlab-1.cmcl.cs.cmu.edu" => "-1011539739",
 "planetlab-2.cmcl.cs.cmu.edu" => "-939326354",
 "planetlab-3.cmcl.cs.cmu.edu" => "1933855595",
 "planetlab1.comet.columbia.edu" => "-270536350",
 "planetlab2.comet.columbia.edu" => "358638856",
 "planetlab3.comet.columbia.edu" => "-1533353065",
 "planetlab1.cs.cornell.edu" => "-566201467",
 "planetlab2.cs.cornell.edu" => "2142673508",
 "planetlab0.ias.csusb.edu" => "1534773516",
 "planetlab1.ias.csusb.edu" => "668830624",
 "planetlab1.cs.dartmouth.edu" => "1221624066",
 "planetlab2.cs.dartmouth.edu" => "1775623771",
 "planetlab1.mnlab.cti.depaul.edu" => "249956767",
 "planetlab1.cs.duke.edu" => "-923115468",
 "planetlab2.cs.duke.edu" => "-2111420027",
 "planetlab3.cs.duke.edu" => "-2080136919",
 "lefthand.eecs.harvard.edu" => "-813091861",
 "righthand.eecs.harvard.edu" => "165754332",
 "nodea.howard.edu" => "401399198",
 "nodeb.howard.edu" => "1111692933",
 "planetlab1.cnds.jhu.edu" => "-1974091211",
 "planetlab2.cnds.jhu.edu" => "-73650313",
 "planetlab1.isi.jhu.edu" => "647605907",
 "planetlab2.isi.jhu.edu" => "-493776196",
 "kupl1.ittc.ku.edu" => "1613339632", 
 "kupl2.ittc.ku.edu" => "1985451928",
 "planetlab1.csail.mit.edu" => "-672722846",
 "planetlab2.csail.mit.edu" => "982635994",
 "planetlab3.csail.mit.edu" => "-1346016941",
 "planetlab4.csail.mit.edu" => "322069777",
 "planetlab5.csail.mit.edu" => "-745762621",
 "planetlab6.csail.mit.edu" => "2080201740",
 "planetlab7.csail.mit.edu" => "-1293074296",
 "planetlab1.cse.msu.edu" => "-6259294", 
 "planetlab2.cse.msu.edu" => "1235620611", 
 "planet02.csc.ncsu.edu" => "601060612",
 "planet03.csc.ncsu.edu" => "159185262",
 "planetlab1.cse.nd.edu" => "1133711415",
 "planetlab2.cse.nd.edu" => "-1226690179",
 "planetlab1.cs.northwestern.edu" => "1587414055",
 "planetlab2.cs.northwestern.edu" => "-315408890",
 "planetlab1.cs.nwu.edu" => "1587414055",
 "planetlab2.cs.nwu.edu" => "-315408890",
 "planet1.scs.cs.nyu.edu" => "-2030118318",
 "planet2.scs.cs.nyu.edu" => "-483439304",
 "inez.cse.ogi.edu" => "1391378796",
 "leo.cse.ogi.edu" => "1444716537",
 "planetlab-1.cs.princeton.edu" => "-1621234834",
 "planetlab-2.cs.princeton.edu" => "1407012882",
 "planetlab-3.cs.princeton.edu" => "323481884",
 "planetlab1.cs.purdue.edu" => "1614732491",
 "planetlab2.cs.purdue.edu" => "-2008786385",
 "ricepl-1.cs.rice.edu" => "-1160473088",
 "ricepl-2.cs.rice.edu" => "1783927985",
 "ricepl-3.cs.rice.edu" => "-920786850",
 "planet1.cs.rochester.edu" => "192268979", 
 "planet2.cs.rochester.edu" => "-1018459980",
 "planet1.ecse.rpi.edu" => "-1954395322",
 "planet2.ecse.rpi.edu" => "1648319799",
 "planetlab1.rutgers.edu" => "-1097097759",
 "planetlab2.rutgers.edu" => "-1196626665", 
 "planetlab-1.stanford.edu" => "-2068565933",
 "planetlab-2.stanford.edu" => "1823261320",
 "planetlab2.cs.stevens-tech.edu" => "-398884962",
 "planetlab1.tamu.edu" => "414595971",
 "planetlab2.tamu.edu" => "-1979197548",  
 "pl1.ece.toronto.edu" => "2014826747",
 "pl2.ece.toronto.edu" => "-321958965",
 "planetlab1.cs.ubc.ca" => "-285599010",
 "planetlab2.cs.ubc.ca" => "-2118941049",
 "planetlab1.enel.ucalgary.ca" => "2008266267",
 "plab1.ee.ucla.edu" => "1114059616",
 "plab2.ee.ucla.edu" => "2013948498",
 "planetlab1.cs.ucla.edu" => "101653820",
 "planetlab2.cs.ucla.edu" => "-434255433",
 "planet1.cs.ucsb.edu" => "-1938865394",
 "planet2.cs.ucsb.edu" => "-225156378",
 "planetslug1.cse.ucsc.edu" => "1027833295",
 "planetslug2.cse.ucsc.edu" => "-2034861406",
 "planetslug3.cse.ucsc.edu" => "161605616",
 "planetlab1.ucsd.edu" => "-1806227133",
 "planetlab2.ucsd.edu" => "1141811547",
 "planetlab3.ucsd.edu" => "-191295844",
 "itchy.cs.uga.edu" => "1446297295",
 "scratchy.cs.uga.edu" => "472507780",
 "planetlab1.netlab.uky.edu" => "1554598365",
 "planetlab2.netlab.uky.edu" => "-1273032578",
 "planetlab1.cs.umass.edu" => "1071981914",
 "planetlab2.cs.umass.edu" => "265320825",
 "planetlab1.cs.umd.edu" => "1373936288",
 "planetlab2.cs.umd.edu" => "2037303801",
 "planetlab1.eecs.umich.edu" => "-1987901936",
 "planetlab2.eecs.umich.edu" => "509632410", 
 "planetlab1.cs.unb.ca" => "552372425",
 "planetlab2.cs.unb.ca" => "-1332402254",
 "planetlab1.cs.unc.edu" => "-818595045",
 "planetlab2.cs.unc.edu" => "218991536",
 "planetlab1.unl.edu" => "-786714575",
 "planetlab2.unl.edu" => "-1846019200",
 "pl1.unm.edu" => "2052949173",
 "pl2.unm.edu" => "1268470891",
 "pl3.unm.edu" => "-1682888125",
 "planetlab1.cs.uoregon.edu" => "1355983765",
 "planetlab2.cs.uoregon.edu" => "263482799",
 "planetlab3.cs.uoregon.edu" => "-45594220",
 "planetlab1.cis.upenn.edu" => "1228589751",
 "planetlab2.cis.upenn.edu" => "-983100509",
 "planetlab1.flux.utah.edu" => "-243142741",
 "planetlab2.flux.utah.edu" => "1014316701",
 "planetlab3.flux.utah.edu" => "1660070746",
 "planetlab1.csres.utexas.edu" => "77884884",
 "planetlab2.csres.utexas.edu" => "-428729671",
 "planetlab3.csres.utexas.edu" => "-988640458",
 "pl1.cs.utk.edu" => "646444767",
 "pl2.cs.utk.edu" => "379039649",
 "planetlab1.cs.virginia.edu" => "1847532899",
 "planetlab2.cs.virginia.edu" => "-850778802",
 "planetlab01.cs.washington.edu" => "-651583137",
 "planetlab02.cs.washington.edu" => "253211545",
 "planetlab03.cs.washington.edu" => "-1392344177",
 "planetlab1.cs.wayne.edu" => "66166840",
 "planetlab2.cs.wayne.edu" => "-128082863", 
 "planetlab1.cs.wisc.edu" => "1834712088",
 "planetlab2.cs.wisc.edu" => "-836448776",
 "vn1.cs.wustl.edu" => "307392695",
 "vn2.cs.wustl.edu" => "2056001211",
 "vn3.cs.wustl.edu" => "201118277",
 "planet.cc.gt.atl.ga.us" => "-2080974945",
 "planet1.cc.gt.atl.ga.us" => "-559397725",
 "planetlab1.cs.uiuc.edu" => "-1658240660",
 "planetlab2.cs.uiuc.edu" => "-584590675",
 "planetlab2.enel.ucalgary.ca" => "2093879855",
 "planetlab1.ece.ucdavis.edu" => "-945405028", 
 "planetlab2.ece.ucdavis.edu" => "1313341663",
 "dell-kyoungso.cs.princeton.edu" => "1145522411",
 );

chop($mymachine);  # take off '\n' at the end of the string

# canonicalize to lower case
$mymachine =~ tr/A-Z/a-z/;

# if machine ID is not defined, nothing happens
if (defined($machineID{$mymachine})) {
    open THISFILE, ">/home/princeton_codeen/var/key.conf";
    print THISFILE "LicenseNumber $licenseNumber\n";
    print THISFILE "MachineID $machineID{$mymachine}\n";
    close THISFILE;
}