home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / sbin / popularity-contest < prev    next >
Encoding:
Text File  |  2006-05-11  |  4.0 KB  |  144 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. # Set if dpkg package version is older than 1.10, thus missing dpkg-query.
  62. my $olddpkg = 0;
  63. if ( ! -x "/usr/bin/dpkg-query" ) {
  64.     $olddpkg = 1;
  65. }
  66.  
  67. # Popcon release
  68. my $popconver;
  69. if ($olddpkg) {
  70.     $popconver = `dpkg-awk "Package: *popularity-contest.*" -- Version|grep ^Version|sed 's/^Version: //'`;
  71. } else {
  72.     $popconver=`dpkg-query --showformat='\${version}' --show popularity-contest 2>/dev/null`;
  73. }
  74.  
  75. # Initialise time computations
  76.  
  77. my $now = time;
  78. my $daylen = 24 * 60 * 60;
  79. my $monthlen = $daylen * 30;
  80. my $lastmonth = $now - $monthlen;
  81.  
  82. my %popcon=();
  83.  
  84. #Read dpkg database of installed packages
  85. if ($olddpkg) {
  86.     open PACKAGES, "dpkg-awk 'Status: .* installed' -- Package | grep '^Package:' | sed 's/^Package: /install ok installed /'|";
  87. } else {
  88.     open PACKAGES, "dpkg-query --show --showformat='\${status} \${package}\\n'|";
  89. }
  90. while (<PACKAGES>)
  91. {
  92.   /^.*installed *(.+)$/ or next;
  93.   my $pkg=$1;
  94.   $popcon{$pkg}=[0,0,$pkg,"<NOFILES>"];
  95.   open FILES, "$dpkg_db/$pkg.list";
  96.   my $bestatime = undef;
  97.   while (<FILES>)
  98.   {
  99.     chop;
  100.     m{/bin/|/sbin/|^/usr/games/|\.[ah]$|\.pm$} or next;
  101.     -f $_ or next;
  102.     my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  103.                       $atime,$mtime,$ctime,$blksize,$blocks)
  104.                           = stat;
  105.     print STDERR if (!defined($atime));
  106.     if (!defined($bestatime) || $atime >= $bestatime)
  107.     {
  108.       $bestatime=$atime;
  109.       if ($atime < $lastmonth)
  110.       { 
  111.         # Not accessed since more than 30 days.
  112.         $popcon{$pkg}=[$atime,$ctime,$pkg,$_,"<OLD>"];
  113.       }
  114.       elsif ($ctime > $lastmonth && $atime-$ctime < $daylen)
  115.       {
  116.         # Installed/upgraded less than a month ago and not used after 
  117.         # install/upgrade day.
  118.         $popcon{$pkg}=[$atime,$ctime,$pkg,$_,"<RECENT-CTIME>"];
  119.       }
  120.       else
  121.       {
  122.         # Else we `vote' for the package.
  123.         $popcon{$pkg}=[$atime,$ctime,$pkg,$_];
  124.       }
  125.     }
  126.   }
  127.   close FILES;
  128. }
  129.  
  130. close PACKAGES;
  131.  
  132. # We're not done yet.  Sort the output in reverse by atime, and
  133. # add a header/footer.
  134.     
  135. print "POPULARITY-CONTEST-0 TIME:",time," ID:$HOSTID ".
  136.     "ARCH:$debarch POPCONVER:$popconver\n";
  137.  
  138. for (sort { $popcon{$b}[0] <=> $popcon{$a}[0] } keys %popcon)
  139. {
  140.   print join(' ',@{$popcon{$_}}),"\n";
  141. }
  142.  
  143. print "END-POPULARITY-CONTEST-0 TIME:",time,"\n";
  144.