PageSourceSearch

https://www.plantruffe.fr/HLAPI.js

js plantruffe.fr collected 2026-10-03 02:47:23 UTC 8,493 bytes, 273 lines download raw bytes

1function HLAddToFavorite( strURL, strName ) {
2	if ((navigator.appName.indexOf("Microsoft",0)>=0) && (parseInt(navigator.appVersion)>=4))
3		window.external.AddFavorite( strURL, strName );
4	else
5		alert("NOT SUPPORTED.");
6	return ;
7}
8
9function HLCreateWinAttr( sAttr, nWidth, nHeight )
10{
11	var nLeft, nTop ;
12	if ( navigator.appName == "Netscape" ) {
13		nLeft = window.screenX + ((window.outerWidth - nWidth) / 2);
14		nTop = window.screenY + ((window.outerHeight - nHeight) / 2);
15	}
16	else {
17		nLeft = (screen.width - nWidth) / 2;
18		nTop = (screen.height - nHeight) / 2;
19	}
20	return( sAttr + ",left=" + nLeft + ",top=" + nTop + ",width=" + nWidth + ",height=" + nHeight );
21}
22
23function HLGetParam( sParams, sParam, varDefault )
24{
25	var nIdx1, nIdx2, sResult = varDefault ;
26	sParam = sParam + "[=]";
27	nIdx1 = sParams.indexOf(sParam);
28	if ( nIdx1 > -1 )
29	{
30		nIdx1 += sParam.length ;
31		nIdx2 = sParams.indexOf("[&]",nIdx1);
32		if ( nIdx2 > -1 )
33			sResult = sParams.substr(nIdx1,nIdx2-nIdx1);
34		else
35			sResult = sParams.substr(nIdx1);
36	}		
37	return sResult ;
38}
39
40function HLExecute( sParams, bReturnHref )
41{
42	var nHLId, strAccID, nTmp, sTmp, nHLType = 1, sCUrl;
43	var sWinStyle = "toolbar=yes,menubar=yes,scrollbars=yes,resizable=yes" ;
44	var sTmp2, sTmp3;
45	strAccID = HLGetParam(sParams,"accid", "");
46	//if ( strAccID == null )
47	//	strAccID = "" ;
48	//else
49	//	sParams = sParams.substr( 11 + strAccID.length ); // 11 = "accid[=][&]" ;
50	nHLId = parseInt(HLGetParam(sParams,"hlid"));
51	if ( nHLId & 32768 )
52	{
53		sTmp2 = parseInt(HLGetParam( sParams, "pwdx" ))
54		sTmp3 = parseInt(HLGetParam( sParams, "pwdy" ))
55		sWinStyle = HLCreateWinAttr( "scrollbars=yes,resizable=yes", sTmp2, sTmp3 );
56		nHLType = 2 ;
57	}
58	switch( nHLId )
59	{
60		case 1:
61		case 2048:
62			sTmp = HLGetParam( sParams, "href" );
63			if ( sTmp == null ) return ;
64			if ( sTmp.charAt(0) != "/" ) {
65				sTmp2 = sTmp.toLowerCase();
66				if ( !((sTmp2.indexOf("http://")==0) || (sTmp2.indexOf("https://")==0) || (sTmp2.indexOf("ftp://")==0) || (sTmp2.indexOf("javascript:")==0) || (sTmp2.indexOf("mailto:")==0) || (sTmp2.indexOf("tel:")==0)) )
67					sTmp = "http://" + sTmp ;
68			}
69			if ( nHLId == 2048 )
70				nHLType = 1 ;
71			else	 
72				nHLType = 2 ;
73			break;
74		case 2:
75			nTmp = parseInt(HLGetParam( sParams, "opmode" ));
76			if ( nTmp == 4 )
77			{
78				nTmp = parseInt(HLGetParam( sParams, "comp" ));
79				sTmp = "PBSearch.asp?CCode=" + nTmp ;
80				nHLType = 1 ;
81			}
82			else if ( nTmp == 8 )
83			{
84				nTmp = parseInt(HLGetParam( sParams, "comp" ));
85				if (nTmp==2){
86					sTmp = "PBSCBrands.asp";
87				} else if (nTmp==6){
88					sTmp = "PBBrands.asp";
89				}
90				nHLType = 1 ;
91			}
92			else 
93			{
94				var nBrandID=0;
95				nTmp = parseInt(HLGetParam( sParams, "comp" ));
96				switch( nTmp )
97				{
98					case 1 : sTmp = "PBHomePage.asp" ; break ;
99					case 2 : 
100						sTmp = "PBSCCatalog.asp";
101						nBrandID = parseInt(HLGetParam(sParams, "brandid", 0));
102						break ;
103					case 3 : sTmp = "PBHotNews.asp" ; break ;
104					case 4 : sTmp = "PBHotLinks.asp" ; break ;
105					case 5 : sTmp = "PBFAQ.asp" ; break ;
106					case 6 : 
107						sTmp = "PBCatalog.asp";
108						nBrandID = parseInt(HLGetParam(sParams, "brandid", 0));
109						break ;
110					case 7 : sTmp = "PBSubscribe.asp" ; break ;
111					case 8 : sTmp = "PBPartners.asp" ; break ;
112					case 9 : sTmp = "PBBios.asp" ; break ;
113					case 10 : sTmp = "PBContactUS.asp" ; break ;
114					case 11 : sTmp = "PBGuestBook.asp" ; break ;
115					case 12 : sTmp = "PBEvents.asp" ; break ;
116					case 13 : sTmp = "PBJobListing.asp" ; break ;
117					case 14 : sTmp = "PBPhotos.asp" ; break ;
118					case 18 : sTmp = "PBChat.asp" ; break ;
119					case 24 : sTmp = "PBClassified.asp" ; break ;
120					case 25 : sTmp = "PBClassifiedAdd.asp" ; break ;
121					case 26 : sTmp = "PBRealEstateKind.asp" ; break ;
122					case 27 : sTmp = "PBRealEstateLocation.asp" ; break ;
123					case 28 : sTmp = "PBRealEstateType.asp" ; break ;
124					case 29 : sTmp = "PBRealEstateSearch.asp" ; break ;
125					case 32 : sTmp = "PBShoppingCart.asp" ; break ;
126					case 33 : sTmp = "PBUserAccount.asp" ; break ;
127					case 34 : sTmp = "PBSalesRepSystem.asp" ; break ;
128					case 36: sTmp = "PBSponsorship.asp"; break;
129					case 58: sTmp = "PBStoreLocator.asp"; break;
130					case 60: sTmp = "PBRSSFeeds.asp"; break;
131					case 1200 : sTmp = "Blog.asp" ; break ;
132					default : 
133						alert("Unknown Component [" + nTmp + "]");
134						nHLType = 0 ;
135				}
136				if ( nHLType == 1 )
137				{
138					nTmp = parseInt(HLGetParam( sParams, "itmid" ));
139					if ( nTmp > 0 )
140						sTmp = sTmp + "?ItmID=" + nTmp ;
141					else
142					{
143						nTmp = parseInt(HLGetParam( sParams, "catid",0));
144						if (( nTmp > 0 ) || (nBrandID > 0)){
145							var strSep='?';
146							if ( nTmp > 0 ){
147								sTmp += strSep + "CatID=" + nTmp;
148								strSep = '&';
149							}
150							if (nBrandID > 0){
151								sTmp += strSep + "BrandID=" + nBrandID;
152								strSep = '&';
153							}
154						} else {
155							sTmp = sTmp + "?PBMInit=1" ;
156						}
157					}
158				}
159			}
160			break ;
161		case 4:
162			if (typeof (OxImagePlayer) != "undefined") {
163				nHLType = 0;
164				sTmp = "/Files/" + strAccID + "/" + HLGetParam(sParams, "imgfn");
165				OxImagePlayer(strAccID, sTmp);
166				break;
167			}
168			sTmp = "ImagePlayer.asp?AccID=" + strAccID;
169			nTmp = parseInt(HLGetParam(sParams, "imgid"));
170			if (nTmp > 0) sTmp = sTmp + "&ImgID=" + nTmp;
171			sTmp2 = HLGetParam(sParams, "imgfn");
172			if (sTmp2 != null) sTmp = sTmp + "&ImgFN=" + sTmp2;
173			sWinStyle = HLCreateWinAttr("scrollbars=no,resizable=yes", 300, 240);
174			nHLType = 2;
175			break;
176		case 8:
177			sTmp = HLGetParam( sParams, "emto", "" );
178			sTmp2 = HLGetParam( sParams, "emsj", "" );
179			sTmp = "EmailPopupWnd.asp?EMTO=" + sTmp + "&EMSJ=" + sTmp2 ;
180			sTmp2 = HLGetParam( sParams, "ccod" );
181			if ( sTmp2 != null )
182			{
183				sTmp3 = HLGetParam( sParams, "dbid" );
184				if ( sTmp3 == null ) sTmp3 = "";
185				sTmp = sTmp + "&CCOD=" + sTmp2 + "&DBID=" + sTmp3
186			}				 
187			sWinStyle = HLCreateWinAttr( "scrollbars=yes,resizable=yes", 500, 426 );
188			nHLType = 2 ;
189			break ;
190		case 32:
191			sTmp = HLGetParam( sParams, "addr", "" );
192			sTmp2 = HLGetParam( sParams, "city", "" );
193			sTmp3 = HLGetParam( sParams, "zip", "" );
194			sTmp = "MapPopupWnd.asp?ADDR=" + sTmp + "&CITY=" + sTmp2 + "&ZIP=" + sTmp3 ; 
195			sTmp3 = parseInt(HLGetParam( sParams, "ctry", 0 ));
196			if ( sTmp3 > 0 ) sTmp = sTmp + "&COUNTRYID=" + sTmp3 ;
197			sWinStyle = HLCreateWinAttr( "scrollbars=no,resizable=yes", 760, 540 );
198			nHLType = 2 ;
199			break ;
200		case 128:
201			nTmp = parseInt(HLGetParam( sParams, "cpid" ));
202			sTmp = "PBCPPlayer.asp?ID=" + nTmp ;
203			break ;
204		case 32896:
205			nTmp = parseInt(HLGetParam( sParams, "cpid" ));
206			sTmp = "PBCPPlayer.asp?PW=1&ID=" + nTmp ;
207			break ;
208		case 256:
209		case 33024:
210			nTmp = parseInt(HLGetParam( sParams, "wpid" ));
211			sTmp = "PBWPPlayer.asp?ID=" + nTmp ;
212			break ;
213		case 512:
214			//sTmp = "ContactPopupWnd.asp?CTID=0&AccID=" + strAccID
215			//sWinStyle = HLCreateWinAttr( "scrollbars=no,resizable=no", 500, 300 );
216			//nHLType = 2 ;
217			sTmp = "PBCompanyProfile.asp"
218			break;
219		case 4096: 
220			history.go(-1);
221			return ;
222			break;
223		case 16384 :
224			window.close();				
225			return ;
226			break;
227		case 8192:
228			nTmp = parseInt(HLGetParam( sParams, "flid" ));
229			sTmp = "PBFilePlayer.asp?ID=" + nTmp ;
230			sWinStyle = HLCreateWinAttr( "scrollbars=yes,resizable=yes", 500, 300 );
231			nHLType = 2 ;
232			break;
233		default:
234			if ( sParams.indexOf("@") == -1 )
235			{
236				sTmp = sParams
237				nHLType = 2 ;
238			}
239			else
240			{
241				sTmp = "EmailPopupWnd.asp?EMTO=" + sParams ; 
242				sWinStyle = HLCreateWinAttr( "scrollbars=yes,resizable=yes", 500, 426 );
243				nHLType = 2 ;
244			}
245	}
246
247	sCUrl = HLGetParam(sParams, "curl")
248	if (sCUrl && sCUrl.length) sTmp = sCUrl;
249
250	switch( nHLType )
251	{
252		case 1:
253			if (bReturnHref == true)
254				return sTmp;
255			window.location = sTmp;
256			//alert("window.location = '" + sTmp + "'" )
257			break;
258		case 2:
259			if (bReturnHref == true){
260				if(sTmp.indexOf("mailto:")==0 || sTmp.indexOf("tel:")==0){
261					return sTmp;
262				}
263				else{
264					return "javascript:window.open('" + sTmp + "','HLWindow" + nHLId + "','" + sWinStyle + "');void(0);";
265				}
266			}
267				
268			var objWin = window.open(sTmp, "HLWindow" + nHLId, sWinStyle);
269			if (objWin.focus) { objWin.focus(); }
270			//alert("window.open('" + sTmp + "')" )
271			break;
272	}
273}

Line numbers count LF bytes from the start of the resource, as the search results do. Vendor segments are library code the classifier recognised; they are stored but not indexed. Bytes are shown as Latin1 characters, one per byte.