Shadow Post It
Publicado por Daniel Vinciguerra 02/03/2007
[ Hits: 6.398 ]
Homepage: http://bivee.com.br
Download Shadow_Post-It.tar.gz
Este é um pequeno e bem simples script que fiz para auxiliar o pessoal que se amarra nas notinhas amarelas.
(Post It). Ele utiliza o modulo TK e manipulação de arquivos para gerar outro arquivo e salvar as informações que não estão escritas no Post It...
Espero que gostem....
Obs: Requer o modulo Tk para que rode...
#!/usr/bin/perl -w ## Name: Shadow Post It ## Author: Daniel Vinciguerra - Daniel Shadow ## E-mail: daniel_5h4d0w@hotmail.com ## Date: 24/01/2007 ## Description: Pequeno utilitario que serve como bloco de apontamento para ## gravar telefones, e-mails, compromissos, etc... ## Programa OpenSource e Free pode ser usado e alterado por todos mais por ## favor mantenha as referencias... use Tk; use Tk::Button; use Tk::Frame; use Tk::Text; ##Variables my $postit; my $post; if($ENV{POSTIT}){ $postit = $ENV{POST} }else{ $postit = $ENV{HOME}. "/.Post-it"; } ## Start a Main Window my $mw=MainWindow->new(-title=>'Shadow Post It'); my $Banner = $mw -> Frame ( -label=>'Shadow Post it', -borderwidth=>1, -relief=>'raised' ) -> pack(-fill=>'both'); my $Body = $mw -> Frame ( -relief=>'flat' ) -> pack(); my $Text_data = $Body -> Scrolled ( 'Text', -background=>'Yellow', -width=>20, -state=>'normal', -borderwidth=>1, -height=>8, -relief=>'sunken', -scrollbars=>'e', -wrap=>'none' ) -> pack(); my $Bt_Add = $mw -> Button ( -command=>\&get_post , -width=>8, -state=>'normal', -relief=>'raised', -text=>'Post it' ) -> pack(-fill=>'both', -side=>'left'); my $Bt_Sair = $mw -> Button ( -command=>sub { exit; }, -width=>8, -state=>'normal', -relief=>'raised', -text=>'Close' ) -> pack(-fill=>'both'); ## Check if post it are in directori... if($postit){ open(FILE, "< $postit") or die "\n Arquivo não encontrado!!!\n"; my @arquivo = <FILE>; $Text_data -> insert('end',"@arquivo"); close(FILE); } MainLoop; ## Start Call Back sub get_post{ $post = $Text_data->get('1.0', 'end'); open(POST, "> $postit") or die "\n Arquivo não encontrado!!!\n"; print POST (" $post"); close(POST); $Text_data -> delete('1.0','end'); open(FILE, "< $postit") or die "\n Arquivo não encontrado!!!\n"; my @arquivo = <FILE>; $Text_data -> insert('end',"@arquivo"); close(FILE); }
Processa todos os SlackBuild's
Adiciona-Altera senhas/usuarios no sistema
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Não consigo cadastrar nenhuma conta online (3)
O que esta havendo com o mercado de ti? (5)
Erro de permissão no samba (2)