32 lines
575 B
Text
32 lines
575 B
Text
|
#!/bin/rc
|
||
|
|
# 2016-05-01T18:47:42-0400
|
||
|
|
# Delete posts $low through $high.
|
||
|
|
rfork e
|
||
|
|
dhost=ur.inri.net
|
||
|
|
fn usage {
|
||
|
|
echo usage: dsrc [ -r n ] [ -t n ] >[1=2]
|
||
|
|
exit usage
|
||
|
|
}
|
||
|
|
switch($1){
|
||
|
|
case -r
|
||
|
|
site=/usr/sl/www/werc/sites/read.stanleylieber.com
|
||
|
|
case -t
|
||
|
|
site=/usr/sl/www/werc/sites/tumblr.stanleylieber.com
|
||
|
|
case *
|
||
|
|
usage
|
||
|
|
}
|
||
|
|
if(! ~ $sysname ur){
|
||
|
|
rcpu -h $dhost -c dsrc $*
|
||
|
|
exit
|
||
|
|
}
|
||
|
|
low=`{ls -p $site/src | sort -n | sed 1q}
|
||
|
|
high=$2
|
||
|
|
cd $site/src && rm -rf `{seq $low $high}
|
||
|
|
{
|
||
|
|
for(i in `{seq $low $high})
|
||
|
|
echo ',x/^'$i'\/.*\n/d'
|
||
|
|
echo w
|
||
|
|
echo w
|
||
|
|
echo q
|
||
|
|
} | sam -d $site/tags >[2]/dev/null
|