#!/usr/local/bin/perl
# 
# $Header: textIndexLogRemover.pl 03-jul-2006.01:58:38 ganessub Exp $
#
# textIndexLogRemover.pl
# 
# Copyright (c) 2006, Oracle. All rights reserved.  
#
#    NAME
#      textIndexLogRemover.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#     This script is used to remove a Text Index Log File.
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    ganessub    06/29/06 - Creation.
# 
# 
use strict;


# Command Line Arguments
my $argnum = @ARGV;

my $logFile = shift(@ARGV);

# End Arguments
#Since it is possible that frontend shows a non existing file based on the repository entry whereas the corresponding
#file does not exist in OS,we are ignoring such case with success
if (!-e "$logFile")
{ 
  print "success";
  exit 0;
}

unlink "$logFile";

if (-e "$logFile")
{
  print "Error: Could not Delete Text Index Log File : $logFile ";
  exit 0;
 }
 print "success";