--- loncom/lonnet/perl/lonnet.pm	2000/12/06 19:58:31	1.76
+++ loncom/lonnet/perl/lonnet.pm	2000/12/06 20:32:52	1.77
@@ -90,7 +90,7 @@ use Apache::File;
 use LWP::UserAgent();
 use HTTP::Headers;
 use vars 
-qw(%perlvar %hostname %homecache %spareid %hostdom %libserv %pr %prp %fe %fd $readit %metacache $unique);
+qw(%perlvar %hostname %homecache %spareid %hostdom %libserv %pr %prp %fe %fd $readit %metacache);
 use IO::Socket;
 use GDBM_File;
 use Apache::Constants qw(:common :http);
@@ -1639,7 +1639,7 @@ sub ireceipt {
     my $cudom=unpack("%32C*",$fudom);
     my $cucourseid=unpack("%32C*",$fucourseid);
     my $cusymb=unpack("%32C*",$fusymb);
-    my $cunique=unpack("%32C*",$unique);
+    my $cunique=unpack("%32C*",$perlvar{'lonReceipt'});
     return unpack("%32C*",$perlvar{'lonHostID'}).'-'.
            ($cunique%$cuname+
             $cunique%$cudom+
@@ -1800,24 +1800,6 @@ if ($readit ne 'done') {
     }
 }
 
-# --------------------------------------------------- Get CPU data as unique ID
-{
-   my @contents;
-   {
-    my $fh=Apache::File->new('/proc/cpuinfo');
-    @contents=<$fh>;
-   }
-   $unique='';
-   map {
-       my ($name,$value)=split(/\s*\:\s*/,$_);
-       if (($name eq 'vendor_id') || ($name=~/^model/) ||
-           ($name=~/^cpu/) || ($name eq 'stepping')) {
-	   $unique.=$value;
-       } 
-   } @contents;
-   $unique=~s/\W//g;
-}
-
 %metacache=();
 
 $readit='done';