Por que a mídia privada não consegue ver o FSM?
Por Emir Sader
A mídia mercantil é um caso perdido para a compreensão do mundo contemporâneo. Não por acaso a crise atual a afeta diretamente. Não tardará para que comecem as quebras de empresa de jornalismo por aqui também. E eles serão vitimas da sua própria cegueira, aquela que lhes impede de ver os projetos do futuro da humanidade, que passeiam pelas veredas de Belém.
Mais uma vez a mídia privada não consegue ver o FSM. Os leitores que dependerem dela ficarão sem saber o que acontece aqui em Belém. Por que? O que impede uma boa cobertura, se a riqueza de idéias, a diversidade de presenças, a força dos intercâmbios – como não se encontra em lugar algum do globo – estão todos aqui? Há jornalistas, algum espaço é dedicado pela imprensa ao evento, mas o fundamental passa despercebido.
O fundamental não tem preço – diz um dos lemas melhores do FSM. Enquanto o neoliberalismo e o seu reino do mercado tentam fazer com que tudo tenha preço, tudo se venda, tudo se compre, ao estilo shoping-center, o FSM se opôs desde o seu começo a isso, opondo os direitos de todos ao privilégio de quem tem poder de compra, incrementando sempre mais as desigualdades.
Um jornalista da FSP (Força Serra Presidente) se orgulha de ter ido a todos os Foros de Davos e, consequentemente, a nenhum Forum Social Mundial. A espetacular marcha de abertura do FSM retratada com belíssimas fotos por Carta Maior, foi inviabilizada pela mídia mercantil.
A cobertura se faz com a ótica com que essa imprensa se comporta, com os óculos escuros que a impedem de ver a realidade. O FSM, como tudo, é objeto das fofocas sobre eventuais desgastes do governo Lula – a obsessão dessa mídia. Não cobrem o dia do Forum PanAmazônico, não deram uma linha sobre o Forum da Mídia Alternativa, não ouvem os palestinos, nem os africanos ou os mexicanos. Nada lhes interessa. No máximo aguardam para ver se Brad Pitt e Angelina Jolie vão vir.
Seu estilo e sua ótica está feita para Davos, para executivos, ex-ministros de economia. Lamenta a imprensa que a América Latina, a África e a China estejam tão pouco representados em Davos. Mas o que teriam a fazer por lá? Não se perguntam, nem querem saber. Seus jornalistas não são orientados senão para seguir os passos de Lula e seus ministros.
Temas como os diagnósticos da crise e as alternativas, a guerra e as alternativas de paz, as propostas de desenvolvimento sustentável – fundamentais no FSM – estão fora da pauta. Nem falar da crise da própria mídia tradicional e das propostas de construção de mídias públicas e democráticas.
A mídia mercantil é um caso perdido para a compreensão do mundo contemporâneo. Não por acaso a crise atual a afeta diretamente. Não tardará para que comecem as quebras de empresa de jornalismo por aqui também. E eles serão vitimas da sua própria cegueira, aquela que lhes impede de ver os projetos do futuro da humanidade, que passeiam pelas veredas de Belém.
Fonte: Agência Carta Maior
Publicado em 29/01/2009
<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Por que a mídia privada não consegue ver o FSM?" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art242.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Por que a mídia privada não consegue ver o FSM?" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Por que a mídia privada não consegue ver o FSM?" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art242.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %> <% '
The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>Sua mensagem foi enviada com sucesso. <% End Sub %>