<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf8">
<title>/usr/web/sources/contrib/quanstro/cameracp - Plan 9 from Bell Labs</title>
<!-- THIS FILE IS AUTOMATICALLY GENERATED. -->
<!-- EDIT sources.tr INSTEAD. -->
</meta>
</head>
<body>
<p style="margin-top: 0; margin-bottom: 0.17in"></p>
<p style="line-height: 1.2em; margin-left: 1.00in; text-indent: 0.00in; margin-right: 1.00in; margin-top: 0; margin-bottom: 0; text-align: center;">
<span style="font-size: 10pt"><a href="/plan9/">Plan 9 from Bell Labs</a>&rsquo;s /usr/web/sources/contrib/quanstro/cameracp</span></p>
<p style="margin-top: 0; margin-bottom: 0.17in"></p>
<p style="margin-top: 0; margin-bottom: 0.17in"></p>
<center><font size=-1>
Copyright © 2009 Alcatel-Lucent.<br />
Distributed under the
<a href="/plan9/license.html">Lucent Public License version 1.02</a>.
<br />
<a href="/plan9/download.html">Download the Plan 9 distribution.</a>
</font>
</center>
<p style="margin-top: 0; margin-bottom: 0.17in"></p>
<table width="100%" cellspacing=0 border=0><tr><td align="center">
<table cellspacing=0 cellpadding=5 bgcolor="#eeeeff"><tr><td align="left">
<pre>
<!-- END HEADER -->
#!/bin/rc
targ=()
fn sigint quit{
	if(test -d $targ)
		rm $targ&gt;[2=]
}
fn datefmt{
	x=`{date}
	m=(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)
	for(i in `{seq -w 1 12})
		if(~ $m($i) $x(2))
			j=$i
	n=$x(3)
	if(~ $n ?)
		n=0$n
	echo $x($#x)^$j$n
}

if(! test -d /n/camera)
	camera:
9fs other

old=`{
	cd /n/other/pictures
	echo 20*/*.jpg |
		tr ' ' '\x0a' |
		sed 's;.*/([0-9]+)\.jpg;\1;g'  |
		sort -n
}

cd /n/camera/DCIM/101CANON
f=`{echo *.JPG | tr ' ' '\x0a' | sed 's/IMG_([0-9]+)\.JPG/\1/'}
g=()

for(i in $f)
	if(! ~ $i $old)
		g = ($g $i)
fmt=`{datefmt}
mkdir -p /n/other/pictures/$fmt

while(~ 1 1){
	while(! ~ $#g 0 &amp;&amp;
		cp IMG_^$g(1)^.JPG /n/other/pictures/$fmt/$g(1)^.jpg){
		g = $g(2-)
	}
	if(~ $#g 0)
		break
	# usb sucks.
	echo -n 'return after physical usb reset [' ^ $#g ^ ']: '
	read&gt;/dev/null
	camera:
	cd /n/camera/DCIM/101CANON
}
<!-- BEGIN TAIL -->
</pre>
</td></tr></table>
</td></tr></table>
<p style="margin-top: 0; margin-bottom: 0.17in"></p>
<p style="line-height: 1.2em; margin-left: 1.00in; text-indent: 0.00in; margin-right: 1.00in; margin-top: 0; margin-bottom: 0; text-align: center;">
<span style="font-size: 10pt"></span></p>
<p style="margin-top: 0; margin-bottom: 0.50in"></p>
<p style="margin-top: 0; margin-bottom: 0.33in"></p>
<center><table border="0"><tr>
<td valign="middle"><a href="http://www.alcatel-lucent.com/"><img border="0" src="/plan9/img/logo_ft.gif" alt="Bell Labs" />
</a></td>
<td valign="middle"><a href="http://www.opensource.org"><img border="0" alt="OSI certified" src="/plan9/img/osi-certified-60x50.gif" />
</a></td>
<td><img style="padding-right: 45px;" alt="Powered by Plan 9" src="/plan9/img/power36.gif" />
</td>
</tr></table></center>
<p style="margin-top: 0; margin-bottom: 0.17in"></p>
<center>
<span style="font-size: 10pt">(<a href="/plan9/">Return to Plan 9 Home Page</a>)</span>
</center>
<p style="margin-top: 0; margin-bottom: 0.17in"></p>
<center><font size=-1>
<span style="font-size: 10pt"><a href="http://www.lucent.com/copyright.html">Copyright</a></span>
<span style="font-size: 10pt">© 2009 Alcatel-Lucent.</span>
<span style="font-size: 10pt">All Rights Reserved.</span>
<br />
<span style="font-size: 10pt">Comments to</span>
<span style="font-size: 10pt"><a href="mailto:webmaster@plan9.bell-labs.com">webmaster@plan9.bell-labs.com</a>.</span>
</font></center>
</body>
</html>

