Post builder script for CGI development in Eclipse

Hi,

In CGI development it may be a lot of help to have some sort of a post builder script. The primary aim of this script should be updating the cgi scenario(s) and modules when you build your perl project under Eclipse.

So I have come up with the following post_builder_script.pl:

view plainprint?

1. #!/usr/bin/perl -w  
2.   
3. use strict;  
4.   
5. # append "/" to the target path if required  
6. my $target_path = $ARGV[0];  
7. if (not( $target_path =~ m/\/$/)) {  
8.  $target_path .= "/";  
9. }  
10.   
11. # copy cgi script: what, from where, to where  
12. my $file = "uni_search.cgi";   
13. my $copy_base_path = "../";  
14. my $copy_from = $copy_base_path.$file;  
15. my $copy_to   = $target_path.$file;  
16.   
17. copy($copy_from, $copy_to);  
18.   
19. # copy Perl modules  
20. my @modules = ("Module1.pm", "Module2.pm", "Module3.pm");  
21. my $modules_path = "some_path/";  
22. $copy_base_path = "./";  
23. my $target_copy_base_path = $target_path.$modules_path;  
24.   
25. foreach my $module(@modules) {  
26.  copy($copy_base_path.$module,   
27. $target_copy_base_path.$module);  
28. }  
29.   
30. sub copy  
31. {  
32.  my $copy_from = shift;  
33.  my $copy_to   = shift;  
34.    
35.  my $result;  
36.    
37.  # chmod'ing  
38.  $result = system("echo ".[your_sudo_password_here].  
39. " | sudo -S chmod +w ".$copy_to);  
40.  print "Changing write rights: ".$result."\n";  
41.    
42.  # updates / copies the cgi script to server  
43.  $result = system("sudo cp ".$copy_from." ".$copy_to);  
44.  if ($result == 0) {  
45.   print "Result of copying the ".$copy_from.  
46. " to server's cgi-bin: ".$result."\n\n";  
47.  }  
48. }  

#!/usr/bin/perl -w

use strict;

# append "/" to the target path if required
my $target_path = $ARGV[0];
if (not( $target_path =~ m/\/$/)) {
 $target_path .= "/";
}

# copy cgi script: what, from where, to where
my $file = "uni_search.cgi"; 
my $copy_base_path = "../";
my $copy_from = $copy_base_path.$file;
my $copy_to   = $target_path.$file;

copy($copy_from, $copy_to);

# copy Perl modules
my @modules = ("Module1.pm", "Module2.pm", "Module3.pm");
my $modules_path = "some_path/";
$copy_base_path = "./";
my $target_copy_base_path = $target_path.$modules_path;

foreach my $module(@modules) {
 copy($copy_base_path.$module, 
$target_copy_base_path.$module);
}

sub copy
{
 my $copy_from = shift;
 my $copy_to   = shift;
 
 my $result;
 
 # chmod'ing
 $result = system("echo ".[your_sudo_password_here].
" | sudo -S chmod +w ".$copy_to);
 print "Changing write rights: ".$result."\n";
 
 # updates / copies the cgi script to server
 $result = system("sudo cp ".$copy_from." ".$copy_to);
 if ($result == 0) {
  print "Result of copying the ".$copy_from.
" to server's cgi-bin: ".$result."\n\n";
 }
}

It is easy to add a builder which will call the script. In Perl perspective go to Project->Properties->Builders. Select "New..." on the right. Choose "Program" in the popup window. Configure the program by choosing what to launch, where and command line arguments:




There you go. After the builder has been successfully configured, edit your code and do full rebuild (select the root node of your project and Project->Build Project), when you want to deploy your cgi script set to your web server.