smartscript添加feed方法（二）

聲明：這些都是自己摸索的，有些地方不是很完善哦，沒有看全代碼
也不是太明白
( z8 d! N( Z1 ]+ l: e
; q) l) x; \$ ]4 O6 z拿scritpt professor 2.94b說，我們測試添加一個gofeed的feed:

需要修改2個文件，如果不需要在界面中修改，改一個文件也就夠了
CRAWL.CGI、admin-settings.txt
4 H* T( {- c" O, @其實修改的方法比較簡單，就是照抄類似的腳本，比如在admin-setting中：
6 c4 z6 D1 {3 |0 @- a0 J, ~# g1 ]6 d
- _; O7 u: X. [3 J/ n3 }% ?& A腳本裡面有www.revenuepilot.com吧，
7 r# E# f( J1 u9 o<a href="http://www.revenuepilot.com/smarterscripts/index.jsp">RevenuePILOT</a> (affiliate program)&5~後面你添加：<a href="http://gofeed.com">gofeed</a> (affiliate program)&18~
我們把他定義成18號feed站。記住這個18

+ a# w: R) _# o( N, ~RevenuePILOT|heading|
If you selected RevenuePilot above, enter your affiliate ID here. RevenuePILOT is another good affiliate program that pays you for referring clicks. Sign up by clicking <a href="http://www.revenuepilot.com/smarterscripts/index.jsp">here</a>|rp_id|1&10
  b( ^. Y7 M2 xRevenuePILOT's family filter (to filter out adult sites from the listings RevenuePilot returns):|rp_filter|2&On&1~Off&0
How Many RevenuePILOT Results Would You Like To Show?|results_rpilot|1&5
What percentage of the advertisers bid do you earn from RevenuePILOT?<br>(35 = 35%, etc.)|commission_rpilot|1&5
) f$ Y, F$ @1 C0 Y
這個你就複製粘貼一下，把裡面文字改成gofeed的說明.改rp_id為gofeed_id，commision_rpilot改成commision_gofeed依次類推。
& K: R, m) I, F) Q& ?* T* D& B2 o對了，要把family filter 這一行去掉，對gofeed沒什麼用，留著也沒關係
" S7 J; v' W0 H$ }4 ICRAWL.CGI中也要做這樣的修改和添加。


4 O  f( R- }+ @4 q$rpilot = 5;後面加上一行
0 M1 ]' J3 U# d$gofeed = 18;OK，做了以上修改，能用了嗎？如果你運氣好，2個站的feed格式相同，你就不用改，直接可以用了。
不過看樣子不行哦。我們測試一下：

/ l8 U: `" t6 w瀏覽器中打開網址：
http://gofeed.com/cgi-bin/smarts ... mp;ip=64.134.51.231
嗯，顯示正常了，

<Listings>  <Listing>
) p, D7 R' ~7 O' ?    <bid>0.019</bid>
6 f0 r! `3 u. c  V, ?    <title>casino, up to $200 free, GoldenPalace.com</title>
0 K7 O, p6 {# @    <url>http://www.gofeed.com/cgi-bin/sm ... fhxzv&kw=casino</url>
) p- B3 h1 }. q0 Q    <description>Best offer on the Net - Deposit $25 to $100 and get 200% more money up to $200! Established in 1997, Golden Palace is a pioneer of the online gaming industry and the most trusted name in the business.</description>
" Z) u( K; o! v3 w    <domain>www.goldenpalace.com</domain>
0 A+ @8 F' S5 ?* _  </Listing>

哎呀，這個和revenuepilot反回來數據格式不一樣...
9 A  D6 N, m, y: ]在後台處理肯定會出錯，不信你傳上去看看，有項目但是內容一片空白
你現在應該修改2個核心函數：
sub get_gofeed函數和sub parse_gofeed（你不會腳本中沒有吧？:D剛剛「依次類推添加的呀）
9 i& @6 L* {/ g0 u2 r$ @7 {
sub get_gofeed
8 h* _* S1 x4 R{
  \0 y" X. M5 w        $showext = $settings{results_gofeed} || 50;
, I9 v8 ~, x  m  Q        $urls{"http://www.gofeed.com/cgi-bin/smartsearch/include.cgi?keywords=$klink&external=1&show=$showext&xml=1&IP=$usersip&username=$settings{gofeed_id}&subaffiliate=$subaffiliate"} = $gofeed;
3 r! d/ y- |/ C' U, ~3 R        push @engine, $xray;
3 }; X" R" ], _. n* \% D1 g        push @writetocache, 1;
}
4 D/ [, h& b: D. S# I- a) p! \: V  L這個就沒啥可說的了，最重要就是下面一個函數：
這裡要複習一下剛學的perl操作符了，（）、s/PATTERN/REPLACE/eg
3 V8 S- L0 t! U3 e8 m. L8 v
% D' F: ?  k- Z! O3 ?- ?9 Ssub parse_gofeed
{
% G! `$ X' Z7 a* K) M#注意這裡是測試幾行代碼，記錄返回的數據是否正確的，以後刪除
                open(DATA, ">> log/gofeed.log");
: e; M' |1 J5 r8 @1 y" x$ P! P0 i4 w                flock (DATA, $LOCK_EX);
# m/ ]5 ^8 {. m3 `$ d; C                print DATA "$html\n\n\n";
7 D# X3 o- m$ N% a/ d! D# w- V                flock (DATA, $LOCK_UN);
                close(DATA);
#下面就是處理那些<Listings>  <Listing>....之類的東西了

        while ($html =~ m|    <bid>(.*?)</bid>\s+    <title>(.*?)</title>\s+<url>(.*?)</url>\s+    <description>(.*?)</description>\s+    <domain>(.*?)</domain>|igs)
#...
1 a4 S; y& G, Y' o) ?        {
                $realurl = $3;
                $title = $2;
#這裡如果你要添加[gofeed]標誌讓你確認這個feed的確能用了，就可以把上面一句改成  $title = '[gofeed]'  . $2;
                $url = $5;
  H% C& o+ H- S; Q0 a( m. L' T                $descrip = $4;
  M2 t' B4 C* I! s& y7 {                $bid = $1;

( _# l7 t" w  r6 }6 V) n        if($settings{commission_gofeed} ne '')
& t( }8 v: a9 f  X4 P" ^                { $bid = sprintf("%.3f",($settings{commission_sh}/100)*$bid); }

. i, K, a2 }% u' i8 g- n+ u                &striphtml;
                if ($bid > 0)
                {
( O" B* i0 L& t* R                        $crawlfound++;
' b& y9 f  {3 @0 o3 d                        push @gofeed_results, join('&&', $bid, '', $title, $url, $descrip, $realurl, '1');
#這樣應該就可以了，如果運行不通過，你就試試把gofeed_result改成searchfeed_result(如果你用sf的feed的話，或者改成你其他正在使用的feed的result參數）
, T; v" Y2 N; u. R' I4 P                }
# e: `# B0 Q* X7 b        }
9 u, W2 s3 [" w, x) A0 m. x: @}
記得備份下原來的文件，然後上傳、刷新後台admin.cgi，關閉掉其他的feed，打開gofeed選項，加個歐美超級代理搜索一下，呵呵，能看到結果了嗎？ftp裡面打開log目錄，裡面有個gofeed.log了吧，看看，正常的話就把那幾句調試語句刪除。OK了，^_^！
- p8 p! U( [* Q/ t- u1 n1 ?
暈，不知道大家看的明白不？

[ Last edited by 苦苦 on 2004-7-27 at 11:21 ]

寫的累死了，看的懂看不懂的都加點分啊

我看懂了前面啊，呵呵，，堅持看他一百遍，估計能懂一半了吧！

暈呀，越看越暈！

誰要加feed可以PM我：）
# \+ w' H, A& D. K其實不難搞的哈～：0

8懂！！！但支持好帖！！！