Daniel Pink on the surprising science of motivation

“The surprising truth about what motivates us”

Vinil – Para venda

Olá!

Tenho em mãos uma colecção de Discos Vinil que são para venda, com preços desde os 5€ (unidade). Lista Vinil em PDF

A colecção é composta por mais de 600 discos, que vão desde 1958 a 1990 e da qual constam nomes como Roberto Carlos, Bee Gees, Peter Gabriel, Bryan Adams, Dire Straits, UB40, Bruce Springsteen, Paul Mccartney, Duran Duran, entre muitos outros.

Todos os interessados, podem contactar-me que farei chegar a vossa proposta ao coleccionador.

A lista encontra-se em http://guilhermeferreira.files.wordpress.com/2010/05/vinil.pdf

Vendidos:

  • UB40 Red red wine 1983
  • UB40 I got you babe 1985

Obrigado a todos

WSS + CAML: Getting current events from a Calendar list

Hi!
If you want to display events that happen right now, right this moment… this should be easy, I guess… WRONG! CAML and SharePoint find some problems working with Reocurring Items.

To go around this problem, you need to get all events that CAML get to this moment and after that, filter them using server code (In my sample I use C# )

Take a Look:

SPSite mySite = new SPSite(SPContext.Current.Site.Url);
SPWeb currentSite = mySite.AllWebs[web];
list = currentSite.Lists[listName];

currentSite.AllowUnsafeUpdates = true;
string datesQuery = "<DateRangesOverlap>"+
"<FieldRef Name='EventDate' />"+
"<FieldRef Name='EndDate' />  "+
"<FieldRef Name='RecurrenceID' />  "+
"<Value Type='DateTime' IncludeTimeValue='TRUE'>"+
"<Today />" +
"</Value>" +
"</DateRangesOverlap>";

string dates2Query = "<And><Leq><FieldRef Name='EventDate' />" +
"<Value Type='DateTime' IncludeTimeValue='TRUE'>"+
"<Today />" +
"</Value></Leq><Geq><FieldRef Name='EndDate' />" +
"<Value Type='DateTime' IncludeTimeValue='TRUE'>"+
"<Today />" +
"</Value></Geq></And>";

SPQuery quer = new SPQuery();
quer.CalendarDate = DateTime.Now;
quer.ExpandRecurrence = true;
quer.Query = "<Where><And><And>" + datesQuery + dates2Query + "</And>" + needAcceptQuery + "</And></Where>";

items = list.GetItems(quer);
if (items.Count.Equals(0))
{
//No Event
}
else
{
foreach (SPListItem item in items)
{
itemCurr = item.ParentList.GetItemById(item.ID);// ERROR "Value does not fall within the expected range."
if (((bool)itemCurr["Recurrence"]).Equals(true))
{
if(!DisplayToday(itemCurr))
continue;
}

//DO WHAT YOU WANT
}
}


private bool DisplayToday(SPListItem itemCurr)
{
DateTime dtEventDate = (DateTime)itemCurr["EventDate"];
DateTime dtEndDate = (DateTime)itemCurr["EndDate"];
XmlDocument xDoc = new XmlDocument();
xDoc.LoadXml(itemCurr["RecurrenceData"].ToString());
XmlNode xElem = xDoc.GetElementsByTagName("repeat")[0];
xElem = xElem.FirstChild;
if (xElem.Name.Equals("weekly"))
{
string todayAttrib = getTodayAttribute();
bool isToday = false;
if (xElem.Attributes[todayAttrib] != null)
isToday = Boolean.Parse(xElem.Attributes[todayAttrib].Value);
if (!isToday) return false;
}
else
{
if (xElem.Name.Equals("monthly"))
{
int day = 1;
if (xElem.Attributes["day"] != null)
day = Int32.Parse(xElem.Attributes["day"].Value);
if (!day.Equals(DateTime.Today.Day)) return false;
}
else
{
if (xElem.Name.Equals("yearly"))
{
int day = 1, month = 1;
if (xElem.Attributes["day"] != null)
day = Int32.Parse(xElem.Attributes["day"].Value);
if (xElem.Attributes["month"] != null)
month = Int32.Parse(xElem.Attributes["month"].Value);
if (!(month.Equals(DateTime.Today.Month) && day.Equals(DateTime.Today.Day))) return false;
}
}
}
if (dtEventDate.Date < DateTime.Now.Date || dtEndDate.Date > DateTime.Now.Date)
{
if (!(dtEventDate.TimeOfDay < DateTime.Now.TimeOfDay
&& dtEndDate.TimeOfDay > DateTime.Now.TimeOfDay))
return false;
else
return true;
}
return false;
}

private string getTodayAttribute()
{
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Monday))
return "mo";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Friday))
return "fr";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Saturday))
return "sa";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Sunday))
return "su";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Thursday))
return "th";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Tuesday))
return "tu";
else
return "we";
}

Windows Azure – The Microsoft Cloud

What is Windows Azure?

Microsoft OS Cloud Windows Azure Data Center

WSS: Language Pack Failures

If you have install “Windows SharePoint Services 3.0 Language Pack” and you see some fails like this

Go to C:\inetpub\wwwroot\wss\VirtualDirectories\[Port]\App_GlobalResources

And check if you have wss.[Language].resx file.

Example:
I installed WSS 3.0 En-Us at 88 port and I want to install Portuguese language pack.

Go to C:\inetpub\wwwroot\wss\VirtualDirectories\88\App_GlobalResources

Check if “wss.pt-pt.resx” exists.

If not, just copy it.

You can find this file in an WSS 3.0 Portuguese installation.

WSS 3.0 / SharePoint 2007 Version Table

Name Version
MOSS 2007 or WSS 3.0 August 2009 12.0.0.6514
MOSS 2007 or WSS 3.0 June 2009 12.0.0.6510
MOSS 2007 or WSS 3.0 April 2009 12.0.0.6504
MOSS 2007 or WSS 3.0 SP2 12.0.0.6421
MOSS 2007 or WSS 3.0 Feb 2009 12.0.0.6341
MOSS 2007 or WSS 3.0 Dec 2008 12.0.0.6335
MOSS 2007 or WSS 3.0 Aug 2008 12.0.0.6327
MOSS 2007 or WSS 3.0 Infrastructure Update 12.0.0.6318
MOSS 2007 or WSS 3.0 post-SP1 hotfix (KB948945) 12.0.0.6303
MOSS 2007 or WSS 3.0 post-SP1 hotfix (KB941274) 12.0.0.6301
MOSS 2007 or WSS 3.0 post-SP1 hotfix (KB941422) 12.0.0.6300
MOSS 2007 or WSS 3.0 SP1 12.0.0.6219
MOSS 2007 or WSS 3.0 October update 12.0.0.6039
MOSS 2007 or WSS 3.0 August 24, 2007 hotfix package 12.0.0.6036
MOSS 2007 or WSS 3.0 RTM 12.0.0.4518
MOSS 2007 or WSS 3.0 Beta 2 TR 12.0.0.4407
MOSS 2007 or WSS 3.0 Beta 2 12.0.0.4017

What is Cloud Computing?

WSS: Clear Farm Backup (vb script)

' Title: BackupCleanUp
' Description: Deletes SharePoint 2007 backups that are older than a specified
' number of days and then removes the backups from the backup history.
Setlocale(1033)
Dim nNumberOfDays
Dim strTOCFile
Dim dtDeleteDate
Dim sTemp
Set objXML = CreateObject("Microsoft.XMLDOM")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objLog = objFS.OpenTextFile("wssBackupCleanUp.log",8,true)
' Validate command line arguments and initialize data.
If WScript.Arguments.Count = 2 Then
If IsNumeric(WScript.Arguments(0)) Then
nNumberOfDays = CInt(WScript.Arguments(0))
dtDeleteDate = DateAdd("d",nNumberOfDays*-1,Now)
Else
WScript.Echo " must be an integer value."
End If
strTOCFile = WScript.Arguments(1)
Else
'WScript.Echo "Usage: BackupCleanUp "
'WScript.Quit
nNumberOfDays = 5
dtDeleteDate = DateAdd("d",nNumberOfDays*-1,Now)
strTOCFile = WScript.Arguments(1)
End If
objLog.WriteLine(Now() &vbTab& "Start: Clean up backups older than " &nNumberOfDays& " days from " &strTOCFile& ".")
' Load the SharePoint backup and restore the TOC file.
objXML.Async = false
objXML.Load(strTOCFile)
If objXML.ParseError.ErrorCode 0 Then
objLog.WriteLine(Now() &vbTab& "Error: Could not load the SharePoint Backup / Restore History." &vbCrLf&_
Now() &vbTab& "Reason: " &objXML.ParseError.Reason& ".")
WScript.Quit
End If
' Delete backup nodes that are older than the deletion date.
For Each objNode in objXML.DocumentElement.ChildNodes
If CDate(objNode.SelectSingleNode("SPFinishTime").Text) < dtDeleteDate Then
If objNode.SelectSingleNode("SPIsBackup").Text = "True" Then
sTemp = mid(objNode.SelectSingleNode("SPBackupDirectory").Text,1,len(objNode.SelectSingleNode("SPBackupDirectory").Text)-1)
'objFS.DeleteFolder(mid(objNode.SelectSingleNode("SPBackupDirectory").Text),1,len(objNode.SelectSingleNode("SPBackupDirectory").Text)-1)
objFS.DeleteFolder sTemp
objLog.WriteLine(Now() &vbTab& "Deleted: " &objNode.SelectSingleNode("SPBackupDirectory").Text& ".")
objXML.DocumentElement.RemoveChild(objNode)
End If
End If
Next
' Save the XML file with the old nodes removed.
objXML.Save(strTOCFile)
objLog.WriteLine(Now() &vbTab& "Finish: Completed backup clean up.")

WSS: Backup Farm batch file

@echo off
echo ===============================================================
echo Back up sites for the farm to "%1"
echo ===============================================================
cd %COMMONPROGRAMFILES%\Microsoft Shared\web server extensions\12\BIN
@echo off
stsadm.exe -o backup -directory "%1" -backupmethod full -overwrite
echo completed

Example: backup.bat c:\backup\

Seguir

Get every new post delivered to your Inbox.