extracting df and MS values from aov

Dear R users,
I would like to extract df and Mean Sq values. I tried several things (e.g., 
str(model1), names(model1)) but I can't find a way to extract these values.  
I also tried to search using
RSiteSearch. Any help will be appreciated. Thanks Taka,

model1<-aov(dv~iv.1*iv.2*iv.3)

summary(model1)

                           Df Sum Sq Mean Sq
iv.1                   1  3.200   3.200
iv.2                   9 62.200   6.911
iv.3                   3 37.450  12.483
iv.1:iv.2             9 12.050   1.339
iv.1:iv.3             3  7.500   2.500
iv.2:iv.3            27 56.300   2.085
iv.1:iv.2:iv.3      27 25.250   0.935

_________________________________________________________________
PC Magazine?s 2007 editors? choice for best Web mail?award-winning Windows 
Live Hotmail.