Lines Matching refs:key
108 my($key);
110 foreach $key (sort keys %$hash ){
111 print " '$key'='". $hash->{$key} . "'\n";
118 my($file,$key,$value,$line);
128 ($key,$value) = ($line =~ /^\s*([\w-]*)(.*)/);
130 ($key = trimall($key)) =~ s/-/_/g;
131 print "key '$key'='$value'\n" if $Debug > 2;
132 $conf_values->{$key} = Fix_value( $value );
133 print "set key '$key'='" . $conf_values->{$key} . "'\n" if $Debug > 2;
147 my($key, $name);
151 foreach $key (sort keys %$hash ){
152 print " '$key'='". $hash->{$key} . "'\n";
159 my($key);
161 foreach $key (sort keys %$hash ){
162 print " '$key'='". $hash->{$key} . "'\n";
177 my($key,$value,$add_next);
223 ($key,$value) = ($line =~ /^\s*([\w-]*)(.*)/);
225 ($key = trimall($key)) =~ s/-/_/g;
226 print " key '$key'='$value'\n" if $Debug > 3;
227 $hash->{$key} = Fix_value( $value );
228 print " set key '$key'='" . $hash->{$key} . "'\n" if $Debug > 3;
272 my($file,$file_name,$hash,$key,$value,$names,$first,$name);
326 foreach $key (keys %$hash){
327 $value = $hash->{$key};
328 if( $key ne 'NAME' ){
329 $Pc_hash->{$first}->{$key} = $value;
448 my($real, %hash, $value, $key, $tc_val, @tc_list, %tc_hash );
459 foreach $key (keys %$value){
460 print "Setup_pc_entry: setting '$key'='$value->{$key}'\n" if $Debug > 5;
461 $hash{$key} = $value->{$key};
485 foreach $key (keys %$value){
486 print "Setup_pc_entry: setting '$key'='$value->{$key}'\n" if $Debug > 5;
487 if( $key ne 'NAME' ){
488 $hash{$key} = $value->{$key};
504 my( $key, $val );
506 $key = $1;
507 print "FixStrVals: fixing '$key' in '$str'\n" if $Debug > 5;
508 $val = $hash->{$key};
510 $str =~ s/%$key/$val/g;
531 my($pc_path,$file,$key);
534 $key = hostname();
535 @Hostname = gethostbyname( $key );
536 # set up the key values