home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 September / PCWSEP07.iso / Software / Linux / Linux Mint 3.0 Light / LinuxMint-3.0-Light.iso / casper / filesystem.squashfs / usr / sbin / popularity-contest < prev    next >
Encoding:
Text File  |  2007-02-05  |  3.6 KB  |  130 lines
  1. #!/usr/bin/perl -w
  2. #
  3. # Copyright (C) 2003 by Bill Allombert <ballombe@debian.org>
  4.  
  5. # This program is free software; you can redistribute it and/or modify
  6. # it under the terms of the GNU General Public License as published by
  7. # the Free Software Foundation; either version 2 of the License, or
  8. # (at your option) any later version.
  9. #
  10. # This program is distributed in the hope that it will be useful,
  11. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. # GNU General Public License for more details.
  14. #
  15. # You should have received a copy of the GNU General Public License
  16. # along with this program; if not, write to the Free Software
  17. # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18.  
  19. # based on a design and a bash/gawk script 
  20. # 
  21. # Copyright (C) 1998,2000 by Avery Pennarun, for the Debian Project.
  22. # Use, modify, and redistribute modified or unmodified versions in any
  23. # way you wish.
  24.  
  25. use strict;
  26. use 5.6.0;  
  27.  
  28. my $dpkg_db="/var/lib/dpkg/info";
  29. my $popcon_conf="/etc/popularity-contest.conf";
  30.  
  31. my %opts=();
  32.  
  33. # $popcon_conf is in shell-script format
  34. my $HOSTID = qx(unset MY_HOSTID; . $popcon_conf; echo \$MY_HOSTID );
  35.  
  36. chomp $HOSTID;
  37.  
  38. if ( $HOSTID eq "")
  39. {
  40.   print STDERR "You must set MY_HOSTID in $popcon_conf!\n";
  41.   exit 1;
  42. }
  43.  
  44. if ( $HOSTID eq "d41d8cd98f00b204e9800998ecf8427e")
  45. {
  46.   print STDERR "Warning: MY_HOSTID is the md5sum of the empty file!\n";
  47.   print STDERR "Please change it to the md5sum of a random file in $popcon_conf!\n";
  48. }
  49.  
  50. if ( $HOSTID !~ /^([a-f0-9]{32})$/)
  51. {
  52.   print STDERR "Error: MY_HOSTID does not match ^([a-f0-9]{32})\$\n";
  53.   print STDERR "Please edit $popcon_conf to use a valid md5sum value\n";
  54.   exit 1;
  55. }
  56.  
  57. # Architecture.
  58. my $debarch = `dpkg --print-installation-architecture`;
  59. chomp $debarch;
  60.  
  61. # Popcon release
  62. my $popconver=`dpkg-query --showformat='\${version}' --show popularity-contest`;
  63.  
  64. # Initialise time computations
  65.  
  66. my $now = time;
  67. my $daylen = 24 * 60 * 60;
  68. my $monthlen = $daylen * 30;
  69. my $lastmonth = $now - $monthlen;
  70.  
  71. my %popcon=();
  72.  
  73. #Read dpkg database of installed packages
  74.  
  75. open PACKAGES, "dpkg-query --show --showformat='\${status} \${package}\\n'|";
  76. while (<PACKAGES>)
  77. {
  78.   /^.*installed *(.+)$/ or next;
  79.   my $pkg=$1;
  80.   $popcon{$pkg}=[0,0,$pkg,"<NOFILES>"];
  81.   open FILES, "$dpkg_db/$pkg.list";
  82.   my $bestatime = undef;
  83.   while (<FILES>)
  84.   {
  85.     chop;
  86.     m{/bin/|/sbin/|^/usr/games/|\.[ah]$|\.pm|^/boot/System\.map-} or next;
  87.     -f $_ or next;
  88.     my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  89.                       $atime,$mtime,$ctime,$blksize,$blocks)
  90.                           = stat;
  91.     print STDERR if (!defined($atime));
  92.     if (!defined($bestatime) || $atime >= $bestatime)
  93.     {
  94.       $bestatime=$atime;
  95.       if ($atime < $lastmonth)
  96.       { 
  97.         # Not accessed since more than 30 days.
  98.         $popcon{$pkg}=[$atime,$ctime,$pkg,$_,"<OLD>"];
  99.       }
  100.       elsif ($ctime > $lastmonth && $atime-$ctime < $daylen)
  101.       {
  102.         # Installed/upgraded less than a month ago and not used after 
  103.         # install/upgrade day.
  104.         $popcon{$pkg}=[$atime,$ctime,$pkg,$_,"<RECENT-CTIME>"];
  105.       }
  106.       else
  107.       {
  108.         # Else we `vote' for the package.
  109.         $popcon{$pkg}=[$atime,$ctime,$pkg,$_];
  110.       }
  111.     }
  112.   }
  113.   close FILES;
  114. }
  115.  
  116. close PACKAGES;
  117.  
  118. # We're not done yet.  Sort the output in reverse by atime, and
  119. # add a header/footer.
  120.     
  121. print "POPULARITY-CONTEST-0 TIME:",time," ID:$HOSTID ".
  122.     "ARCH:$debarch POPCONVER:$popconver\n";
  123.  
  124. for (sort { $popcon{$b}[0] <=> $popcon{$a}[0] } keys %popcon)
  125. {
  126.   print join(' ',@{$popcon{$_}}),"\n";
  127. }
  128.  
  129. print "END-POPULARITY-CONTEST-0 TIME:",time,"\n";
  130.