webengine/osswebengine/cache/cache_check.pl
author Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
Mon, 26 Oct 2009 08:28:45 +0200
changeset 27 60c5402cb945
parent 16 a359256acfc6
child 29 a758fa0cb043
permissions -rw-r--r--
Revision: 200941 Kit: 200943

#!/usr/bin/perl

#use Encode;

# open index file
open INH,'<','\epoc32\winscw\c\system\cache\index.dat' or die "couldn't open index.dat";
binmode INH;

my @missing_files;
my @missing_urls;

my @cache_uris;
my @cache_files;

my @dir_items = GetDirContents();
my @cache_content = ParseCacheIndex();
my @extra_files;
GetExtraFiles();

$count = 0;
print "\n\nMissing Items:\n";
foreach (@missing_files) {
  print "$_ - $missing_urls[$count++]\n";
}

print "\n\nExtra Files:\n";
foreach (@extra_files) {
  print "$_\n";
}




sub GetDirContents
{
  my @subdirectories = ( "0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f" );
  my @diritems = ();
  $index=0;
  foreach (@subdirectories) 
  {
    opendir DIRHANDLE,"\\epoc32\\winscw\\c\\system\\cache\\@subdirectories[$index++]" or die "couldn't open cache directory";
    my @tmp = readdir DIRHANDLE;
    push @diritems, @tmp;
  }

  return @diritems;
}

sub ParseCacheIndex
{
  $filenames;
  $numEntries = GetNumEntries();

  print "Index contains $numEntries items\n";

  while($numEntries)
  {
    @urifilenamearray = GetNextFilename();
    print "@urifilenamearray[1] - @urifilenamearray[0]\n";
    push @filenames, @urifilenamearray[0];
    push @filenames, @urifilenamearray[1];
    $numEntries--;
    CheckFilePresent(@urifilenamearray[1], @urifilenamearray[0]);
    push @cache_files, @urifilenamearray[1];
    push @cache_urls, @urifilenamearray[0];
  }  

  return @filenames;
}

sub GetNumEntries
{
  read (INH, $buffer, 4);  #throw away version number
  read (INH, $buffer, 4);  # read num of 16-bit chars in dir stub
  $charcount = unpack("l",$buffer);
  read (INH, $buffer, $charcount*2); #throw away dir stub
  read (INH, $buffer, 4); # read entry count
  $value = unpack("l",$buffer);
  return $value;
}

sub GetNextFilename
{
  my @return = ();

  read (INH, $buffer, 4);
  # get URI
  $stringlen = unpack("l",$buffer);
  read (INH, $buffer, $stringlen);

  @return[0] = $buffer;
#  print "$stringlen chars in URI:\n$buffer\n";

  # get unicode filename
#  read (INH, $buffer, 4);
#  $stringlen = unpack("l", $buffer);

  $stringlen = 8;
  my @filename_array = ();
  if($stringlen)
  {
    # convert $buffer from unicode to ascii
    while($stringlen) {
      read (INH, $buffer, 2);
      $string = unpack("a",$buffer);
      #print "$string";
      push @filename_array, $string;
      $stringlen--;
    }
  }
  @return[1] = join '',@filename_array;
  #print "\n\n";
  # gobble rest of item up to header data
  read (INH, $buffer, 24);

  read (INH, $buffer, 4);
  $stringlen = unpack("l",$buffer);
  read (INH, $buffer, $stringlen);	# throw away header data.

  return @return;
}

sub CheckFilePresent()
{
  my $filename = $_[0];
  my $url = $_[1];
  
  my $fqname = "\\epoc32\\winscw\\c\\system\\cache\\". (substr $filename, -1, 1) . "\\" . $filename;
  
  my $FILE;
  open FILE, $fqname or MissingItem($filename, $url);
}

sub MissingItem()
{
  push @missing_files, $_[0];
  push @missing_urls,  $_[1];
}

sub GetExtraFiles()
{
  # dir_items contains list of all filenames in all directories.
  my $dirnum = -1;
  my @dirnames = ( "0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f" );
  
  foreach $item (@dir_items)
  {
    my $match = 0;
    if($item eq '.')
    {
      $dirnum++;
    }
    elsif($item ne '..') # filter out directories
    {
      foreach (@cache_files)
      {
        $match = 1 if($_ eq $item);
      }
      if($match == 0)
      {
        my $fqname = "\\epoc32\\winscw\\c\\system\\cache\\".@dirnames[$dirnum]."\\".$item;
        push @extra_files, $fqname;
      }
    }
  }
}