source: subversion/applications/utils/gary68/myundo.pl @ 26507

Last change on this file since 26507 was 24382, checked in by gary68, 9 years ago
  • Property svn:executable set to *
File size: 1.8 KB
Line 
1
2use strict ;
3use warnings ;
4
5use Changeset ;
6use Undo ;
7
8
9# my $online = "no" ;
10my $online = "YES" ;
11my $undoFileName = "ofGer20101123.txt" ;
12my $comment = "corrections" ;
13
14
15
16my $delay = 1 ;
17
18my $cs ;
19
20if ($online eq "YES") {
21        print "\nWORKING ONLINE - SURE?\n\n" ;
22        sleep (5) ;
23
24
25        $cs = Changeset::create() ;
26
27        if (!defined $cs) {
28                die "ERROR: changeset id could not be obtained\n" ;
29        }
30        else {
31                print "INFO: changeset id = $cs\n" ;
32        }
33
34}
35
36
37
38my $changeCount = 0 ;
39my $successfulChanges = 0 ;
40
41my $object ;
42my $id ;
43my $user ;
44
45my $file ;
46
47my $fileResult = open ($file, "<" , $undoFileName) ;
48my $line ;
49if ($fileResult) {
50        print "INFO: undo file opened\n" ;
51
52        while ($line = <$file>) {
53
54                chomp ($line) ;         
55
56                my @a = split (/,/, $line) ;
57                $object = $a[0] ;
58                $id = $a[1] ;
59                $user = $a[2] ;
60
61                if ((defined $object) and (defined $id) and (defined $user)) {
62                        print "INFO: undoing $object $id *$user*\n" ;
63                        $changeCount++ ;
64                        if ($online eq "YES") {
65                                my $oldCS ; undef $oldCS ;
66                                my $undoResult = Undo::undo ($object, $id, $user, $oldCS, $cs) ;
67                                if (defined $undoResult){
68                                        $successfulChanges++ ;
69                                        if ($undoResult == 0) { print "INFO: no action necessary\n" ; }
70                                        if ($undoResult == 1) { print "INFO: success\n" ; }
71                                }       
72                                else {
73                                        print "ERROR: undo could not be performed\n" ;
74                                }
75                                sleep ($delay) ;
76                        }
77                }
78        }
79}
80else {
81        print "ERROR: undo file COULD NOT BE OPENED\n" ;
82}
83
84
85if ($online eq "YES") {
86        my $result = Changeset::close($cs, $comment) ;
87        if ( (defined $result) and ($result == 1) ) {
88                print "INFO: changeset closed\n" ;
89        }
90        else {
91                print "ERROR: changeset could not be closed properly!!!\n" ;
92        }
93}
94
95print "\n$changeCount changes read from file.\n" ;
96print "$successfulChanges changes actually done.\n\n" ;
Note: See TracBrowser for help on using the repository browser.