Hora de colocar as decisões da Confecom em prática: democracia na comunicação, já!
Por Rosane Bertotti*
O rico e intenso processo vivenciado antes, durante e depois da Conferência Nacional de Comunicação (Confecom) realizada ao longo de 2009 demonstrou que a democratização da comunicação, elemento chave para novos ares de liberdade que oxigenarão a sociedade brasileira, é tão imprescindível quanto espinhosa nas entranhas de certa esfera politica vacilante.
Ao longo destes setes anos de governo Lula, são incontáveis os avanços obtidos, medidas que transformaram inquestionavelmente a vida do povo nas mais diferentes áreas, reafirmando a soberania nacional, o fortalecimento dos direitos, a valorização do trabalho e do espaço público, elevando a auto-estima e a confiança da nossa gente na sua capacidade e criatividade. Infelizmente, tais medidas não se refletiram no que diz respeito à comunicação, onde os latifúndios midiáticos mantêm bem altas as suas cercas, dentro de uma lógica que transforma a informação em mercadoria e o cidadão em mero consumidor de “produtos” de qualidade duvidável.
Assim, concessões públicas foram transformadas em capitanias hereditárias do poder econômico e político, tão imoral quanto ilegal, colocando-se acima das leis, do bem e do mal. Explica-se portanto o medo pânico diante de palavras disciplinadoras como “controle social” e “regulação”, vendidas pelos apóstolos dos cifrões como limites para as suas negociatas e abusos, vedadas por lei, mas praticadas à exaustão sem qualquer penalidade.
Estamos em pleno 2010 e nos causa estranhamento que o ministro responsável pela pasta declare que não poderá por em pratica neste ano nenhuma das propostas aprovadas na Confecom. Diante desta “inflexão” bem ao gosto dos barões da mídia, nos perguntamos as razões que levam o ministro Franklin a desconsiderar o esforço de uma conferência de tamanha transcendência para a própria democracia? Vale ressaltar que, driblando sabotagens dos setores reacionários, o evento mobilizou milhares de pessoas e, por meio do diálogo e do debate, conseguiu construir consensos entre a representação de trabalhadores, empresários e governos, isolando a direita mais empedernida.
Diante disso, sublinhamos que a convocação de um Conselho Nacional de Comunicação se faz premente, pois a responsabilidade e os compromissos assumidos com a sociedade brasileira não nos permitem manter guardada na gaveta decisões de tamanha importância para o presente e o futuro do país. Que a consciência nos dê luz para iluminar os próximos passos dentro de uma instância democrática e plural como é este conselho de representação, proposto, debatido e aprovado para ser implementado. E já.
* Rosane Bertotti, secretária nacional de Comunicação da CUT
Fonte: CUT
" & 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: Hora de colocar as decisões da Confecom em prática: democracia na comunicação, já!" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art502.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Hora de colocar as decisões da Confecom em prática: democracia na comunicação, já!" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Hora de colocar as decisões da Confecom em prática: democracia na comunicação, já!" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art502.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 %>