Skip to content

Instantly share code, notes, and snippets.

View fabioadrianosoares's full-sized avatar

Fabio Soares fabioadrianosoares

3 followers · 1 following
  • sao paulo, brazil
View GitHub Profile
@fabioadrianosoares
fabioadrianosoares / heartbeat.sh
Created November 24, 2013 15:33
manter processo rodando e reciclar uma vez por dia: crontab: */5 * * * * /home/fabio/sites/compras/script/heartbeat.sh > /dev/null 2>&1 3 0 * * * /home/fabio/sites/compras/script/heartbeat.sh parar > /dev/null 2>&1
#! /bin/bash
TIPO=$1;
PROC=`ps -Af | grep /home/fabio/sites/compras/script/compras | grep -v grep | awk '{print $2}'`;
if [ "$TIPO" == "parar" ] ; then
if [ "$PROC" != "" ] ; then
kill -9 $PROC;
fi;
else
@fabioadrianosoares
fabioadrianosoares / servidor.pl
Created April 18, 2014 12:42
servidor web local mojolicious (para poder testar html e js)
use Mojolicious::Lite;
use Mojolicious::Static;
use Cwd;
my $static = Mojolicious::Static->new;
$static->paths([getcwd]);
app->static($static);
app->start('daemon');
@fabioadrianosoares
fabioadrianosoares / moverarquivo.vbs
Created August 14, 2014 17:08
Mover arquivos para sub pastas (ano/mes/dia) de acordo com a ultima modificacao
option explicit
dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
main
sub main ()
@fabioadrianosoares
fabioadrianosoares / crontab
Created July 23, 2015 14:38
Tracking de pedidos na directlog
*/5 * * * * /home/ZZZZZ/track-directlog/tracking-directlog.sh 99999999 8888888 Produto > /dev/null 2>&1
onde http://www.directlog.com.br/tracking/index.asp?tipo=2&valor=99999999&cod=8888888
@fabioadrianosoares
fabioadrianosoares / Anexos.bas
Created October 25, 2015 22:17
Anexo no Outlook
Attribute VB_Name = "Anexos"
Option Explicit
Public Sub TratarAnexos()
Dim Item As MailItem
If Not Application.ActiveWindow Is Nothing Then
If TypeName(Application.ActiveWindow) = "Inspector" Then
If Not Application.ActiveWindow.CurrentItem Is Nothing Then