Lines Matching refs:identifier
184 my $identifier = "";
186 if ( $registry->{'gid'} ) { $identifier = $registry->{'gid'}; }
188 $identifier = lc($identifier); # always lower case
192 $identifier =~ s/gid_regitem_/g_r_/;
193 $identifier =~ s/_soffice_/_s_/;
194 $identifier =~ s/_clsid_/_c_/;
195 $identifier =~ s/_currentversion_/_cv_/;
196 $identifier =~ s/_microsoft_/_ms_/;
197 $identifier =~ s/_manufacturer_/_mf_/;
198 $identifier =~ s/_productname_/_pn_/;
199 $identifier =~ s/_productversion_/_pv_/;
200 $identifier =~ s/_staroffice_/_so_/;
201 $identifier =~ s/_software_/_sw_/;
202 $identifier =~ s/_capabilities_/_cap_/;
203 $identifier =~ s/_classpath_/_cp_/;
204 $identifier =~ s/_extension_/_ex_/;
205 $identifier =~ s/_fileassociations_/_fa_/;
206 $identifier =~ s/_propertysheethandlers_/_psh_/;
207 $identifier =~ s/__/_/g;
211 $registry->{'uniquename'} = $identifier;
213 return $identifier;