use TeamSite::Config;use strict;my $branch_name = shift;die "usage: publish_edition branch_name" unless $branch_name;my $DEBUG=1;## Set some global strings to run iw commandsmy $iw_home = TeamSite::Config::iwgethome();my $fname = "\/tmp\/publish_edition.tmp"; # debug file nameif ($DEBUG) { open (DEBUG,">$fname")|| die "Could not open $fname: $!";}# we can now publish a new edition#iwpublish main/branch1 STAGING ed_002 'checkpoint'my $publish_cmd = "$iw_home\/bin\/iwpublish \-g $branch_name STAGING \'Published_by_publish_edition\.ipl\'";print DEBUG "publish_cmd: $publish_cmd \n" if $DEBUG;`$publish_cmd`;close DEBUG;