projects/tog-php/function.php

<?

function download($url)
{
        $temp_buffer = file_get_contents($url);

        $buffer = str_replace("\"", "'", $temp_buffer);
        return $buffer;
}

function stationList()
{
        $stations = array();

        $url = "http://www.bane.dk/visStationsliste.asp?artikelID=4277";
        $buffer = download($url);

        $pos = 0;
        $pos = stripos($buffer, "<td class='Oversigt'>");
        $sverige = stripos($buffer, "Sverige");
        $s_tog = stripos($buffer, "<b>S-tog</b>");

        while (1) {

                $pos = stripos($buffer, "W=", $pos);

                if ($pos == FALSE)
                        break;

                if ($pos >= $sverige && $pos<$s_tog) {
                        $pos = $s_tog;
                        continue;
                }

                $stationEnd  = stripos($buffer, "'>", $pos);

                $statStr = substr($buffer,$pos, $stationEnd-$pos);
                $pos++;

                $pairs = split("&amp;", $statStr);


                $entry = array();
                foreach ($pairs as $pair) {
                        $tmppair = split("=", $pair);
                        $key = strtolower($tmppair[0]);
                        if ($key == "artikelid")
                                continue;
                        $entry[ $key ] = $tmppair[1]; 
                }

                $stations[] = $entry;


        }
        return $stations;
}

function lastUpdateString( $updateCode )
{
        switch( $updateCode )
        {
                case '1':
                        $result = "< 3 min";
                        break;
                case '2':
                        $result = "3 - 10 min";
                        break;
                case '3':
                        $result = ">10 min";
                        break;
                case '4':
                        $result = "No info";
                        break;
                default:
                        $result = "Unknown:" . $buffer[$pos];
        }

        return $result;
}

function tog3($search)
{       
        $result = array();

        $current = tog("FJRN", $search, "");            
        $result2 = array_merge($result,$current);
        $result = $result2;

        $current = tog("S2", $search, "");
        $result2 = array_merge($result,$current);
        $result = $result;

        return $result;
}

function tog2($search)
{
//      echo "<!-- $search -->\n";
        $result = array();

        $search = strtolower($search);
        $stations = stationList();
        for ($i=0; $i<sizeof($stations); $i++) {
                $row = $stations[$i];

                $type = $row["w"];
                $stationcode = $row["s"];
                $stationname = $row["statnavn"];

                //echo "<!-- $type $stationcode $stationname -->\n";
                $lcstation = strtolower($stationname);
                if ($search == $lcstation || 
                                strpos($search, $lcstation) != FALSE || 
                                strpos($lcstation,$search) != FALSE)
                {
                        $current = tog($type,$stationcode,$stationname);                
                        $result2 = array_merge($result,$current);
                        $result = $result2;
                }
        }
        return $result;
}


function tog($type, $stationcode, $stationname)
{
        $result = array();

        $url = "http://www.bane.dk/visStation.asp?W=$type&S=$stationcode&artikelId=4275&statnavn=$stationname";

        $buffer = download($url);


        $pos=0;
        $ankomstpos = stripos($buffer, "id='ankomsttabel'");

        $count = 0;
        while(1) {
                
                // start med tid
                $pos = stripos($buffer, "<td CLASS='Tid'>", $pos);

                if ($pos == FALSE)
                        break;

                if ($pos > $ankomstpos)
                        break;

                $pos = stripos($buffer, "<span", $pos);
                
                $start = $pos;
                $stop = stripos($buffer, "</td>", $pos);
                $time = substr($buffer,$start, $stop-$start);
                $time = strip_tags($time);
                $result[$count][0] = trim($time);

                //Opdaterings-info
                $pos = stripos($buffer, "<TD CLASS='opdater'>", $pos);
                $pos = stripos($buffer, "src='",$pos);
                $pos = stripos($buffer, "opdater",$pos);
                $pos += 7;
                $result[$count][1] = $buffer[$pos];

        
                // Type
                $pos = stripos($buffer, "<TD CLASS='TogType'>", $pos);
                $start = $pos + 20;
                $stop = stripos($buffer, "</td>", $pos);
                $type = substr($buffer, $start, $stop-$start);
                $type = strip_tags($type);
                $type = str_replace("&nbsp;", " ", $type);
                $result[$count][2] = $type;

                // Destination
                $pos = stripos($buffer, "<TD CLASS='Til'>", $pos);
                $start = $pos + 16;
                $stop = stripos($buffer,"</td>", $pos);
                $destination = substr($buffer, $start, $stop-$start);
                $destination = strip_tags($destination);
                $destination = str_replace("&nbsp;", " ", $destination);
                $result[$count][3] = $destination;

                //origin
                $pos = stripos($buffer, "<TD CLASS='visikke'>", $pos);
                $start = $pos + 20;
                $stop = stripos($buffer,"</td>", $pos);
                $origin = substr($buffer, $start, $stop-$start);
                $origin = strip_tags($origin);
                $origin = str_replace("&nbsp;", " ", $origin);
                $result[$count][4] = $origin;

                //current location
                $pos++; //since origin and current use the same search pattern, we must increase the position
                        //so we don't get origin twice.
                $pos = stripos($buffer, "<TD CLASS='visikke'>", $pos);
                $start = $pos + 20;
                $stop = stripos($buffer,"</td>", $pos);
                $current = substr($buffer, $start, $stop-$start);
                $current = strip_tags($current);
                $current = str_replace("&nbsp;", " ", $current);
                $result[$count][5] = $current;

                //Status
                $pos = stripos($buffer, "<TD CLASS='Status'>", $pos);
                $start = $pos + 19;
                $stop = stripos($buffer,"</td>", $pos);
                $status = substr($buffer, $start, $stop-$start);
                $status = str_replace("&nbsp;", " ", $status);
                $status = strip_tags($status);  
                $result[$count][6] = $status;

                //note
                $pos = stripos($buffer, "<TD CLASS='Bem'>", $pos);
                $start = $pos + 16;
                $stop = stripos($buffer,"</td>", $pos);
                $note = substr($buffer, $start, $stop-$start);
                $note = str_replace("&nbsp;", " ", $note);
                $hasExtraI = stripos($note, ">i<") != FALSE;
                $note = strip_tags($note);
                if ($hasExtraI)
                        $note = substr($note,0, strlen($note)-2);
                $result[$count][7] = $note;
        
                $count++;
        }

        return $result;
}

?>
1	torben	300	<?
2
3			function download($url)
4			{
5			$temp_buffer = file_get_contents($url);
6
7			$buffer = str_replace("\"", "'", $temp_buffer);
8			return $buffer;
9			}
10
11			function stationList()
12			{
13			$stations = array();
14
15			$url = "http://www.bane.dk/visStationsliste.asp?artikelID=4277";
16			$buffer = download($url);
17
18			$pos = 0;
19			$pos = stripos($buffer, "<td class='Oversigt'>");
20			$sverige = stripos($buffer, "Sverige");
21			$s_tog = stripos($buffer, "<b>S-tog</b>");
22
23			while (1) {
24
25			$pos = stripos($buffer, "W=", $pos);
26
27			if ($pos == FALSE)
28			break;
29
30			if ($pos >= $sverige && $pos<$s_tog) {
31			$pos = $s_tog;
32			continue;
33			}
34
35			$stationEnd = stripos($buffer, "'>", $pos);
36
37			$statStr = substr($buffer,$pos, $stationEnd-$pos);
38			$pos++;
39
40			$pairs = split("&", $statStr);
41
42
43			$entry = array();
44			foreach ($pairs as $pair) {
45			$tmppair = split("=", $pair);
46			$key = strtolower($tmppair[0]);
47			if ($key == "artikelid")
48			continue;
49			$entry[ $key ] = $tmppair[1];
50			}
51
52			$stations[] = $entry;
53
54
55			}
56			return $stations;
57			}
58
59			function lastUpdateString( $updateCode )
60			{
61			switch( $updateCode )
62			{
63			case '1':
64			$result = "< 3 min";
65			break;
66			case '2':
67			$result = "3 - 10 min";
68			break;
69			case '3':
70			$result = ">10 min";
71			break;
72			case '4':
73			$result = "No info";
74			break;
75			default:
76			$result = "Unknown:" . $buffer[$pos];
77			}
78
79			return $result;
80			}
81
82			function tog3($search)
83			{
84			$result = array();
85
86			$current = tog("FJRN", $search, "");
87			$result2 = array_merge($result,$current);
88			$result = $result2;
89
90			$current = tog("S2", $search, "");
91			$result2 = array_merge($result,$current);
92			$result = $result;
93
94			return $result;
95			}
96
97			function tog2($search)
98			{
99			// echo "<!-- $search -->\n";
100			$result = array();
101
102			$search = strtolower($search);
103			$stations = stationList();
104			for ($i=0; $i<sizeof($stations); $i++) {
105			$row = $stations[$i];
106
107			$type = $row["w"];
108			$stationcode = $row["s"];
109			$stationname = $row["statnavn"];
110
111			//echo "<!-- $type $stationcode $stationname -->\n";
112			$lcstation = strtolower($stationname);
113			if ($search == $lcstation \|\|
114			strpos($search, $lcstation) != FALSE \|\|
115			strpos($lcstation,$search) != FALSE)
116			{
117			$current = tog($type,$stationcode,$stationname);
118			$result2 = array_merge($result,$current);
119			$result = $result2;
120			}
121			}
122			return $result;
123			}
124
125
126			function tog($type, $stationcode, $stationname)
127			{
128			$result = array();
129
130			$url = "http://www.bane.dk/visStation.asp?W=$type&S=$stationcode&artikelId=4275&statnavn=$stationname";
131
132			$buffer = download($url);
133
134
135			$pos=0;
136			$ankomstpos = stripos($buffer, "id='ankomsttabel'");
137
138			$count = 0;
139			while(1) {
140
141			// start med tid
142			$pos = stripos($buffer, "<td CLASS='Tid'>", $pos);
143
144			if ($pos == FALSE)
145			break;
146
147			if ($pos > $ankomstpos)
148			break;
149
150			$pos = stripos($buffer, "<span", $pos);
151
152			$start = $pos;
153			$stop = stripos($buffer, "</td>", $pos);
154			$time = substr($buffer,$start, $stop-$start);
155			$time = strip_tags($time);
156			$result[$count][0] = trim($time);
157
158			//Opdaterings-info
159			$pos = stripos($buffer, "<TD CLASS='opdater'>", $pos);
160			$pos = stripos($buffer, "src='",$pos);
161			$pos = stripos($buffer, "opdater",$pos);
162			$pos += 7;
163			$result[$count][1] = $buffer[$pos];
164
165
166			// Type
167			$pos = stripos($buffer, "<TD CLASS='TogType'>", $pos);
168			$start = $pos + 20;
169			$stop = stripos($buffer, "</td>", $pos);
170			$type = substr($buffer, $start, $stop-$start);
171			$type = strip_tags($type);
172			$type = str_replace(" ", " ", $type);
173			$result[$count][2] = $type;
174
175			// Destination
176			$pos = stripos($buffer, "<TD CLASS='Til'>", $pos);
177			$start = $pos + 16;
178			$stop = stripos($buffer,"</td>", $pos);
179			$destination = substr($buffer, $start, $stop-$start);
180			$destination = strip_tags($destination);
181			$destination = str_replace(" ", " ", $destination);
182			$result[$count][3] = $destination;
183
184			//origin
185			$pos = stripos($buffer, "<TD CLASS='visikke'>", $pos);
186			$start = $pos + 20;
187			$stop = stripos($buffer,"</td>", $pos);
188			$origin = substr($buffer, $start, $stop-$start);
189			$origin = strip_tags($origin);
190			$origin = str_replace(" ", " ", $origin);
191			$result[$count][4] = $origin;
192
193			//current location
194			$pos++; //since origin and current use the same search pattern, we must increase the position
195			//so we don't get origin twice.
196			$pos = stripos($buffer, "<TD CLASS='visikke'>", $pos);
197			$start = $pos + 20;
198			$stop = stripos($buffer,"</td>", $pos);
199			$current = substr($buffer, $start, $stop-$start);
200			$current = strip_tags($current);
201			$current = str_replace(" ", " ", $current);
202			$result[$count][5] = $current;
203
204			//Status
205			$pos = stripos($buffer, "<TD CLASS='Status'>", $pos);
206			$start = $pos + 19;
207			$stop = stripos($buffer,"</td>", $pos);
208			$status = substr($buffer, $start, $stop-$start);
209			$status = str_replace(" ", " ", $status);
210			$status = strip_tags($status);
211			$result[$count][6] = $status;
212
213			//note
214			$pos = stripos($buffer, "<TD CLASS='Bem'>", $pos);
215			$start = $pos + 16;
216			$stop = stripos($buffer,"</td>", $pos);
217			$note = substr($buffer, $start, $stop-$start);
218			$note = str_replace(" ", " ", $note);
219			$hasExtraI = stripos($note, ">i<") != FALSE;
220			$note = strip_tags($note);
221			if ($hasExtraI)
222			$note = substr($note,0, strlen($note)-2);
223			$result[$count][7] = $note;
224
225			$count++;
226			}
227
228			return $result;
229			}
230
231			?>