CGI::Application::Util::DiffDiff 2 directories or files, or run other commands | |
Download |
CGI::Application::Util::Diff Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Ron Savage
- Publisher web site:
- http://search.cpan.org/~rsavage/
CGI::Application::Util::Diff Tags
CGI::Application::Util::Diff Description
Diff 2 directories or files, or run other commands CGI::Application::Util::Diff diffs 2 directories or files, or runs other commands. on the web server's machine.The output of a directory diff is a table, where the Match column contains a red 'x' if there is a mis-match in the sizes of a file or sub-directory in the 2 given directories.You click on a file name, or any field in the row, and a menu appears (beside the Diff button) which contains the actions available.The output of a file diff is the output of the shell's diff command.Available actions are in the file lib/CGI/Application/Util/Diff/.htutil.diff.actions.conf. They are listed below.There is an action confirmation option in this file, which you are strongly advised to leave as is.The confirmation is effected by means of a call to the Javascript confirm() function.I hope this will be the first in a set of such tools. I plan to release any of my own under the same namespace CGI::Application::Util::*.Since I expect this set to grow, I've decided to immediately adopt a Javascript library, rather than struggle with a more ad hoc approach. And the Yahoo User Interface, YUI, is the one I like the most.CGI::Application::Util::Diff is a Perl module that was developed using YUI V 2.7.0b.SynopsisA classic CGI script: use strict; use warnings; use CGI; use CGI::Application::Dispatch; # --------------------- my($cgi) = CGI -> new(); CGI::Application::Dispatch -> dispatch ( args_to_new => {QUERY => $cgi}, prefix => 'CGI::Application::Util', table => , );A modern FCGI script: use strict; use warnings; use CGI::Application::Dispatch; use CGI::Fast; use FCGI::ProcManager; # --------------------- my($proc_manager) = FCGI::ProcManager -> new({processes => 2}); $proc_manager -> pm_manage(); my($cgi); while ($cgi = CGI::Fast -> new() ) { $proc_manager -> pm_pre_dispatch(); CGI::Application::Dispatch -> dispatch ( args_to_new => {QUERY => $cgi}, prefix => 'CGI::Application::Util', table => , ); $proc_manager -> pm_post_dispatch(); } Requirements: · Perl
CGI::Application::Util::Diff Related Software