Delete DCR from staging

Hi,

I am trying to delete DCRs from staging using a workflow. The workflow is using an external task which calls a perl script. In the script I use the command line tool iwlistmod to get a list of the files/dcrs to be deleted. I remove the preceding x+, to get the path to the file. Then I try using iwsubmit to delete the files from staging, but it does not seem to work. I can use the same command manually and it deletes.

I have tried the following:
iwsubmit -w $filename "Submit Deleted DCR" (in perl it looks like: $command = "$iwhome/bin/ iwsubmit.exe -w $filename \"Submit Deleted DCR\""; )
I have also tried using -x, -wx

Any suggestions on why the files are not deleting?

Thanks,
Annie

Edited by ajhousto on 10/18/05 05:39 AM (server time).

Find more posts tagged with

Comments

Adam Stoller

You need to provide a bit more context - like what is the value of $filename?
The file has to be deleted in the workarea - and the deletion submitted from the workarea to staging in order to delete the file from staging. If you are trying to delete the file directly from staging it will not work - and that is by design (and correctly so).

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

ajhousto

The DCR will be deleted in another external task prior to submitting to staging. Currently, (to test) I have been manually deleting the files in my workarea and trying to delete them from staging using the script.
The value for $filename is \default\main\pressroom-publisher\apc\WORKAREA\ajhousto\templatedata\apps\pressroom-article\data\apc17
On this note...I tried something this morning after I posted and it seems to have worked. I added $results = `$command`; and that seems to complete the task.
Now...back to task of actually deleting the dcr from a script. I read in another thread that it is not a good idea to use the DOS del command, but to use the unlink ($filename) instead. Is there documentation on how to use the command? Also, will the file still be considered "modified" if it is deleted using the command?

Thanks for any help you can provide.

kaalraa

Annie,

Can you please use -w -u in the command.

$command = "$iwhome/bin/ iwsubmit.exe -w -u $filename \"Submit Deleted DCR\"";

- AKs.... The Shadow

Adam Stoller

unlink() is a perl function - for more details see: perldoc -f unlink
And yes, it will have the same effect in terms of showing the file as "modified / deleted" in TeamSite.

The value for $filename is \default\main\pressroom-publisher\apc\WORKAREA\ajhousto\templatedata\apps\pressroom-article\data\apc17

So that file, in that workarea, has been deleted - and you are then running iwsubmit on it using the command:

$command = "$iwhome/bin/ iwsubmit.exe -w $filename \"Submit Deleted DCR\"";
(Hmm - I assume the space before iwsubmit.exe was just in your post and not your code - yes?)

For clarity, if nothing else, I'd suggest writing the command as: $command = qq($iwhome/bin/iwsubmit.exe -w -x -r $filename "Submit Deleted DCR");

And then run the command with:

my $results = qx($command 2>&1);
if ($?){
    # error out - display contents of $results
}

The only other potential issue I see is that the path has single back-slashes - depending on the where/when this gets looked at it's possible that the back-slashes might get interpreted as escape-prefixes and something like "\templatedata" could be interpreted as [TAB]emplatedata -- but I'd worry about that only after looking at the output of $results if the command fails.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

ajhousto

Thanks for all of the suggestions. The code is working and submitting the deleted dcrs. I will now work on deleting the dcr using the unlink function.

Vijay_Lnt

Thanks for all of the suggestions. The code is working and submitting the deleted dcrs. I will now work on deleting the dcr using the unlink function.

Hi,

I am also facing same issue.

I tried this -
$command = qq($iwhome/bin/iwsubmit.exe -w -x -r $filename "Submit Deleted DCR");

And then run the command with:
my $results = qx($command 2>&1);
if ($?){
# error out - display contents of $results
}

This works fine if DCR is present in the workarea. But giving error - Can not locate file , if DCR is deleted from the workarea(Cross marked in workarea) and present in the staging.

Can you please send me details , how did u resolve this issue?
Thanks in advance.

- Vijay.

Surender

If you want to permanently delete the dcr from STAGING, just you need to submit the deleted dcr from WORKAREA.

Vijay_Lnt

If you want to permanently delete the dcr from STAGING, just you need to submit the deleted dcr from WORKAREA.

Yes, I want to delete DCR permanantly.
But I want to do it programatically. When I am trying using iwsubmit command, getting "File can not be located" error.
Any clue?

Thanks,
Vijay Patil.

Adam Stoller

Yes, I want to delete DCR permanantly.
But I want to do it programatically. When I am trying using iwsubmit command, getting "File can not be located" error.
Any clue?

Thanks,
Vijay Patil.

Y:\default\main\****\WORKAREA\integration>dir
[color=blue] Volume in drive Y is IFS Volume
 Volume Serial Number is E774-2000

 Directory of Y:\default\main\****\WORKAREA\integration
[...]
09/24/2008  08:41p                  75 foo
               5 File(s)         25,693 bytes
              12 Dir(s)  25,608,429,568 bytes free
Y:\default\main\****\WORKAREA\integration>del foo
Y:\default\main\****\WORKAREA\integration>iwsubmit -w -r foo "test delete"
ERROR:02006: Error locating foo
Y:\default\main\****\WORKAREA\integration>iwsubmit -w -r /default/main/****/WORKAREA/integration/foo "test delete"
deleted \foo

SUBMIT EVENT ID = 0x000022580000000000001770[/color]

Hope that helps.