TL Mafia 2 [GG] - Page 22

for you --

#! /bin/gawk -f

BEGIN {
username=ENVIRON["CURRENT_USER"]
echo username
if (username == "")
{
print("No CURRENT_USER defined");
exit 1;
}
}

/User name/ { puname=1; next; }
/Joined TL.net/ {pjoin=1; next; }
/Birthday/ {pbd=1; next; }
/Country/ {pct=1; next; }
/Quote/ {pquote=1; next; }
/Public Profile:/{ppublic=1; next; }

// {
if (puname == 1 && uname == "")
{
// parse this line as user name
gsub(/<\/font.*/, "");
gsub(/<.*>/, "");
uname = trim($0);
puname=0
}

if (pjoin == 1 && join == "")
{
gsub(/<\/td.*/, "");
gsub(/<.*>/, "");
join = trim($0);
pjoin=0
}

if (pbd == 1 && bd == "")
{
gsub(/<\/td.*/, "");
gsub(/<.*>/, "");
bd = trim($0);
pbd=0
}

if (pct == 1 && ct == "")
{
gsub(/<\/td.*/, "");
gsub(/<.*>/, "");
ct = trim($0);
pct=0
}

if (pquote == 1 && quote == "")
{
gsub(/<\/td.*/, "");
gsub(/<.*>/, "");
quote = trim($0);
pquote=0
}

if (ppublic == 1 && public == "")
{
}
}

END {
dir="./users/" username
system("mkdir -p '" dir "'");
fln = dir "/joined tl.net"
print join > fln
fln = dir "/birthday"
print bd > fln
fln = dir "/country"
print ct > fln
fln = dir "/quote"
print quote > fln
fln = dir "/dispname"
print uname > fln

print " Display Name : " uname
print " Birthday : " bd
print " Country : " ct
print " Joined : " join
print " Quote : " quote
}


function trim(s)
{
gsub(/^[[:blank]*/, "", s);
gsub(/[[:blank]*$/, "", s);
return s
}