איך האָנעסטלי טאָן ניט וויסן ווי צו נאָכפאָלגן די ינסטראַקשאַנז, עס איז אַ פּשוט מאָד, לויפט פון יידזשאַקס איך טראַכטן, נאָר איינער פפּ טעקע, קיין פּראָדוקט אָדער טעמפּלאַטעס. דאָ איז די טעקע תּוכן.

<? פפּ
//################################################ ################################//
/ / מאָד נאָמען: ווביספּי # / /
//################################################ ################################//
/ / באַשרייַבונג: דאס מאַדאַפאַקיישאַן פֿאַר וובוללעטין מוסיף אַ "לעבן" סקראָללינג # / /
/ / דערהייַנטיקן פון נייַ הודעות צו די פאָרום # / /
//################################################ ################################//
/ / דורך: מפּדעוו # / /
/ / דאַטע: 9.26.06 # / /
/ / ווערסיע: 1.0.12 # / /
//################################################ ################################//

/ / ####################### שטעלן פפּ סוויווע ###################### #####
ערראָר_רעפּאָרטינג (ע_אַלל & ~ ע_נאָטיסע);

/ / #################### דעפינירן וויכטיק קאַנסטאַנץ #######################
דעפינירן ('טהיס_סקריפּט', 'וואַיספּי'),

/ / ################### פאַר - קאַש טעמפּלאַטעס און דאַטע ######################
/ / באַקומען ספּעציעל פראַזע גרופּעס
$ פראַסעגראָופּס = מענגע ();

/ / באַקומען ספּעציעל דאַטע טעמפּלאַטעס פון די דאַטאַסטאָרע
$ ספּעסיאַלטעמפּלאַטעס = מענגע ();

/ / פאַר - קאַש טעמפּלאַטעס געניצט דורך אַלע אַקשאַנז
$ גלאָבאַלטעמפּלאַטעס = מענגע ();

/ / פאַר - קאַש טעמפּלאַטעס געניצט דורך ספּעציפיש אַקשאַנז
$ אַקטיאָנטעמפּלאַטעס = מענגע ();

/ / ######################### דאַרפן צוריק-סוף ################### #########
רעקווירע_אָנסע ('. / גלאָבאַל.פפּ'),

/ / ######################### קאָנפיג וואַרס ##################### #######
/ / די נומער פון טעג צו יבערקוקן דעם טיש פֿאַר .. (86400 רעפּראַזענץ די נומער פון סעקונדעס אין 24 שעה)
$ דייַספּרונע = 1;

/ / זאלסט ניט רשימה די גרופּעס אפילו אויב זיי האָבן פּערמישאַנז (פּרובירן קאַטעגאָריעס, עטק)
$ בלאָקקפאָרומס = "";

/ / ######################### קאָנפיג וואַרס ##################### #######

$ פאָרומפּערמס = מענגע ();
$ לאַסטפּאָסטיד = (ינט) $ _רעקוועסט ['לעצט'];
$ אַבאָנירן = (ינט) $ _רעקוועסט ['אַבאָנירן'];

פאָרעאַטש ($ וובוללעטין-> פאָרומקאַטשע ווי $ פאָרום) {
$ פאָרומיד = $ פאָרום ['פאָרומיד'];
$ פאָרומפּערמס = & $ וובוללעטין-> וסערינפאָ ['פאָרומפּערמיססיאָנס']["$ פאָרומיד "];

אויב (! יססעט ($ וובוללעטין-> פאָרומקאַטשע ["$ פאָרומיד"]) OR! ($ פאָרומפּערמס & $ וובוללעטין-> בפ_וגפּ_פאָרומפּערמיססיאָנס ['קאַנוויעוו']) OR! ($ פאָרומפּערמס & $ וובוללעטין-> בפ_וגפּ_פאָרומפּערמיססיאָנס ['קאַנוויעוואָטהערס'] ) OR! וועריפי_פאָרומ_פּאַססוואָרד ($ פאָרומיד, $ וובוללעטין-> פאָרומקאַטשע ["$ פאָרומיד"] ['פּאַראָל'], פאַלש))
{
$ בלאָקקפאָרומס .=','.$ פאָרום ['פאָרומיד'];
}
}
אַנסעט ($ פאָרום);

$ דאַטעקוט = "און טהרעאַד.לאַסטפּאָסט> =". (טימענאָוו - ($ דייַספּרונע * 86400));
$ פּרעפעטטשעד = נאַל;

############################################################################
/ / באקום פֿעדעם איך'ווע פּאָסטעד אין
רעקווירע_אָנסע (דיר. '/ כולל / פונקטיאָנס_פאָרומדיספּלייַ.פפּ'),
$ רעזולטאַט = $ דב-> קווערי_רעאַד ("
אויסקלייַבן טהרעאַדיד
פֿון ". טאַבלע_פּרעפיקס." פאָדעם ווי פאָדעם
ווו טהרעאַד.פאָרומיד ניט (0 $ בלאָקקפאָרומס) און
טהרעאַד.וויסיבלע = 1 און
טהרעאַד.אָפּען <> 10 און
טהרעאַד.לאַסטפּאָסטיד> $ לאַסטפּאָסטיד
$ דאַטעקוט
");

$ ידסאַררייַ = מענגע ();
בשעת ($ שייַן = $ דב-> פעטטש_אַררייַ ($ רעזולטאַט))
{
$ ידסאַררייַ [] = $ שייַן ['טהרעאַדיד'];
}

$ דאָטטהרעאַדס = פעטטש_דאָט_טהרעאַדס_אַררייַ (ימפּלאָוד (',', $ ידסאַררייַ));
############################################################################
/ / באקום פֿעדעם

/ / זאלסט ניט שטעלן צו מער ווי 20 סייַדן איר וויסן ווי צו מאָדיפיצירן די HTML בייַ די דנאָ פון דער בלאַט (און בייַ שורה 291)
$ לימיטק = (יססעט ($ _רעקוועסט ['טאָן'])? "20": "5,20");

אויב ($ אַבאָנירן == 1)
{
$ געטטהרעאַדס = $ דב-> קווערי_רעאַד ("
אויסקלייַבן סובסקריבעטהרעאַד.סובסקריבעטהרעאַדיד,
טהרעאַד.פאָרומיד,
טהרעאַד.פירסטפּאָסטיד,
טהרעאַד.לאַסטפּאָסט,
טהרעאַד.לאַסטפּאָסטער,
טהרעאַד.לאַסטפּאָסטיד,
טהרעאַד.רעפּליקאָונט,
טהרעאַד.טהרעאַדיד,
טהרעאַד.טיטלע,
טהרעאַד.אָפּען,
טהרעאַד.וויעווס,
פּאָסט.פּאַגעטעקסט ווי פאָרויסיקע ווייַזונג,
פּאָסט.וסעריד ווי לאַסטפּוסעריד
פֿון ". טאַבלע_פּרעפיקס." סובסקריבעטהרעאַד ווי סובסקריבעטהרעאַד
ינער פאַרבינדן ". טאַבלע_פּרעפיקס." פאָדעם ווי פאָדעם אויף (סובסקריבעטהרעאַד.טהרעאַדיד = טהרעאַד.טהרעאַדיד)
לינק פאַרבינדן ". טאַבלע_פּרעפיקס." דעלעטיאָנלאָג ווי דעלעטיאָנלאָג אויף (טהרעאַד.טהרעאַדיד = דעלעטיאָנלאָג.פּרימאַרייד און דרוקן = 'פאָדעם')
לינק פאַרבינדן ". טאַבלע_פּרעפיקס." פּאָסטן ווי פּאָסטן אויף (פּאָסט.פּאָסטיד = טהרעאַד.לאַסטפּאָסטיד)
ווו סובסקריבעטהרעאַד.וסעריד = ". $ וובוללעטין-> וסערינפאָ ['וסעריד']."
און טהרעאַד.פאָרומיד ניט (0 $ בלאָקקפאָרומס)
און טהרעאַד.וויסיבלע = 1
און סובסקריבעטהרעאַד.קאַנוויעוו = 1
און טהרעאַד.לאַסטפּאָסטיד> $ לאַסטפּאָסטיד
און דעלעטיאָנלאָג.פּרימאַרייד איז נאַל
$ דאַטעקוט
סדר דורך טהרעאַד.לאַסטפּאָסט דעסק שיעור $ לימיטק
");
}
אַנדערש
{
$ געטטהרעאַדס = $ דב-> קווערי_רעאַד ("
אויסקלייַבן טהרעאַד.פאָרומיד,
טהרעאַד.פירסטפּאָסטיד,
טהרעאַד.לאַסטפּאָסט,
טהרעאַד.לאַסטפּאָסטער,
טהרעאַד.לאַסטפּאָסטיד,
טהרעאַד.רעפּליקאָונט,
טהרעאַד.טהרעאַדיד,
טהרעאַד.טיטלע,
טהרעאַד.אָפּען,
טהרעאַד.וויעווס,
פּאָסט.פּאַגעטעקסט ווי פאָרויסיקע ווייַזונג,
פּאָסט.וסעריד ווי לאַסטפּוסעריד
פֿון ". טאַבלע_פּרעפיקס." פאָדעם ווי פאָדעם
לינק פאַרבינדן ". טאַבלע_פּרעפיקס." דעלעטיאָנלאָג ווי דעלעטיאָנלאָג אויף (טהרעאַד.טהרעאַדיד = דעלעטיאָנלאָג.פּרימאַרייד און דרוקן = 'פאָדעם')
לינק פאַרבינדן ". טאַבלע_פּרעפיקס." פּאָסטן ווי פּאָסטן אויף (פּאָסט.פּאָסטיד = טהרעאַד.לאַסטפּאָסטיד)
ווו עפענען <> 10
$ דאַטעקוט
און טהרעאַד.פאָרומיד ניט (0 $ בלאָקקפאָרומס)
און טהרעאַד.וויסיבלע = '1 '
און טהרעאַד.לאַסטפּאָסטיד> $ לאַסטפּאָסטיד
און פּאָסט.וויסיבלע = 1
און דעלעטיאָנלאָג.פּרימאַרייד איז נאַל
סדר דורך טהרעאַד.לאַסטפּאָסט דעסק שיעור $ לימיטק
");
}

$ רודערן = $ היגהעסטיד = 1;
$ ראָווקאָלאָר = "אַלט2";

בשעת ($ פאָדעם = $ דב-> פעטטש_אַררייַ ($ געטטהרעאַדס)) {
$ קאָליר = $ קאָלירן == 'אַלט1'? 'אַלט2': 'אַלט1';

$ פאָדעם ['טיטל'] = הטמלספּעסיאַלטשאַרס_וני (פעטטש_סענסאָרעד_טעקסט (פעטטש_טריממעד_טיטלע (ונהטמלספּעסיאַלטשאַרס ($ פאָדעם ['טיטל']), 85)));
$ פאָדעם ['דאַטע'] = וובדאַטע ($ וובוללעטין-> אָפּציעס ['דאַטעפאָרמאַט'], $ פאָדעם ['לאַסטפּאָסט'], 1);
$ פאָדעם ['צייַט'] = וובדאַטע ($ וובוללעטין-> אָפּציעס ['טימעפאָרמאַט'], $ פאָדעם ['לאַסטפּאָסט']);

/ / באקום באַפרייַען פון HTML און בבקאָדע ערשטער
$ פאָדעם ['פאָרויסיקע ווייַזונג'] = סטריפּ_טאַגס (סטריפּ_בבקאָדע ($ פאָדעם ['פאָרויסיקע ווייַזונג'], אמת, אמת));
$ פאָדעם ['פאָרויסיקע ווייַזונג'] = הטמלספּעסיאַלטשאַרס_וני (פעטטש_טריממעד_טיטלע ($ פאָדעם ['פאָרויסיקע ווייַזונג'], 200));
$ פאָדעם ['פאָרויסיקע ווייַזונג'] = פעטטש_סענסאָרעד_טעקסט (פעטטש_וואָרד_ווראַפּפּעד_סטרינג ($ פאָדעם ['פאָרויסיקע ווייַזונג'], 20));

$ פאָדעם ['רעפּליקאָונט'] = ווב_נומבער_פאָרמאַט ($ פאָדעם ['רעפּליקאָונט']);
$ פאָדעם ['מיינונגען'] = ווב_נומבער_פאָרמאַט ($ פאָדעם ['מיינונגען']);

$ טפאָרומיד = $ פאָדעם ['פאָרומיד'];
$ פאָדעם ['פאָרום'] = הטמלספּעסיאַלטשאַרס_וני ($ וובוללעטין-> פאָרומקאַטשע ["$ טפאָרומיד"] ['טיטל']);

אויב ($ פאָדעם ['לאַסטפּאָסטיד'] == $ פאָדעם ['פירסטפּאָסטיד'])
{
$ עטיפּע = "ניו פֿאָדעם";
}
אַנדערש
{
$ עטיפּע = "ניו אַרייַנשיקן";
}

/ / סטאַטוסיקאָן
/ / ווייַזן פּונקט טעקע?
אויב ($ וובוללעטין-> וסערינפאָ ['וסעריד'] און $ וובוללעטין-> אָפּציעס ['שאָוודאָץ'] און $ דאָטטהרעאַדס ["$ פאָדעם [טהרעאַדיד]"])
{
$ פאָדעם ['סטאַטוסיקאָן'] .= '_דאָט';
$ פאָדעם ['דאָט_קאָונט'] = $ דאָטטהרעאַדס ["$ פאָדעם [טהרעאַדיד ]"][' ציילן '];
$ פאָדעם ['דאָט_לאַסטפּאָסט'] = $ דאָטטהרעאַדס ["$ פאָדעם [טהרעאַדיד ]"][' לאַסטפּאָסט '];
}

/ / ווייַזן שאַרף טעקע?
אויב ($ וובוללעטין-> אָפּציעס ['וסעהאָטטהרעאַדס'] און (($ פאָדעם ['רעפּליקאָונט']> = $ וובוללעטין-> אָפּציעס ['האָטנומבערפּאָסץ'] און $ וובוללעטין-> אָפּציעס ['האָטנומבערפּאָסץ']> 0) OR ( $ פאָדעם ['מיינונגען']> = $ וובוללעטין-> אָפּציעס ['האָטנומבערוויעווס'] און $ וובוללעטין-> אָפּציעס ['האָטנומבערוויעווס']> 0)))
{
$ פאָדעם ['סטאַטוסיקאָן'] .= '_האָט';
}

/ / ווייַזן פארשפארט טעקע?
אויב (! $ פאָדעם ['אַף'])
{
$ פאָדעם ['סטאַטוסיקאָן'] .= '_לאָקק';
}

$ פאָדעם ['סטאַטוסיקאָן'] = "בלאַנק.גיף";

אויב ($ _רעקוועסט ['טאָן'] == "קסמל")
{