← Back to branch summary

~ubuntu-branches/ubuntu/maverick/krb5/maverick

« back to all changes in this revision

Viewing changes to src/windows/build/bkw.pl

  • Committer: Bazaar Package Importer
  • Author(s): Sam Hartman
  • Date: 2009-05-07 16:16:34 UTC
  • mfrom: (13.1.7 sid)
  • Revision ID: james.westby@ubuntu.com-20090507161634-xqyk0s9na0le4flj
Tags: 1.7dfsg~beta1-4
http://bugs.debian.org/527353
When  decrypting the TGS response fails with the subkey, try with the
session key to work around Heimdal bug, Closes: #527353 

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/windows/build/bkw.pl
164
164
##++ Assemble configuration from config file and command line:
165
165
 
166
166
    my $bOutputCleaned  = 0;
167
 
 
168
 
#while ($v = each %$OPT) {print "$v: $OPT->{$v}\n";}
169
 
 
170
167
    # Scan the configuration for switch definitions:
171
168
    while (($sw, $val) = each %$odr) {
172
169
        next if (! exists $val->{def}); ## ?? Should always exist.
174
171
        # Set/clear environment variables:
175
172
        if ($val->{env}) {
176
173
            if ($val->{def})    {$ENV{$sw}   = (exists $val->{value}) ? $val->{value} : 1; }
177
 
            else                {delete $ENV{$sw};  }
 
174
            else                {
 
175
                delete $ENV{$sw};  
 
176
                undef  $sw;
 
177
                }
178
178
            }
179
179
 
180
180
        # If the switch is in the command line, override the stored value:
184
184
                $val->{def}     = 1;
185
185
                }
186
186
            else {
187
 
                $val->{def}   = $OPT->{$sw};    ## If no<switch>, value will be zero.
 
187
                $val->{def}   = $OPT->{$sw};  ## If -NO<switch>, value will be zero.
188
188
                }
189
189
            }
190
190
        # If the switch can be negated, test that, too:
191
191
        if ( ! ($val->{def} =~ /A/)) {
192
192
            local $nosw = "no".$sw;
193
 
            if (exists $OPT->{$nosw}) {
194
 
                $val->{def} = 0;
 
193
            if (exists $OPT->{$sw}) {         ## -NO<environment variable> ?
 
194
                if ($val->{env}) {              
 
195
                    if (!$val->{def}) {
 
196
                        print "Deleting environment variable $sw\n";
 
197
                        delete $ENV{$sw};           
 
198
                        undef $sw;
 
199
                        }
 
200
                    }
195
201
                }
196
202
            }
197
203
    
315
321
        $l->no_die_handler;        ## Needed so XML::Simple won't throw exceptions.
316
322
        }
317
323
 
 
324
    print "Command line options:\n";
 
325
    while ($v = each %$OPT) {print "$v: $OPT->{$v}\n";}
 
326
 
318
327
    print "Executing $cmdline\n";
319
328
    local $argvsize     = @ARGV;
320
329
    local $nmakeargs    = "";
678
687
    system("rm -rf $out/a.tmp");                ## Clean up junk.
679
688
    system("rm -rf $out/ziptemp");              ## Clean up junk.
680
689
 
 
690
    print "Now check for ntsecapitest.i.\n";
 
691
    $dir    = "$wd\\athena\\auth\\krb5\\src\\windows";
 
692
    chdir($dir)                                 or die "Fatal -- Couldn't cd to $dir";
 
693
    print "Info -- chdir to ".`cd`."\n"         if ($verbose);
 
694
 
681
695
# End logging:
682
696
    if ($odr->{logfile}->{def})   {$l->stop;}
683
697
 
687
701
$SIG{'INT'} = \&handler;
688
702
$SIG{'QUIT'} = \&handler;
689
703
 
690
 
exit(main());
 
 
b'\\ No newline at end of file'
 
704
exit(main());