Mercurial Mercurial > oss > FCL > sf > mw > web / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
webengine/osswebengine/cache/filter_log.pl
author Mikko Sunikka <mikko.sunikka@nokia.com>
Fri, 06 Nov 2009 13:15:00 +0200
changeset 29 a758fa0cb043
parent 27 60c5402cb945
child 32 9a9a761f03f1
permissions -rw-r--r--
Revision: 200941 Kit: 200945
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
29
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     1
 
#
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     2
 
# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     3
 
# All rights reserved.
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     4
 
# This component and the accompanying materials are made available
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     5
 
# under the terms of the License "Eclipse Public License v1.0"
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     6
 
# which accompanies this distribution, and is available
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     7
 
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     8
 
#
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
     9
 
# Initial Contributors:
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
    10
 
# Nokia Corporation - initial contribution.
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
    11
 
#
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
    12
 
# Contributors:
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
    13
 
#
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
    14
 
# Description:
a758fa0cb043 Revision: 200941
Mikko Sunikka <mikko.sunikka@nokia.com>
parents: 27
diff changeset 
    15
 
#
16
a359256acfc6 Revision: 200929
Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
parents:
diff changeset 
    16
 
#!/usr/bin/perl
a359256acfc6 Revision: 200929
Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
parents:
diff changeset 
    17
 












a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    18


open INH,"<",$ARGV[0];













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    19


open OUTH,">",$ARGV[1];













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    20














a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    21


foreach $line (<INH>){













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    22


  if($line =~ m/CACHEPOSTPONE:/)













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    23


  {













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    24


    print OUTH $line;













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    25


  }













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    26


}













a359256acfc6
Revision: 200929



Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>


parents: 

diff
changeset




    27
















FCL/sf/mw/web