nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Deleting editions

ttriemst

Greetings All,

I'm sure this will be a simple question, but can someone point me in the direction of how to automatically remove old editions? It can be something like only keeping editions that are newer then 30 days or only keeping the last 30 editions. I have been looking through the documentation and see that I would use the iwrmed command, but I am not able to locate information on how to keep only the last 30 editions or last 30 days. Thanks a bunch.

TS 6.5.0 SP2 on Solaris 2.9

Find more posts tagged with

Comments

Frederik

that seems like a rather straightforward perl or shell script task, no?

If you're looking for an Out of the Box button to press, or command line tool with a --days argument, I think you won't find it.

gl,
Fred.

ttriemst

Thanks for the fast reply. I realize that I will have to write a perl or shell script, but I am hoping that someone can give me some pointers on how to write the script. I know that I will need to use the iwrmed command, but how do you determine in a script if an edition is older then 30 days? or if there are more then 30 editions?

Migrateduser

When you make your editions you could name them in a date format. You can write code to get the name of the edition matching today's date - 30 days, or a month back depending on how picky you wish to get.

You could also use the folder creation date of the editions to determine their age.

Frederik

but how do you determine in a script if an edition is older then 30 days? or if there are more then 30 editions?

oops, started to realise that I can't think of a single unix command that would give you the contents in a folder (branch/EDITION) that are older than 30 days.
you can do "find . -mtime +30" but that will also dig deeper in the subfolders.

So probably you need to manipulate the edition list a bit in perl (e.g. "ls -tc" minus "ls -tc | head -30" or so)

As taalgaard said, you can use the filesystem's modification date to get the time the edition was created. This will actually (IMHO) reflect the submit time of the submit that triggered the hidden edition to be created, that was later "named" by a "publish new edition" action. The real "publishdate" can be found with IWHOME/bin/iwattrib.

e.g. iwattrib gives me :

VPATH = /default/main/bzws/dev-app/EDITION/ts65_candidate_0001
crdate               Tue Feb  7 14:03:28 2006
publishdate          Mon Feb 13 17:55:59 2006
creator              g60921
owner                root
group                staff

$ ls -ld ts65_candidate_0001
dr-xr-xr-x   3 root     staff        512 Feb  7 14:03 ts65_candidate_0001

blacke

Once you have a list of editions, through a find command or something similar, you can map them according to their date:

my %map = map { $_ => (stat( "$iwmount/$singleBranch/EDITION/$_" ))[9] } @array_of edition_names;

Then sort them:

my @oldest = sort { $map{$a} <=> $map{$b} } keys %map;

Then foreach edition, just verify they are older then 30 days:

foreach my $singleEdition ( @oldest ) {
if( -M "$iwmount/$singleBranch/EDITION/$singleEdition" > 30 ) {
rm edition;
}
}

Hope that helps.

Eric

Frederik

oops, started to realise that I can't think of a single unix command that would give you the contents in a folder (branch/EDITION) that are older than 30 days.
you can do "find . -mtime +30" but that will also dig deeper in the subfolders.

I really have to stop on this topic... This will give you all old editions (+ 1 month)

find /.iwmnt/default/main/branch/EDITION/*  -prune -mtime +30

blacke

You can use the find command with the mtime option, but it takes alot longer than checking a specific directory name, especially if the branch is large. And unfortunately, the Solaris version of find doesn't have a max/min depth option like gnu find.

Eric

Frederik

Once you have a list of editions, through a find command or something similar, you can map them according to their date:

This bit of code is teaching me some interesting Perl options I hadn't seen/used yet... thx! Smiley Happy

ttriemst

Thanks all...that is exactly what I was looking for.