<? פפּ
ערראָר_רעפּאָרטינג (0);
ינקלודע_אָנסע (דירנאַמע (__פילע__). '/ וובסעאָ / כולל / פונקטיאָנס_וובסעאָ.פפּ'),
ינקלודע_אָנסע (וובסעאָ_סטאָראַגע:אַטה ('וובינק'). '/'. וובסעאָ_ווב_קאָנפיג);
וובסעאָ_רעקוועסטעד_ורל ();
$ וובסעאָ_פוללורל = וובסעאָ_טאָפּרעל. $ וובסעאָ_ורל_;
$ וובסעאָ_ורל_סוגגעסט ='';
יבערבייַט ($ וובסעאָ_ורל_)
{
פאַל 'וובסעאָ.פפּ':
אַרויסגאַנג,
ברעכן;
פאַל 'וובסעאָ_סיטעמאַפּ.פפּ':
פאַל 'וובסעאָקפּ.פפּ':
פאַל 'קראָנ.פפּ':
פאַל 'קראָנ.הטמל':
אַרייַננעמען $ וובסעאָ_ורל_;
אַרויסגאַנג,
ברעכן;
}
/ / וובסעאָ - פול ווערסיע אָנהייב \\ ************************************--
אויב (וובסעאָ_ינ_פּינגבאַקק & & ($ וובסעאָ_ורל_ == 'וובסעאָ-קסמלרפּק /'))
{
אויב (! דיפיינד ('טהיס_סקריפּט'))
@ דעפינירן ('טהיס_סקריפּט', 'נעוורעפּלי'),
אַרייַננעמען דירנאַמע (__פילע__). '/ גלאבאלע.' . וובסעאָ_ווב_עקסט;
וובסעאָ_עקסטראַ_ינק ('לינקבאַקק'),
וובסעאָ_קסמלרפּק_פּראָק ();
אַרויסגאַנג,
}
אויב (וובסעאָ_רעדירעקט_פּריוו_עקסטערנאַל & & ($ וובסעאָ_ורל_ == וובסעאָ_רעדירעקט_ורי))
{
$ ורעדיר = $ _געט ['רידערעקט'];
/ / $ ורעדיר = ורלדעקאָדע ($ ורעדיר);
$ ורעדיר = פּרעג_רעפּלאַסע ('#&(?![ אַ-ז0-9 \\ #] +# סי ',' & ', $ ורעדיר);
$ ורעדיר = סטר_רעפּלאַסע ('"', '"', $ ורעדיר);
/ / $ ורעדיר = סטר_רעפּלאַסע ('', '% 20', $ ורעדיר);
אויב (פּרעג_מאַטטש ('# * הטטפּס?: \\ / \\ / #', $ ורעדיר) & &! פּרעג_מאַטטש ('#["<>]#', $ ורעדיר))
{
ווידערקאָל '<הטמל> <העאַד> <מעטאַ הטטפּ-עקוויוו="רעפרעש" קאָנטענט="0;ורל='. $ורעדיר.'"> </ קאָפּ> <באָדי> </ גוף> </ HTML>',
אַרויסגאַנג,
}
}
און מער
ניט רעווריטעקאָנד עס