Helix SwarmHelix Swarm

p4submit

  • //
  • guest/
  • david_weintraub/
  • p4submit #1
  • View
  • Commits
  • Open Download .zip Download (3 KB) 
  1. #! /usr/bin/env perl
  2. # p4submit
  3. ########################################################################
  4.  
  5. ########################################################################
  6. # ALLOW COMMAND LINE SUBMITTING OF PERFORCE CHANGELISTS
  7. #
  8. # Programmed by David Weintraub
  9. # Date: 09-Jun-2006
  10. # Purpose:
  11. #     This program allows users to submit Perforce changelists by
  12. #     simply giving the changelist number and description on the
  13. #     command line.
  14. #
  15. ########################################################################
  16.  
  17. ########################################################################
  18. # PERL PRAGMAS
  19. #
  20. use lib qw(/home/merbld/etc/perl);
  21. use strict;
  22. use warnings;
  23. #
  24. ########################################################################
  25.  
  26. ########################################################################
  27. # PERL MODULES
  28. #
  29. use File::Basename;
  30. use Getopt::Long;
  31. use FormInfo;
  32. #
  33. ########################################################################
  34.  
  35. ########################################################################
  36. # CONSTANTS
  37. #
  38.  
  39. #
  40. ########################################################################
  41.  
  42. ########################################################################
  43. # USAGE
  44. #
  45. my $USAGE=<<USAGE;
  46. @{[basename($0)]} -d <desc> [-c <change>]
  47.  
  48. Where
  49.     <desc>:   Description Flag
  50.     <change>: Changelist Number
  51.     -help:    Displays this screen
  52.  
  53.     NOTICE: The "-r" flag is NOT supported
  54. USAGE
  55. #
  56. ########################################################################
  57.  
  58. ########################################################################
  59. # GETOPTS
  60. #
  61. my ($description, $raw, $changeList, $help);
  62. GetOptions (
  63.     "d=s" => \$description,
  64.     "r=s" => \$raw,
  65.     "c=s" => \$changeList,
  66.     "help" => \$help
  67. );
  68. #
  69. ########################################################################
  70.  
  71. ########################################################################
  72. # CHECK OPTIONS
  73. #
  74. if ($help) {
  75.     print "$USAGE\n";
  76.     exit 0;
  77. }
  78.  
  79. unless ($description) {
  80.     print "Error: Description Required!\n\n";
  81.     print "$USAGE\n";
  82.     exit 2;
  83. }
  84.  
  85. if ($raw) {
  86.     print "Error: We do not support the \"-r\" flag on submits.\n";
  87.     print "       use the regular \"p4 submit\" command\n";
  88. }
  89. #
  90. ########################################################################
  91.  
  92. ########################################################################
  93. # READ IN ALL FIELDS
  94. #
  95. my %changeHash;
  96. if ($changeList) {
  97.     formRead("change", "$changeList", \%changeHash);
  98. } else {
  99.     formRead("change", "", \%changeHash);
  100. }
  101.  
  102. #
  103. #   ####Check to Make Sure it Worked
  104. #
  105.  
  106. unless ($changeHash{"Description"}) {
  107.     print "Could not open changelist $changeList\n";
  108. }
  109. #
  110. ########################################################################
  111.  
  112. ########################################################################
  113. # Change Description and Resubmit
  114. #
  115. $changeHash{"Description"} = "$description";
  116. formWrite("submit", \%changeHash);
  117. #
  118. ########################################################################
# Change User Description Committed
#1 5710 David Weintraub Initial Stuff for my depot 18 years ago