Thank your for reply Daniel. Considering my limited knowledge of web programming and javascript , first i need to simulated the some sort of browser in my program which will run the javascript and will generate the pdf. After that i can download the pdf . Is this you mean ? Is Network.Browser any helpful for this purpose ? Is there way to solve this problem ? <br>
Sorry for many questions but this is my first web application program and i am trying hard to finish it. <div><br></div><div>Thank you</div><div>Mukesh Tiwari<br><div><br><div class="gmail_quote">On Fri, Sep 9, 2011 at 4:17 AM, Daniel Patterson <span dir="ltr"><<a href="mailto:lists.haskell@dbp.mm.st">lists.haskell@dbp.mm.st</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">It looks to me that the link is generated by javascript, so unless you can script an actual browser into the loop, it may not be a viable approach.<br>
<br>
On Sep 8, 2011, at 3:57 PM, mukesh tiwari wrote:<br>
<br>
> I tried to use the PDF-generation facilities . I wrote a script which<br>
> generates the rendering url . When i am pasting rendering url in<br>
> browser its generating the download file but when i am trying to get<br>
> the tags , its empty. Could some one please tell me what is wrong with<br>
> code.<br>
> Thank You<br>
> Mukesh Tiwari<br>
><br>
> import Network.HTTP<br>
> import Text.HTML.TagSoup<br>
> import Data.Maybe<br>
><br>
> parseHelp :: Tag String -> Maybe String<br>
> parseHelp ( TagOpen _ y ) = if ( filter ( \( a , b ) -> b == "Download<br>
> a PDF version of this wiki page" ) y ) /= []<br>
> then Just $ "<a href="http://en.wikipedia.org" target="_blank">http://en.wikipedia.org</a>" ++ ( snd $<br>
> y !! 0 )<br>
> else Nothing<br>
><br>
><br>
> parse :: [ Tag String ] -> Maybe String<br>
> parse [] = Nothing<br>
> parse ( x : xs )<br>
> | isTagOpen x = case parseHelp x of<br>
> Just s -> Just s<br>
> Nothing -> parse xs<br>
> | otherwise = parse xs<br>
><br>
><br>
> main = do<br>
> x <- getLine<br>
> tags_1 <- fmap parseTags $ getResponseBody =<< simpleHTTP<br>
> ( getRequest x ) --open url<br>
> let lst = head . sections ( ~== "<div class=portal id=p-coll-<br>
> print_export>" ) $ tags_1<br>
> url = fromJust . parse $ lst --rendering url<br>
> putStrLn url<br>
> tags_2 <- fmap parseTags $ getResponseBody =<< simpleHTTP<br>
> ( getRequest url )<br>
> print tags_2<br>
<div><div></div><div class="h5">><br>
><br>
><br>
><br>
> _______________________________________________<br>
> Haskell-Cafe mailing list<br>
> <a href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br>
> <a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
<br>
</div></div></blockquote></div><br></div></div>