print $q->end_form(), $q->end_html();

print $q->end_form();

print $q->end_html();

use strict; 
use warnings;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use CGI; 
use CGI::Carp qw(fatalsToBrowser); 
 
my $q = CGI->new; 
print $q->header(); 
 
 
my $brlist = `/home/e027449/bin/lockctrl -s -show -br | awk '{print \$1}'`; 
my @vlist = split("\n",$brlist); 
 
print $q->start_html(-title=>'Select branch'); 
print $q->h3({-style=>'Color: red;'},'Select branch from the Drop Down List below...'); 
 
### start your code #### 
print $q->start_form(); 
print $q->popup_menu(-name=>'list', 
                     -id=>'list', 
                     -values=>\@vlist, 
                     -default=>'stp_rel_08_02_copy_only'); 
 
print $q->submit (-name=>'Lock',-value=>'Lock'), 
      $q->submit (-name=>'UnLock',-value=>'UnLock'), 
      $q->submit (-name=>'Status', -value=>'Status'), 
      $q->submit (-name=>'ManualCron',-value=>'ManualCron'); 
 
### end your code ###### 
print "Selected value: ".$q->param('list'); 
 
print $q->end_form(); 
my $branch = $q->param('list'); 
 
my $lock = $q->param('Lock'); 
my $unlock = $q->param('UnLock'); 
my $state = $q->param('Status'); 
my $cron = $q->param('ManualCron'); 
 
#print "check 22222:$branch\n"; 
 
if ($lock) { 
   print "executing lock\n"; 
   my $status = `/home/e027449/bin/lockctrl -s -lock -br $branch -repository stp`; 
   #my $status = system("$script"); 
   if (! $status ){ 
      print $q->h2 ("$branch Branch is now locked"); 
   } 
   else { 
      print "Lock not executing\n"; 
   } 
} 
elsif ($unlock) { 
   print "executing unlock\n"; 
   my $script = "/usr/local/adm/branch_key $branch 'unlock'"; 
   my $status = system($script); 
   if (! $status ){ 
      print $q->h2 ("$branch Branch is now unlocked"); 
   } 
} 
elsif ($state) { 
   print "executing status\n"; 
   my $script = "/home/e027449/bin/lockctrl -s -show -br $branch"; 
   my $status = system($script);   
} 
elsif ($cron) { 
   my $script = "/usr/local/adm/email.cronbuild405 '$branch Manual CronBuild' > /tmp/buildlog405.$branch.$$ 2>&1"; 
   my $status = system($script); 
   if (! $status ){ 
      print $q->h2 ("Manual Cron for $branch Branch is done please check your email for results"); 
   } 
} 
else { 
   print "select something\n"; 
} 
 
$q->delete_all(); 
print $q->hidden(mode=>'save'); 
print $q->end_html();

#!/usr/bin/perl  
  
use strict;  
use warnings;  
use CGI;  
use CGI::Carp qw(fatalsToBrowser); 
 
my $q = CGI->new;  
my %form = $q->Vars; 
 
print $q->header(), 
      $q->start_html(-title=>'Select branch'), 
      $q->h3({-style=>'Color: red;'},'Select branch from the Drop Down List below...');  
  
  
my @vlist = `/home/e027449/bin/lockctrl -s -show -br | awk '{print \$1}'`;  
 
  
### start form your code ####  
print $q->start_form();  
print $q->popup_menu(-name    => 'list',  
                     -id      => 'list',  
                     -values  => \@vlist,  
                     -default => 'stp_rel_08_02_copy_only');  
 
print $q->radio_group(-name    => 'action', 
                      -values  => ['Lock','UnLock','Status','ManualCron'], 
                      -default => 'Lock'); 
  
print $q->p, 
      $q->submit(-name=>'Proceed',-value=>'Proceed'); 
 
print $q->end_form(); 
 
### end your form code ######  
 
print $q->br, "Selected value: ", $q->param('list') if $q->param('list'); 
 
my %action = ( 
           Lock => sub { 
                      print $q->p("executing lock\n");  
                      my $status = `/home/e027449/bin/lockctrl -s -lock -br $form{'list'} -repository stp`;  
 
                      if (! $status ){  
                         print $q->h2 ("$form{'list'} Branch is now locked");  
                      }  
                      else {  
                         print "Lock not executing\n";  
                      }  
                   }, 
                    
           UnLock => sub {  
                        print $q->p("executing unlock\n");  
                        my $script = "/usr/local/adm/branch_key $form{'list'} 'unlock'";  
                        my $status = system($script);  
                        if (! $status ){  
                           print $q->h2 ("$form{'list'} Branch is now unlocked");  
                        }  
                     }, 
                      
           Status => sub { 
                       print $q->p("executing status\n");  
                       my $script = "/home/e027449/bin/lockctrl -s -show -br $form{'list'}";  
                       my $status = system($script);    
                    }, 
                     
           ManualCron => sub {  
                            my $script = "/usr/local/adm/email.cronbuild405 '$form{'list'} Manual CronBuild' > /tmp/buildlog405.$form{'list'}.$$ 2>&1";  
                            my $status = system($script);  
                            if (! $status ){  
                               print $q->h2 ("Manual Cron for $form{'list'} Branch is done please check your email for results");  
                            }  
                         }, 
); 
 
if ( exists $form{'action'} ) { 
   $action{ $form{'action'} }->(); 
} 
 
$q->delete_all();  
print $q->hidden(mode=>'save');  
print $q->end_html();