← Back to branch summary

~ubuntu-branches/ubuntu/precise/kompozer/precise

« back to all changes in this revision

Viewing changes to mozilla/config/cvsco.pl

  • Committer: Bazaar Package Importer
  • Author(s): Anthony Yarusso
  • Date: 2007-08-27 01:11:03 UTC
  • Revision ID: james.westby@ubuntu.com-20070827011103-2jgf4s6532gqu2ka
Tags: upstream-0.7.10
Import upstream version 0.7.10

Show diffs side-by-side

added added

removed removed

Lines of Context:
mozilla/config/cvsco.pl
 
1
#!/usr/bin/env perl
 
2
#
 
3
# The contents of this file are subject to the Mozilla Public
 
4
# License Version 1.1 (the "License"); you may not use this file
 
5
# except in compliance with the License. You may obtain a copy of
 
6
# the License at http://www.mozilla.org/MPL/
 
7
#
 
8
# Software distributed under the License is distributed on an "AS
 
9
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 
10
# implied. See the License for the specific language governing
 
11
# rights and limitations under the License.
 
12
#
 
13
# The Original Code is mozilla.org code.
 
14
#
 
15
# The Initial Developer of the Original Code is Netscape
 
16
# Communications Corporation.  Portions created by Netscape are
 
17
# Copyright (C) 1999 Netscape Communications Corporation. All
 
18
# Rights Reserved.
 
19
#
 
20
# Contributor(s): Stephen Lamm
 
21
#
 
22
 
 
23
sub usage {
 
24
  warn "usage: cvsco.pl <checkout_command>\n"
 
25
      ."       <checkout_command> is the entire cvs co command\n"
 
26
      ."             (e.g. cvs -q -z3 co SeaMonkeyAll).\n";
 
27
}
 
28
 
 
29
usage(), die "Error: Not enough arguments\n" if $#ARGV < 0;
 
30
usage(), die "Error: Wrong cwd. Must chdir to mozilla/..\n" 
 
31
  unless -r 'mozilla/config/cvsco.pl';
 
32
 
 
33
$co_command = join ' ', @ARGV;
 
34
 
 
35
$logfile     = 'cvslog.txt';
 
36
$old_logfile = 'cvslog-old.txt';
 
37
 
 
38
sub dblprint {
 
39
  print LOG @_;
 
40
  print STDERR @_;
 
41
}
 
42
 
 
43
if (-r $logfile) {
 
44
  rename $logfile, $old_logfile;
 
45
  print "rename $logfile, $old_logfile\n";
 
46
}
 
47
 
 
48
open LOG,   ">$logfile";
 
49
open CVSCO, "$co_command|";
 
50
 
 
51
dblprint "\ncheckout start: ".scalar(localtime)."\n";
 
52
dblprint "$co_command | tee cvslog.txt\n";
 
53
 
 
54
while (<CVSCO>) {
 
55
  dblprint $_;
 
56
  push @conflicts, $_ if /^C /;
 
57
}
 
58
 
 
59
if (@conflicts) {
 
60
  print "Error: cvs conflicts during checkout:\n";
 
61
  die join('', @conflicts);
 
62
}
 
63
 
 
64
close(CVSCO) or die "cvs error.\n";
 
65
dblprint 'checkout finish: '.scalar(localtime)."\n";
 
66